anchor.diff:      CHARACTER(KIND=C_CHAR,len=1024)                 :: message_from_MAP
       REAL(KIND=C_FLOAT)                              :: time
   
  -	message_from_MAP = ""//CHAR(0)
  +    message_from_MAP = ""//CHAR(0)
       time = 0
       time = t
   
  
positive.code:                                                    
      status_from_MAP=0                 
      message_from_MAP = ""//CHAR(0)    
      i=0 												   
      ErrStat = ErrID_None                                                                 
      ErrMsg  = ""                                                                         
                                                                                           
  
negative.code:                                                                     !          |                 !          |
      END DO                                                          !   -------+                 !          |
      !===========================================================================                 !          |
                               
     ! ErrStat = ErrID_None
      !          |
      ! Close the MAP input file                                                                   !          |
      CLOSE( Un )                                                                                   !          |
                                                                                                   !          |
    END SUBROUTINE MAP_ReadInputFileContents                                                       !   -------+
    !==========================================================================================================
  