Symbol Description Uses
iw 863



File Line number Procedure Code
./pkg/fizhi/co2-tran3.h 100 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h 106 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h 10 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 112 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 118 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 124 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 130 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 136 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 142 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 148 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 154 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 160 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 166 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 16 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 172 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 178 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 184 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 190 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 196 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 202 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 208 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 214 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 220 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 226 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 22 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 232 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 238 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 244 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 250 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 256 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 262 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 268 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 274 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 280 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 286 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 28 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 292 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 298 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 304 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 310 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 316 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 322 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 328 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 334 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 340 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 346 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 34 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 352 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 358 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 364 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 370 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 376 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 382 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 388 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 394 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 400 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 406 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 40 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 412 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 418 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 424 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 430 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 436 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 442 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 448 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 454 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 460 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 466 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 46 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 4 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 52 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 58 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 64 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 70 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 76 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 82 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 88 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 94 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/fizhi_lwrad.F 2518 TABLUP
      integer iw,ip,nn
./pkg/fizhi/fizhi_lwrad.F 2537 TABLUP
        iw=int(we+1.5)
./pkg/fizhi/fizhi_lwrad.F 2540 TABLUP
        iw=min(iw,nh-1)
./pkg/fizhi/fizhi_lwrad.F 2541 TABLUP
        iw=max(iw, 2)
./pkg/fizhi/fizhi_lwrad.F 2546 TABLUP
        fw=we-float(iw-1)
