anchor.diff:     !...............................................................................................................................
      ! Routines called in loose coupling -- the glue code may implement this in various ways
      !...............................................................................................................................
  -
  +   Time = 0.0
  +   CALL SimStatus_FirstTime( TiLstPrn, PrevClockTime, SimStrtTime, UsrTime2, time, InitInData%TMax )
   
      DO n = 1, drvrInitInp%NSteps
   
  
positive.code: !        /fpp                  because of they both have preprocessor statements
  ! ----------------------------------------------------------------------------------- 
  
  
  
     INTEGER(IntKi), PARAMETER                           :: NumInp = 1           ! Number of inputs sent to HydroDyn_UpdateStates
  
negative.code:          ! Initialize the module
     Interval = drvrInitInp%TimeInterval
     CALL HydroDyn_Init( InitInData, u(1), p,  x, xd, z, OtherState, y, Interval, InitOutData, ErrStat, ErrMsg )
     if (errStat >= AbortErrLev) then
           ! Clean up and exit
        call HD_DvrCleanup()
     end if
  
     IF ( Interval /= drvrInitInp%TimeInterval) THEN
        CALL WrScr('The HydroDyn Module attempted to change timestep interval, but this is not allowed.  The HydroDyn Module must use the Driver Interval.')
        call HD_DvrCleanup() 
        
     END IF
  
  
        ! Write the gridded wave elevation data to a file
  
     IF ( drvrInitInp%WaveElevSeriesFlag )     CALL WaveElevGrid_Output  (drvrInitInp, InitInData, InitOutData, p, ErrStat, ErrMsg)
     if (errStat >= AbortErrLev) then
           ! Clean up and exit
        call HD_DvrCleanup()
     end if
  
     
        ! Destroy initialization data
  