SUBROUTINE CHECKLABEL ( I, ELLABEL )
Argument Definitions (+ indicates altered content)
CHARACTER*8        ELLABEL
INTEGER            I
Description
  Copyright (C) 1978 Charlotte Froese Fisher 
  Copyright (C) 2012 Jacek Kobus 
 
 
Thsi subroutine sets n and l values for a given orbital label
Source file:checklabel.f
Parameter Variables Used
INTEGER            MAXNO              (MAXNO = 29999)
INTEGER            MAXORB             (MAXORB = 20)
Local Variables (+ indicates altered content)
INTEGER           +J
Referenced Common Block Variables (+ indicates altered content)
MCOMMBLOCK         INTEGER           +L(MAXORB)
MCOMMBLOCK         INTEGER           +N(MAXORB)
STATE              REAL*8            +QC(MAXORB,40)