anchor.diff:     ! Start with transferring the loads like point-to-point (except split between two nodes of the dest element).
      ! [because the OtherMesh_Element is line2, we can't just call the routine here]
            
  +   if ( Dest%FieldMask(MASKID_MOMENT) ) Dest%Moment = 0._ReKi     ! whole array initialization; required to handle superposition of loads
  +   
         ! ---------------------------- Force ------------------------------------------------
         ! Transfer this source force (lumped) to destination force and/or moment fields (currently lumped):
   
  
positive.code:          END DO !loop through source elements
  
  
        end if ! Src has force, too      
        
                    
     end if !src has moment field
        
  #ifdef MESH_DEBUG     
  
negative.code:          Dest%Force(:,MeshMap%MapLoads(i)%OtherMesh_Element) = Dest%Force(:,MeshMap%MapLoads(i)%OtherMesh_Element) + (Src%Force(:,i) / LoadsScaleFactor)
        end do
        Dest%Force  =  Dest%Force  * LoadsScaleFactor
        
        
        ! M_d += torque
        !if ( Dest%FieldMask(MASKID_FORCE) ) then
           
              ! if the distance (which can never be less than zero) is greater than "zero" and there is a
              ! force in the source mesh, then we need to add a moment to the destination mesh to account
              ! for the mismatch between points
  
  !print *, Src%NNodes , size(MeshMap%MapLoads)            
           do i = 1, Src%NNodes
                 DisplacedPosition =       SrcDisp%TranslationDisp(:,i) + SrcDisp%Position(:,i) &
                                         - ( DestDisp%TranslationDisp(:,MeshMap%MapLoads(i)%OtherMesh_Element) &
  