anchor.diff:         RETURN
       END IF
   
  -    WRITE(*,*) y%writeOutput ! @bonnie : remove
  +    !WRITE(*,*) y%writeOutput ! @bonnie : remove
   
       ! Copy the MAP C output types to the native Fortran mesh output types
       DO i = 1,y%PtFairleadLoad%NNodes
  
positive.code:     INTEGER( KIND=C_INT )                           :: status_from_MAP = 0
      CHARACTER( KIND=C_CHAR,LEN=1024 )               :: message_from_MAP = ""//CHAR(0)
      !TYPE(ProgDesc)                                  :: MAP_Ver = ProgDesc( 'MAP', 'date', 'huh' )
      INTEGER(IntKi)                                  :: i = 0
      REAL(ReKi)                                      :: Pos(3)
      INTEGER(IntKi)                                  :: NumNodes = 0
      INTEGER(C_INT)                                  :: numHeaderStr=0
      CHARACTER(16),DIMENSION(:), ALLOCATABLE, TARGET :: strHdrArray ! Hopefully none of the headers are more than 16 characters long
      TYPE(C_PTR), DIMENSION(:), ALLOCATABLE          :: strHdrPtrs
      CHARACTER(15),DIMENSION(:), ALLOCATABLE, TARGET :: strUntArray ! Hopefully none of the headers are more than 10 characters long
  
negative.code: 
      ! Give the program discription (name, version number, date)
      InitOut%MAP_version = InitOut%C_obj%MAP_version
      CALL RemoveNullChar( InitOut%MAP_version )       
  
      InitOut%MAP_date = InitOut%C_obj%MAP_date
      CALL RemoveNullChar( InitOut%MAP_date )       
  
      InitOut%Ver = ProgDesc('MAP',InitOut%MAP_version,InitOut%MAP_date)
  
  