anchor.diff:  !        /fpp                  because of they both have preprocessor statements
   ! ----------------------------------------------------------------------------------- 
   
  +REAL(ReKi), PARAMETER        :: SecPerDay = 24*60*60.0_ReKi                     ! Number of seconds per day
   
   
      INTEGER(IntKi), PARAMETER                           :: NumInp = 1           ! Number of inputs sent to HydroDyn_UpdateStates
  
positive.code: 
  end subroutine print_help
  
  END PROGRAM HydroDynDriver
  
  
negative.code:    REAL(ReKi)                                         :: dcm (3,3)            ! The resulting transformation matrix from X to x, (-).
     CHARACTER(1024)                                    :: drvrFilename         ! Filename and path for the driver input file.  This is passed in as a command line argument when running the Driver exe.
     TYPE(HD_Drvr_InitInput)                            :: drvrInitInp          ! Initialization data for the driver program
     
     integer                                        :: StrtTime (8)                            ! Start time of simulation (including intialization)
     integer                                        :: SimStrtTime (8)                         ! Start time of simulation (after initialization)
     real(ReKi)                                     :: PrevClockTime                           ! Clock time at start of simulation in seconds
     real                                           :: UsrTime1                                ! User CPU time for simulation initialization
     real                                           :: UsrTime2                                ! User CPU time for simulation (without intialization)
     real                                           :: UsrTimeDiff                             ! Difference in CPU time from start to finish of program execution
     real(DbKi)                                     :: TiLstPrn                                ! The simulation time of the last print
     real(DbKi)                                     :: t_global                                ! Current simulation time (for global/FAST simulation)
     real(DbKi)                                     :: SttsTime                                ! Amount of time between screen status messages (sec)
     integer                                        :: n_SttsTime                              ! Number of time steps between screen status messages (-)
  
     
     ! For testing
     LOGICAL                                            :: DoTight = .FALSE.
  