anchor.diff:    INTEGER :: Uin  ! input file unit number
     INTEGER :: Uout ! output file unit number
   
  -
  -  ! these variables are set to the common block.
  +  ! These variables are just used to calculate the running time. FEEL FREE TO REMOVE
  +  CHARACTER(10) :: time
  +  CHARACTER(8) :: date
  +  CHARACTER(5) :: zone
  +  INTEGER, DIMENSION(8) :: start_value, end_value
  +  
  +
  +  ! These variables are set to the common block.
     ! They are required by the fitting routine within DQED
     COMMON N_vib, N_rot, nu_low, nu_high, nu_mid, cp_difference, CV_temps
   
  
positive.code:   DEALLOCATE(Total_predicted_freq )
    DEALLOCATE( HR_params )
  
    RETURN
  9998 CONTINUE
    WRITE(0,*) 'End of input stream.'
    ! Close the input/output file units
  
negative.code:   INTEGER :: Uout
    INTEGER :: Ulog
    COMMON /Fio/ Ulog
  
  ! Should be getting these unit numbers from iso_fortran_env module
  ! See http://stackoverflow.com/questions/8508590/stderr-in-fortran90
  