anchor.diff:  
       ! Copy the MAP C output types to the native Fortran mesh output types
       DO i = 1,y%PtFairleadLoad%NNodes
  -       y%PtFairleadLoad%Force(1,i) = y%FX(i) 
  -       y%PtFairleadLoad%Force(2,i) = y%FY(i)
  -       y%PtFairleadLoad%Force(3,i) = y%FZ(i)
  +       y%PtFairleadLoad%Force(1,i) = REAL( y%FX(i), ReKi) ! conversion to ReKi for Mesh fields 
  +       y%PtFairleadLoad%Force(2,i) = REAL( y%FY(i), ReKi) ! conversion to ReKi for Mesh fields
  +       y%PtFairleadLoad%Force(3,i) = REAL( y%FZ(i), ReKi) ! conversion to ReKi for Mesh fields
       END DO
   
     END SUBROUTINE MAP_CalcOutput                                                                  !   -------+
  
positive.code:     INTEGER(IntKi)                                  :: i ! Loop counter
  
      message_from_MAP = ""//CHAR(0)
      time = 0
      time = t
  
      ! Now call the _F2C_ routines for the INTENT(IN   ) C objects
      CALL MAP_F2C_CopyInput( u, ErrStat, ErrMsg ) 
  
negative.code:     IF (ErrStat /= ErrID_None) CALL WrScr(TRIM(ErrMsg))                !          |
                                                                         !          |
      DO i = 1,NumNodes                                                  !          |
         Pos(1) = REAL(u%X(i), ReKi)                                          !          |
         Pos(2) = REAL(u%Y(i), ReKi)                                          !          |
         Pos(3) = REAL(u%Z(i), ReKi)                                          !          |
                                                                         !          |
         CALL MeshPositionNode ( u%PtFairleadDisplacement , &            !          |
                                 i                        , &            !          |
  