anchor.diff:      INTEGER(IntKi)                                  :: i ! Loop counter
   
       message_from_MAP = ""//CHAR(0)
  -    time = 0
  -    time = t
  +    time = REAL(t,C_FLOAT) ! double to single conversion here
   
       ! Now call the _F2C_ routines for the INTENT(IN   ) C objects
       CALL MAP_F2C_CopyInput( u, ErrStat, ErrMsg ) 
  
positive.code:     IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))                !          |
                                                                         !          |
      DO i = 1,NumNodes                                                  !          |
         Pos(1) = u%X(i)                                                 !          |
         Pos(2) = u%Y(i)                                                 !          |
         Pos(3) = u%Z(i)                                                 !          |
                                                                         !          |
         CALL MeshPositionNode ( u%PtFairleadDisplacement , &            !          |
                                 i                        , &            !          |
  
negative.code:     InitInp%C_Obj%gravity         =  InitInp%gravity
      InitInp%C_Obj%sea_density     =  InitInp%sea_density
      InitInp%C_Obj%depth           = -InitInp%depth
      InitInp%C_obj%coupled_to_FAST =  InitInp%coupled_to_FAST
      
      ! Set the gravity constant, water depth, and sea density in MAP.
      ! This calls functions in MAP_FortranBinding.cpp
  