real ramcor,f360,f313,flg3lm,flg4lm,glntlm
      integer irflo,irfhi,iozon,imixr
c
czack      common/const/ramcor(8,6),irflo,irfhi,iozon,imixr,
      common/const/ramcor(9,6),irflo,irfhi,iozon,imixr,
     1             f360(3),f313,flg3lm(2),flg4lm(2),glntlm