anchor.diff:        IF ( ALLOCATED(MeshMapData%Jacobian_pivot      ) ) DEALLOCATE(MeshMapData%Jacobian_pivot      ) 
         IF ( ALLOCATED(MeshMapData%Jac_u_indx          ) ) DEALLOCATE(MeshMapData%Jac_u_indx          ) 
      
  +         ! Copies of input meshes:      
  +      CALL MeshDestroy( MeshMapData%u_ED_PlatformPtMesh,   ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_ED_PlatformPtMesh_2, ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_SD_TPMesh,           ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_SD_LMesh,            ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_SD_LMesh_2,          ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_HD_M_LumpedMesh,     ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_HD_M_DistribMesh,    ErrStat2, ErrMsg2 ); CALL CheckError( )
  +      CALL MeshDestroy( MeshMapData%u_HD_Mesh,             ErrStat2, ErrMsg2 ); CALL CheckError( )
  +            
  +      
      CONTAINS
      
         SUBROUTINE CheckError( )
         
  -         IF ( ErrStat2 /= ErrID_None ) THEN
  -            ErrStat = MAX(ErrStat, ErrStat2)           
  -            IF ( LEN_TRIM(ErrMsg) > 0 ) ErrMsg = TRIM(ErrMsg)//NewLine
  -            ErrMsg = TRIM(ErrMsg)//TRIM(ErrMsg2)
  -         END IF
  +         CALL SetErrStat(ErrStat2, ErrMsg2, ErrStat, ErrMsg,'Destroy_FAST_ModuleMapType' )      
               
         END SUBROUTINE CheckError
      
  
positive.code:          
              
           ! Stored Jacobians:
        REAL(ReKi),     ALLOCATABLE :: Jacobian_ED_SD_HD(:,:)                         ! Stored Jacobian in ED_HD_InputOutputSolve, ED_SD_InputOutputSolve, or ED_SD_HD_InputOutputSolve      
        INTEGER ,       ALLOCATABLE :: Jacobian_pivot(:)                              ! Pivot array used for LU decomposition of Jacobian_ED_SD_HD
        INTEGER ,       ALLOCATABLE :: Jac_u_indx(:,:)                                ! matrix to help fill/pack the u vector in computing the jacobian
        
     END TYPE FAST_ModuleMapType
  
  
negative.code:    USE NWTC_Library
  
     TYPE(ProgDesc), PARAMETER :: FAST_Ver    = &
                                  ProgDesc( 'FAST', 'v8.05.01d-bjj', '7-Mar-2014' ) ! The version number of this module
     
     
     INTEGER(IntKi), PARAMETER :: Module_Unknown = -1
  