anchor.diff:        ! Set zero values for the OtherState arrays
      OtherState%PtfmAM       =  0.0_ReKi
      OtherState%PtfmFt       =  0.0_ReKi
  +   OtherState%LastTimeStep =  -1.0_DbKi
      OtherState%Initialized  =  .TRUE.
   
   
  
positive.code:    DLL_PtfmAM  =  0.0_C_FLOAT
     DLL_PtfmFt  =  0.0_C_FLOAT
  #else
        ! Call OrcaFlex to run the calculation.  There is no error trapping on the OrcaFlex side, so we will have to do some checks on what receive back
     CALL OrcaDLL_Calc( DLL_X, DLL_Xdot, DLL_ZTime, DLL_DirRootName, DLL_PtfmAM, DLL_PtfmFt )
  #endif
  
  
  
negative.code:    END IF
  
  
     u%PtfmMesh%RemapFlag    = .TRUE.
     y%PtfmMesh%RemapFlag    = .TRUE.
  
  
  
  