anchor.diff:  
          IF(stat.EQ.1) THEN ! assign warning levels
             ErrStat = ErrID_Warn
  -          ! CALL WrScr(ErrMsg)         
          ELSE ! only the case of a fatal warning returns true; throws a RETURN
             ErrStat = ErrID_Fatal
  -          MAP_ERROR_CHECKER = .TRUE.
          END IF
       END IF
  -  END FUNCTION MAP_ERROR_CHECKER                                                                 !   -------+
  +    
  +  END SUBROUTINE MAP_ERROR_CHECKER                                                                 !   -------+
     !==========================================================================================================
   
    
  
positive.code:     CALL MAP_set_gravity(p%C_obj, InitInp%C_Obj%gravity)
      CALL MAP_set_depth(p%C_obj, InitInp%C_Obj%depth)
      CALL MAP_set_density(p%C_obj, InitInp%C_Obj%sea_density)
      CALL MAP_set_summary_file_name(InitInp%C_obj, message_from_map, status_from_MAP); MAP_CHECKERR()
  
      ! Read the MAP input file, and pass the arguments to the C++ sructures. 
      ! @note : this call the following C function in MAP_FortranBinding.cpp
      CALL map_read_input_file_contents(InitInp%file_name , InitInp, ErrStat)
      MAP_CHECKERRQ("MAP_ERROR[FORT]: cannot read the MAP input file.")
  
      ! This binds MSQS_Init function in C++ with Fortran
      CALL MSQS_Init(InitInp%C_obj   , &
  
negative.code: MODULE MAP
    
     USE MAP_Types
  