anchor.diff: -#define MAP_CHECKERR() IF(MAP_ERROR_CHECKER(message_from_MAP,status_from_MAP,ErrMsg,ErrStat)) RETURN
  -#define MAP_CHECKERRQ(string) IF(MAP_ERROR(ErrMsg,ErrStat,string)) RETURN
  -
   MODULE MAP
     
      USE MAP_Types
  
positive.code:     INTEGER(KIND=C_INT)                             :: status_from_MAP
      CHARACTER(KIND=C_CHAR), DIMENSION(1024)         :: message_from_MAP 
      REAL(KIND=C_FLOAT)                              :: time
      integer                                         :: i
    
      time = t
      message_from_MAP = ' '
      
  
negative.code:                    InitOut%C_obj   , &
                     status_from_MAP , &
                     message_from_MAP )
        CALL MAP_ERROR_CHECKER(message_from_MAP,status_from_MAP,ErrMsg2,ErrStat2);
        CALL SetErrStat(ErrStat2,ErrMsg2, ErrStat, ErrMsg, RoutineName)
        IF (ErrStat >= AbortErrLev) RETURN
  
      ! ==========   MAP F2C (literally, Fortran to C) conversion   ===========================================
      ! Now call the C2FC_ routines for the INTENT(  OUT) C objects
  