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 CATMOS,GRAV,CMASS,TEMP,NNE,VEL,TAU,XCONT,SCAT,XNORM,HEIGHT
COMMON CATMID,ATMOID,DPID,DPTYPE
          
COMMON CATMO2,VTURB,BH,NH,RHO
          
COMMON CTRAN,XMY,X,S,PMS,IPLUS,IMINUS,P,RNY
          
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 CGAUSI,XMU,WMU
          
COMMON CCONST,EE,HH,CC,BK,EM,UU,HCE,HC2,HCK,EK,PI
          
COMMON CINPUT,ELIM1,ELIM2,THIN,IATOM2,ICONV,IHSE,ILAMBD,IOPAC,ISTART,$
 ISUM,IT,ITMAX,ITRAN,IWABND,IWATMS,IWATOM,IWCHAN,IWDAMP,IWEMAX,IWEQW,$
 IWEVEC,IWHEAD,IWHSE,IWLGMX,IWLINE,IWLTE,IWN,IWNIIT,IWOPAC,IWRAD,$
 IWRATE,IWSTRT,IWTAUQ,IWTEST,IWWMAT
          
COMMON CFILE,DATA_IDL2,DATA_JNY
          
COMMON CLIMIT,NDEP,NK,NLINE,NWIDE,NRAD,NRFIX,NMU,MQ,NQ
          
COMMON CRATE,PT,PN
          
COMMON CCNTR,CNTRBI,CNTRBF,CNTRBR,XMEANI,XMEANF,XMEANR,TAULG
          
COMMON CNIIT,NIIT,NIITMAX
          
common copac,xla,chi,prov,sumabs,sumsca,provid,provid0,kr_xla,ny_xla