./pkg/fizhi/fizhi_lwrad.F 2551 TABLUP
        pa = coef1(ip,iw-1,nn)*(1.-fp)+coef1(ip+1,iw-1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2552 TABLUP
        pb = coef1(ip,iw,  nn)*(1.-fp)+coef1(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2553 TABLUP
        pc = coef1(ip,iw+1,nn)*(1.-fp)+coef1(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2561 TABLUP
        ba = coef2(ip,iw,  nn)*(1.-fp)+coef2(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2562 TABLUP
        bb = coef2(ip,iw+1,nn)*(1.-fp)+coef2(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2565 TABLUP
        ca = coef3(ip,iw,  nn)*(1.-fp)+coef3(ip+1,iw,  nn)*fp
./pkg/fizhi/fizhi_lwrad.F 2566 TABLUP
        cb = coef3(ip,iw+1,nn)*(1.-fp)+coef3(ip+1,iw+1,nn)*fp
./pkg/fizhi/fizhi_lwrad.F 563 IRRAD
      integer i,j,k,ip,iw,it,ib,ik,iq,isb,k1,k2
./pkg/fizhi/fizhi_lwrad.F 803 IRRAD
        do iw=1,nh
./pkg/fizhi/fizhi_lwrad.F 805 IRRAD
          h11(ip,iw,1)=1.0-h11(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 806 IRRAD
          h21(ip,iw,1)=1.0-h21(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 807 IRRAD
          h81(ip,iw,1)=1.0-h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 811 IRRAD
        do iw=1,nc
./pkg/fizhi/fizhi_lwrad.F 813 IRRAD
          c1(ip,iw,1)=1.0-c1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 823 IRRAD
         do iw=1,nc
./pkg/fizhi/fizhi_lwrad.F 825 IRRAD
           c1 (ip,iw,it)= c1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 826 IRRAD
           c2 (ip,iw,it)= c2(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 827 IRRAD
           c3 (ip,iw,it)= c3(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 830 IRRAD
         do iw=1,nh
./pkg/fizhi/fizhi_lwrad.F 832 IRRAD
           h11(ip,iw,it)=h11(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 833 IRRAD
           h12(ip,iw,it)=h12(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 834 IRRAD
           h13(ip,iw,it)=h13(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 835 IRRAD
           h21(ip,iw,it)=h21(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 836 IRRAD
           h22(ip,iw,it)=h22(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 837 IRRAD
           h23(ip,iw,it)=h23(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 838 IRRAD
           h81(ip,iw,it)=h81(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 839 IRRAD
           h82(ip,iw,it)=h82(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 840 IRRAD
           h83(ip,iw,it)=h83(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 849 IRRAD
        do iw=1,no
./pkg/fizhi/fizhi_lwrad.F 851 IRRAD
          o1(ip,iw,1)=1.0-o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 856 IRRAD
         do iw=1,no
./pkg/fizhi/fizhi_lwrad.F 858 IRRAD
           o1 (ip,iw,it)= o1(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 859 IRRAD
           o2 (ip,iw,it)= o2(ip,iw,1)
./pkg/fizhi/fizhi_lwrad.F 860 IRRAD
           o3 (ip,iw,it)= o3(ip,iw,1)
./pkg/fizhi/fizhi_swrad.F 2522 FLXCO2
      integer i,j,k,ic,iw
./pkg/fizhi/fizhi_swrad.F 2543 FLXCO2
          iw=int( (wlog+4.15)*xx+1.)
./pkg/fizhi/fizhi_swrad.F 2545 FLXCO2
          if(iw.lt.2)iw=2
./pkg/fizhi/fizhi_swrad.F 2547 FLXCO2
          if(iw.gt.19)iw=19
./pkg/fizhi/fizhi_swrad.F 2549 FLXCO2
          dw=wlog-float(iw-2)*.3+4.
./pkg/fizhi/fizhi_swrad.F 2550 FLXCO2
          x1=cah(1,iw-1)+(cah(1,iw)-cah(1,iw-1))*xx*dw
./pkg/fizhi/fizhi_swrad.F 2551 FLXCO2
          x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))*xx*dw
./pkg/fizhi/fizhi_swrad.F 2552 FLXCO2
          y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc
./pkg/fizhi/h2o-tran3.h 1004 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 100 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1012 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1020 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1028 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1036 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1044 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1052 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1060 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1068 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1076 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1084 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 108 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1092 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1100 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1108 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1116 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1124 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1132 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1140 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1148 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1156 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1164 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 116 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1172 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1180 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1188 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1196 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1204 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1212 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1220 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1228 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1236 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1244 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 124 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1252 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1260 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1268 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1276 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1284 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1292 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 12 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1300 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1308 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1316 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1324 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 132 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1332 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1340 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1348 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1356 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1364 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1372 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1380 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1388 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1396 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1404 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 140 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1412 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1420 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1428 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1436 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1444 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1452 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1460 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1468 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1476 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1484 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 148 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1492 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1500 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1508 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1516 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1524 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1532 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1540 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1548 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1556 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1564 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 156 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1572 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1580 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1588 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1596 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1604 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1612 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1620 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1628 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1636 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1644 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 164 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1652 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1660 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1668 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1676 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1684 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1692 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1700 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1708 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1716 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1724 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 172 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1732 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1740 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1748 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1756 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1764 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1772 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1780 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1788 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1796 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1804 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 180 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1812 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1820 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1828 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1836 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1844 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1852 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1860 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1868 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 188 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 196 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 204 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 20 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 212 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 220 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 228 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 236 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 244 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 252 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 260 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 268 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 276 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 284 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 28 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 292 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 300 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 308 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 316 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 324 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 332 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 340 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 348 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 356 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 364 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 36 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 372 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 380 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 388 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 396 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 404 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 412 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 420 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 428 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 436 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 444 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 44 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 452 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 460 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 468 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 476 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 484 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 492 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 4 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 500 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 508 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 516 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 524 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 52 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 532 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 540 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 548 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 556 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 564 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 572 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 580 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 588 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 596 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 604 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 60 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 612 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 620 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 628 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 636 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 644 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 652 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 660 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 668 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 676 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 684 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 68 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 692 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 700 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 708 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 716 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 724 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 732 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 740 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 748 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 756 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 764 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 76 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 772 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 780 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 788 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 796 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 804 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 812 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 820 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 828 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 836 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 844 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 84 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 852 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 860 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 868 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 876 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 884 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 892 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 900 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 908 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 916 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 924 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 92 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 932 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 940 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 948 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 956 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 964 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 972 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 980 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 988 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 996 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/o3-tran3.h 100 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h 106 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h 10 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 112 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 118 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 124 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 130 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 136 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 142 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 148 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 154 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 160 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 166 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 16 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 172 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 178 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 184 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 190 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 196 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 202 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 208 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 214 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 220 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 226 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 22 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 232 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 238 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 244 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 250 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 256 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 262 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 268 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 274 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 280 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 286 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 28 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 292 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 298 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 304 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 310 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 316 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 322 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 328 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 334 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 340 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 346 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 34 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 352 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 358 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 364 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 370 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 376 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 382 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 388 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 394 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 400 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 406 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 40 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 412 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 418 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 424 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 430 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 436 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 442 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 448 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 454 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 460 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 466 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 46 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 4 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 52 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 58 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 64 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 70 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 76 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 82 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 88 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 94 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/