COMMON CATOM,QNORM,ABND,AWGT,EV,G,ION,GIJ,HN3C2,KTRANS,$
 JRAD,IRAD,F,IWIDE,GA,GW,GQ,KRAD,Z,ALFA,ALFAC,HNY4P,ALAMB,A,B,TOTN,BP,$
 NSTAR,N,C,JFX,IFX,IPHO,A0,TRAD,ITRAD,DNYD,ADAMP,COL
            
COMMON CLABEL,LABEL,ATOMID,CROUT
          
COMMON CSLINE,QMAX,Q0,IND,DIFF,Q,WQ,WQMU,FRQ,TAUQ,DTAUQ,A1,C1,PHI,$
 WPHI,SL,SC,SBCK,JNY,JNYOLD,EJ,EMAXJ,WEQLTE,WEQ,RIJ,RJI,FLUX,OUTINT,COOL
          
COMMON CCONST,EE,HH,CC,BK,EM,UU,HCE,HC2,HCK,EK,PI
          
COMMON CLIMIT,NDEP,NK,NLINE,NWIDE,NRAD,NRFIX,NMU,MQ,NQ