anchor.diff:           END DO
         END DO
   
  -      t = 0.0_ReKi     ! start time at zero
  +      t = 0.0_DbKi     ! start time at zero
   
         ! because TimeStep wants an array...
         call MD_CopyInput( u, uArray(1), MESH_NEWCOPY, ErrStat2, ErrMsg2 )
  
positive.code: 
           Real(ReKi), INTENT( IN )      :: X(:)           ! state vector, provided
           Real(ReKi), INTENT( INOUT )   :: Xd(:)          ! derivative of state vector, returned ! cahnged to INOUT
           Real(ReKi), INTENT (IN)       :: t              ! instantaneous time
           TYPE(MD_Line), INTENT (INOUT) :: Line           ! label for the current line, for convenience
           TYPE(MD_LineProp), INTENT(IN) :: LineProp       ! the single line property set for the line of interest
           Real(ReKi), INTENT(INOUT)     :: FairFtot(:)    ! total force on Connect top of line is attached to
  
negative.code:       TYPE(MD_ContinuousStateType)                        :: dxdt       ! time derivatives of continuous states (initialized in CalcContStateDeriv)
        TYPE(MD_ContinuousStateType)                        :: x2         ! temporary copy of continuous states used in RK2 calculations
        INTEGER(IntKi)                                      :: NdtM       ! the number of time steps to make with the mooring model
        Real(DbKi)                                          :: dtM        ! the actual time step size to use
        INTEGER(IntKi)                                      :: Nx         ! size of states vector
        INTEGER(IntKi)                                      :: I          ! counter
        INTEGER(IntKi)                                      :: J          ! counter
  