anchor.diff:        CALL MeshMapCreate( Mesh1_O, Mesh2_I,     Map_Mod1_Mod2, ErrStat, ErrMsg );       IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))   
         CALL MeshMapCreate( Mesh2_O, Mesh1_I,     Map_Mod2_Mod1, ErrStat, ErrMsg );       IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))
         
  -      CALL MeshMapCreate( Mesh1_I, Mesh1_I_1PT, Map_Mod1_I_1PT,  ErrStat, ErrMsg );       IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))
  -      CALL MeshMapCreate( Mesh2_O, Mesh2_O_1PT, Map_Mod2_O_1PT,  ErrStat, ErrMsg );       IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))
  -            
  -                  
         ! ..............................................................................................................................   
         ! Map the outputs to inputs:
         ! ..............................................................................................................................   
         IF (Mesh1Type == ELEMENT_POINT ) THEN
  -         IF ( Mesh2Type == ELEMENT_POINT ) THEN
  +         IF ( Mesh2Type == ELEMENT_POINT ) THEN            
               CALL Transfer_Point_to_Point( Mesh1_O, Mesh2_I, Map_Mod1_Mod2, ErrStat, ErrMsg );                     IF (ErrStat /= ErrID_None) CALL WrScr("*******"//TRIM(ErrMsg))     
  -            CALL Transfer_Point_to_Point( Mesh2_O, Mesh1_I, Map_Mod2_Mod1, ErrStat, ErrMsg, Mesh2_I, Mesh1_O );   IF (ErrStat /= ErrID_None) CALL WrScr("*******"//TRIM(ErrMsg))   
  +            CALL Transfer_Point_to_Point( Mesh2_O, Mesh1_I, Map_Mod2_Mod1, ErrStat, ErrMsg, Mesh2_I, Mesh1_O );   IF (ErrStat /= ErrID_None) CALL WrScr("*******"//TRIM(ErrMsg))               
            ELSEIF ( Mesh2Type == ELEMENT_LINE2) THEN                                                                
               CALL Transfer_Point_to_Line2( Mesh1_O, Mesh2_I, Map_Mod1_Mod2, ErrStat, ErrMsg );                     IF (ErrStat /= ErrID_None) CALL WrScr("*******"//TRIM(ErrMsg))     
               CALL Transfer_Line2_to_Point( Mesh2_O, Mesh1_I, Map_Mod2_Mod1, ErrStat, ErrMsg, Mesh2_I, Mesh1_O );   IF (ErrStat /= ErrID_None) CALL WrScr("*******"//TRIM(ErrMsg))         
  
positive.code:    
        WRITE(BinOutputName,'(A,A,A)') 'Test', TRIM(Num2LStr(TestNumber)),'Meshes.bin'
        
        CALL CreateTotalLoadsPointMeshes()
     
        ! ..............................................................................................................................   
        ! Create sibling input meshes: 
  
negative.code: 
        call MeshMapDestroy(Map_Mod1_Mod2, ErrStat, ErrMsg);IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))
        call MeshMapDestroy(Map_Mod2_Mod1, ErrStat, ErrMsg);IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))
                      
        if (allocated(LinVec_1)) deallocate(LinVec_1)
        if (allocated(LinVec_2)) deallocate(LinVec_2)      
        if (allocated(LinVec_1_theta)) deallocate(LinVec_1_theta)
        if (allocated(LinVec_2_theta)) deallocate(LinVec_2_theta)      
        if (allocated(LinVec_1_a)) deallocate(LinVec_1_a)
        if (allocated(LinVec_1_b)) deallocate(LinVec_1_b)
        if (allocated(LinVec_1_c)) deallocate(LinVec_1_c)      
        
     end do
     
     
     
     
  contains   
     ! ..............................................   
     subroutine CreateOutputMeshes_Test1()   
        ! this is a point-to-point mapping, with one point going to many.
  