anchor.diff:    REAL(8), ALLOCATABLE, DIMENSION(:) :: RsCrsR2_pred_freq, Alcohol_pred_freq
     REAL(8), ALLOCATABLE, DIMENSION(:) :: Ether_pred_freq, ROOH_pred_freq
     REAL(8), ALLOCATABLE, DIMENSION(:) :: ROOR_pred_freq, peroxy_pred_freq
  +  REAL(8), ALLOCATABLE, DIMENSION(:) :: Rings_pred_freq  
   
   
   ! The total number of bonds specified by the connectivity table
  
positive.code:                              CdCrsR_pred_freq, OdCrsR_pred_freq,   &
                               RsCrsR2_pred_freq, Alcohol_pred_freq, &
                               Ether_pred_freq, ROOH_pred_freq,      &
                               ROOR_pred_freq, peroxy_pred_freq      /)
  
   !------------------------------------------------------------------------------
  !   Deallocate all the characteristic frequency arrays
  
negative.code:   ALLOCATE(  ROOH_pred_freq(     ROOH     * 5 ) )
    ALLOCATE(  ROOR_pred_freq(     ROOR     * 3 ) )
    ALLOCATE(  peroxy_pred_freq(   peroxy   * 3 ) )
  
    ALLOCATE(  Rings_pred_freq(    Rings    * 2 ) )
  
  !------------------------------------------------------------------------------
  !  END ALLOCATING ALL THE VECTORS FOR PREDICTED FREQUENCIES
  