9 common/ctauhoc/ntauhoc(ncenthy)
10 * ,tauhoc(ncenthy,ntauhy)
12 common/hydtab/centhy(ncenthy),etahy(netahy)
13 * ,tauhy(ntauhy),phihy(nphihy),radhy(nradhy)
14 * ,epsii(ncenthy,netahy,nphihy,nradhy)
16 common/cpau/ paut(ncenthy,netahy,ntauhy)
17 * ,pauf(ncenthy,netahy,ntauhy,nphihy)
19 common/hydtab3/rom(ncenthy,netahy,ntauhy,2)
20 * ,yom(ncenthy,netahy,ntauhy,2)
21 * ,wom(ncenthy,netahy,ntauhy,2)
23 common/hydtab3i/romi(ncenthy,netahy,ntauhy,2)
24 * ,yomi(ncenthy,netahy,ntauhy,2)
25 * ,womi(ncenthy,netahy,ntauhy,2)