c=======================================================================

      subroutine absgas(amass,array) 1
      parameter (mxly=50)
      parameter (nta=9)
      dimension amass(*),array(nta,*)
      common /gasblk/airmass(mxly),gasabs(nta,mxly)

      do 30 j=1,mxly
        amass(j)=airmass(j)
        do 20 i=1,nta
          array(i,j)=gasabs(i,j)
 20     continue
 30   continue

      return
      end