anchor.diff:      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)                                                 !          |
  +       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                        , &            !          |
  
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: 
      ! Copy the MAP C output types to the native Fortran mesh output types
      DO i = 1,y%PtFairleadLoad%NNodes
         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                                                                  !   -------+
  