anchor.diff:  DO i1 = LBOUND(MeshMapTypeData%MapLoads,1), UBOUND(MeshMapTypeData%MapLoads,1)
     CALL NWTC_Library_Destroymaptype( MeshMapTypeData%MapLoads(i1), ErrStat, ErrMsg )
   ENDDO
  -   DEALLOCATE(MeshMapTypeData%MapLoads)
  +  DEALLOCATE(MeshMapTypeData%MapLoads)
   ENDIF
   IF (ALLOCATED(MeshMapTypeData%MapMotions)) THEN
   DO i1 = LBOUND(MeshMapTypeData%MapMotions,1), UBOUND(MeshMapTypeData%MapMotions,1)
     CALL NWTC_Library_Destroymaptype( MeshMapTypeData%MapMotions(i1), ErrStat, ErrMsg )
   ENDDO
  -   DEALLOCATE(MeshMapTypeData%MapMotions)
  +  DEALLOCATE(MeshMapTypeData%MapMotions)
   ENDIF
   IF (ALLOCATED(MeshMapTypeData%MapSrcToAugmt)) THEN
   DO i1 = LBOUND(MeshMapTypeData%MapSrcToAugmt,1), UBOUND(MeshMapTypeData%MapSrcToAugmt,1)
     CALL NWTC_Library_Destroymaptype( MeshMapTypeData%MapSrcToAugmt(i1), ErrStat, ErrMsg )
   ENDDO
  -   DEALLOCATE(MeshMapTypeData%MapSrcToAugmt)
  +  DEALLOCATE(MeshMapTypeData%MapSrcToAugmt)
   ENDIF
     CALL MeshDestroy( MeshMapTypeData%Augmented_Ln2_Src, ErrStat, ErrMsg )
     CALL MeshDestroy( MeshMapTypeData%Lumped_Points_Src, ErrStat, ErrMsg )
   IF (ALLOCATED(MeshMapTypeData%LoadLn2_A_Mat_Piv)) THEN
  -   DEALLOCATE(MeshMapTypeData%LoadLn2_A_Mat_Piv)
  +  DEALLOCATE(MeshMapTypeData%LoadLn2_A_Mat_Piv)
   ENDIF
   IF (ALLOCATED(MeshMapTypeData%DisplacedPosition)) THEN
  -   DEALLOCATE(MeshMapTypeData%DisplacedPosition)
  +  DEALLOCATE(MeshMapTypeData%DisplacedPosition)
   ENDIF
   IF (ALLOCATED(MeshMapTypeData%LoadLn2_F)) THEN
  -   DEALLOCATE(MeshMapTypeData%LoadLn2_F)
  +  DEALLOCATE(MeshMapTypeData%LoadLn2_F)
   ENDIF
   IF (ALLOCATED(MeshMapTypeData%LoadLn2_A_Mat)) THEN
  -   DEALLOCATE(MeshMapTypeData%LoadLn2_A_Mat)
  +  DEALLOCATE(MeshMapTypeData%LoadLn2_A_Mat)
   ENDIF
   IF (ALLOCATED(MeshMapTypeData%LoadLn2_M)) THEN
  -   DEALLOCATE(MeshMapTypeData%LoadLn2_M)
  +  DEALLOCATE(MeshMapTypeData%LoadLn2_M)
   ENDIF
    END SUBROUTINE NWTC_Library_DestroyMeshMapType
   
  
positive.code:        RETURN
      END IF
      mask1 = .TRUE. 
         OutData%shape_fn = UNPACK(ReKiBuf( Re_Xferred:Re_Xferred+(SIZE(OutData%shape_fn))-1 ), mask1, 0.0_ReKi )
        Re_Xferred   = Re_Xferred   + SIZE(OutData%shape_fn)
      DEALLOCATE(mask1)
   END SUBROUTINE NWTC_Library_UnPackMapType
  
negative.code:    INTEGER(IntKi)                 :: i2, i2_l, i2_u  !  bounds (upper/lower) for an array dimension 2
     INTEGER(IntKi)                 :: i3, i3_l, i3_u  !  bounds (upper/lower) for an array dimension 3
     INTEGER(IntKi)                 :: ErrStat2
     CHARACTER(ErrMsgLen)           :: ErrMsg2
     CHARACTER(*), PARAMETER        :: RoutineName = 'NWTC_Library_CopyMeshMapType'
  ! 
     ErrStat = ErrID_None
  