EPOS/epos167/epos.inchy

   1 c +++++1f
   2
   3       parameter (ncenthy= 5)
   4       parameter (netahy= 6)
   5       parameter (ntauhy= 61)
   6       parameter (nphihy= 25)
   7       parameter (nradhy= 75)
   8
   9       common/ctauhoc/ntauhoc(ncenthy)
  10      *      ,tauhoc(ncenthy,ntauhy)
  11
  12       common/hydtab/centhy(ncenthy),etahy(netahy)
  13      *      ,tauhy(ntauhy),phihy(nphihy),radhy(nradhy)
  14      *       ,epsii(ncenthy,netahy,nphihy,nradhy)
  15
  16       common/cpau/ paut(ncenthy,netahy,ntauhy)
  17      *            ,pauf(ncenthy,netahy,ntauhy,nphihy)
  18
  19       common/hydtab3/rom(ncenthy,netahy,ntauhy,2)
  20      *              ,yom(ncenthy,netahy,ntauhy,2)
  21      *              ,wom(ncenthy,netahy,ntauhy,2)
  22
  23       common/hydtab3i/romi(ncenthy,netahy,ntauhy,2)
  24      *               ,yomi(ncenthy,netahy,ntauhy,2)
  25      *               ,womi(ncenthy,netahy,ntauhy,2)
  26