anchor.diff:    WRITE(Ulog, '(a)' ) '  Normal end of execution.'
   
     WRITE(Ulog, '(a)' ) ' '
  -  CALL timestamp ( )
   
     results = x
     V_1     = results(1)
  
positive.code: 
   COMMON N_vib, N_rot, nu_low, nu_high, nu_mid, cp_difference, CV_temps
  
    CALL timestamp ( )
  
  ! Define the contraints on the target variables 
  
  ! x(1) corresponds to the degeneracy of the first harmonic oscillator
  
negative.code:   INTEGER :: N_vib, N_rot
   
   COMMON N_vib, N_rot, nu_low, nu_high, nu_mid, cp_difference, CV_temps
  
  ! Define the contraints on the target variables 
  
  