anchor.diff:     REAL(ReKi), ALLOCATABLE                            :: WAMITin(:,:)          ! Variable for storing time, forces, and body velocities, in m/s or rad/s for WAMIT
      REAL(ReKi), ALLOCATABLE                            :: Morisonin(:,:)        ! Variable for storing time, forces, and body velocities, in m/s or rad/s for Morison elements
      
  +   INTEGER(IntKi)                                     :: NBody                 ! Number of WAMIT bodies to work with if prescribing kinematics on each body (WAMITInputsMod<0)
  +   
      INTEGER(IntKi)                                     :: I                    ! Generic loop counter
      INTEGER(IntKi)                                     :: J                    ! Generic loop counter
      INTEGER(IntKi)                                     :: n                    ! Loop counter (for time step)
  
positive.code:    Time = 0.0
     CALL SimStatus_FirstTime( TiLstPrn, PrevClockTime, SimStrtTime, UsrTime2, time, InitInData%TMax )
  
     DO n = 1, drvrInitInp%NSteps
  
        Time = (n-1) * drvrInitInp%TimeInterval
  
negative.code:          
        ! Set any steady-state inputs, once before the time-stepping loop   
           
        IF (( drvrInitInp%WAMITInputsMod /= 2 ) .AND. ( drvrInitInp%WAMITInputsMod >= 0 )) THEN
                  
           u(1)%PRPMesh%TranslationDisp(:,1)   = drvrInitInp%uWAMITInSteady(1:3) 
  
  