anchor.diff:           END DO !loop through source elements
   
   
  -      end if ! Src has force, too      
  -      
  +      !end if ! Dest has moment, too      
                     
  +      
  +   end if !source has force
  +   
  +      
  +      ! ---------------------------- Moments ------------------------------------------------
  +      ! Transfer this source moment to the destination moment field
  +
  +   if ( Src%FieldMask(MASKID_Moment) ) then !
  +      
  +      
  +      DO i = 1,  Src%Nnodes  ! the source nodes
  +         
  +         jElem = MeshMap%MapLoads(i)%OtherMesh_Element
  +         DO j = 1,2 ! number of nodes on dest 
  +            jNode = Dest%ElemTable(ELEMENT_LINE2)%Elements(jElem)%ElemNodes(j)
  +            Dest%Moment(:,jNode) = Dest%Moment(:,jNode) + (Src%Moment(:,i)/LoadsScaleFactor)*MeshMap%MapLoads(i)%shape_fn(j)             
  +         END DO !j
  +
  +      END DO !loop through source nodes
  +      
  +      
      end if !src has moment field
         
   #ifdef MESH_DEBUG     
  
positive.code: 
        END DO !loop through source nodes
        
     end if !source has force
     
        
        ! ---------------------------- Moments ------------------------------------------------
        ! Transfer this source moment to the destination moment field
  
     if ( Src%FieldMask(MASKID_Moment) ) then !
        Dest%Moment = 0._ReKi     ! whole array initialization; required to handle superposition of loads
        
        DO i = 1,  Src%Nnodes  ! the source nodes
           
           jElem = MeshMap%MapLoads(i)%OtherMesh_Element
           DO j = 1,2 ! number of nodes on dest 
              jNode = Dest%ElemTable(ELEMENT_LINE2)%Elements(jElem)%ElemNodes(j)
              Dest%Moment(:,jNode) = Dest%Moment(:,jNode) + (Src%Moment(:,i)/LoadsScaleFactor)*MeshMap%MapLoads(i)%shape_fn(j)             
           END DO !j
  
        END DO !loop through source nodes
        
        
              ! calculate the moment due to force
        if ( Src%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
  
negative.code:    ! 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):
  
  