c  $Header: /usr/people/flittner/radtran/tomrad/pv2.2/src/RCS/cgas2.cmn,v 2.22 2000/08/30 16:38:59 flittner Exp $
c
c     last mod. May 3, 1999...def
c     purpose: add option to compute addition absorbing gas profile using the
c     internal, implicit neutral density profile and a constant mixing ratio.
c     Currently it is set to do only o2 or o4 absorption and is controled by
c     the lo2abs and lo4abs logicals read in the ENV file.
c
      integer mgas,ngas,ildgas
      parameter (mgas=3)
      character*8 fgasprf(mgas),fgasalfa(mgas)
      real*8 alphagas(mgas),totgas(101,mgas),xo2
      common/cgas2/alphagas,totgas,fgasprf,fgasalfa,ngas,ildgas,xo2
      save /cgas2/