Symbol Description Uses
iw 878



File Line number Procedure Code
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2515 FLXCO2
      integer i,j,k,ic,iw 
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2536 FLXCO2
          iw=int( (wlog+4.15)*xx+1.)
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2538 FLXCO2
          if(iw.lt.2)iw=2
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2540 FLXCO2
          if(iw.gt.19)iw=19     
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2542 FLXCO2
          dw=wlog-float(iw-2)*.3+4.   
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2543 FLXCO2
          x1=cah(1,iw-1)+(cah(1,iw)-cah(1,iw-1))*xx*dw
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2544 FLXCO2
          x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))*xx*dw
./verification/fizhi-cs-aqualev10/code/fizhi_swrad.F 2545 FLXCO2
          y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc
./pkg/fizhi/fizhi_swrad.F 2514 FLXCO2
      integer i,j,k,ic,iw 
./pkg/fizhi/fizhi_swrad.F 2535 FLXCO2
          iw=int( (wlog+4.15)*xx+1.)
./pkg/fizhi/fizhi_swrad.F 2537 FLXCO2
          if(iw.lt.2)iw=2
./pkg/fizhi/fizhi_swrad.F 2539 FLXCO2
          if(iw.gt.19)iw=19     
./pkg/fizhi/fizhi_swrad.F 2541 FLXCO2
          dw=wlog-float(iw-2)*.3+4.   
./pkg/fizhi/fizhi_swrad.F 2542 FLXCO2
          x1=cah(1,iw-1)+(cah(1,iw)-cah(1,iw-1))*xx*dw
./pkg/fizhi/fizhi_swrad.F 2543 FLXCO2
          x2=cah(ic-1,iw-1)+(cah(ic-1,iw)-cah(ic-1,iw-1))*xx*dw
./pkg/fizhi/fizhi_swrad.F 2544 FLXCO2
          y2=x2+(cah(ic,iw-1)-cah(ic-1,iw-1))*xx*dc
./pkg/fizhi/co2-tran3.h 103 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h 109 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 115 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 121 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 7, 7)/
./pkg/fizhi/co2-tran3.h 127 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 133 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 139 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 8, 8)/
./pkg/fizhi/co2-tran3.h 13 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 145 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 151 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 157 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 9, 9)/
./pkg/fizhi/co2-tran3.h 163 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 169 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 175 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=10,10)/
./pkg/fizhi/co2-tran3.h 181 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 187 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 193 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=11,11)/
./pkg/fizhi/co2-tran3.h 199 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 19 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 1 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 205 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 211 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=12,12)/
./pkg/fizhi/co2-tran3.h 217 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 223 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 229 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=13,13)/
./pkg/fizhi/co2-tran3.h 235 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 241 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 247 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=14,14)/
./pkg/fizhi/co2-tran3.h 253 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 259 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 25 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 265 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=15,15)/
./pkg/fizhi/co2-tran3.h 271 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 277 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 283 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=16,16)/
./pkg/fizhi/co2-tran3.h 289 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 295 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 301 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=17,17)/
./pkg/fizhi/co2-tran3.h 307 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 313 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 319 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=18,18)/
./pkg/fizhi/co2-tran3.h 31 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 2, 2)/
./pkg/fizhi/co2-tran3.h 325 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 331 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 337 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=19,19)/
./pkg/fizhi/co2-tran3.h 343 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 349 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 355 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=20,20)/
./pkg/fizhi/co2-tran3.h 361 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 367 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 373 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=21,21)/
./pkg/fizhi/co2-tran3.h 379 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 37 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 385 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 391 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=22,22)/
./pkg/fizhi/co2-tran3.h 397 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 403 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 409 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=23,23)/
./pkg/fizhi/co2-tran3.h 415 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 421 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 427 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=24,24)/
./pkg/fizhi/co2-tran3.h 433 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 439 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 43 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 445 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=25,25)/
./pkg/fizhi/co2-tran3.h 451 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 457 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 463 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip=26,26)/
./pkg/fizhi/co2-tran3.h 49 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 3, 3)/
./pkg/fizhi/co2-tran3.h 55 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 61 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 67 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 4, 4)/
./pkg/fizhi/co2-tran3.h 73 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 79 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 7 NO PROCEDURE
      data ((c2(ip,iw,1),iw=1,24),ip= 1, 1)/
./pkg/fizhi/co2-tran3.h 85 NO PROCEDURE
      data ((c3(ip,iw,1),iw=1,24),ip= 5, 5)/
./pkg/fizhi/co2-tran3.h 91 NO PROCEDURE
      data ((c1(ip,iw,1),iw=1,24),ip= 6, 6)/
./pkg/fizhi/co2-tran3.h 97 NO PROCEDURE
      data ((c2(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/h2o-tran3.h 1001 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1009 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1017 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1025 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1033 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1041 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1049 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1057 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 105 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1065 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1073 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1081 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1089 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1097 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1105 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1113 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1121 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1129 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1137 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 113 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1145 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1153 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1161 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1169 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1177 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1185 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1193 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1201 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1209 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1217 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 121 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1225 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1233 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1241 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1249 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1257 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1265 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1273 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1281 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1289 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 1297 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 129 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1305 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1313 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 1321 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1329 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1337 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 1345 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1353 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1361 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 1369 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1377 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 137 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1385 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 1393 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1401 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1409 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1417 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1425 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1433 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1441 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1449 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1457 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 145 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1465 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1473 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1481 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 1489 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1497 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1505 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 1513 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1521 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1529 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 1537 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 153 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1545 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1553 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 1561 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1569 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1577 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 1585 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1593 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1601 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 1609 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1617 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 161 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 1625 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 1633 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1641 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1649 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 1657 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1665 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1673 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 1681 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1689 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 1697 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 169 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1705 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1713 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1721 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 1729 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1737 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1745 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 1753 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1761 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1769 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 1777 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 177 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1785 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 1793 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 17 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 1801 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1809 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1817 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 1825 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1833 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1841 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 1849 NO PROCEDURE
      data ((h81(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 1857 NO PROCEDURE
      data ((h82(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 185 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 1865 NO PROCEDURE
      data ((h83(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 193 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 1 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 201 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 209 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 217 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 225 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 233 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 241 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 249 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 257 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 25 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 265 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 273 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 281 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 289 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 297 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 305 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 313 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 321 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 329 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 337 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 33 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 345 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 353 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 361 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 369 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 377 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 385 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 393 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 401 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=17,17)/
./pkg/fizhi/h2o-tran3.h 409 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 417 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 41 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 425 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=18,18)/
./pkg/fizhi/h2o-tran3.h 433 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 441 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 449 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=19,19)/
./pkg/fizhi/h2o-tran3.h 457 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 465 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 473 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=20,20)/
./pkg/fizhi/h2o-tran3.h 481 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 489 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 497 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=21,21)/
./pkg/fizhi/h2o-tran3.h 49 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 505 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 513 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 521 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=22,22)/
./pkg/fizhi/h2o-tran3.h 529 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 537 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 545 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=23,23)/
./pkg/fizhi/h2o-tran3.h 553 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 561 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 569 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=24,24)/
./pkg/fizhi/h2o-tran3.h 577 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 57 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 585 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 593 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=25,25)/
./pkg/fizhi/h2o-tran3.h 601 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 609 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 617 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip=26,26)/
./pkg/fizhi/h2o-tran3.h 625 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 633 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 641 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/h2o-tran3.h 649 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 657 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 65 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 665 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 2, 2)/
./pkg/fizhi/h2o-tran3.h 673 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 681 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 689 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 3, 3)/
./pkg/fizhi/h2o-tran3.h 697 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 705 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 713 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 721 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 729 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 737 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 73 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 745 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 753 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 761 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 6, 6)/
./pkg/fizhi/h2o-tran3.h 769 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 777 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 785 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 7, 7)/
./pkg/fizhi/h2o-tran3.h 793 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 801 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 809 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 8, 8)/
./pkg/fizhi/h2o-tran3.h 817 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 81 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 825 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 833 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip= 9, 9)/
./pkg/fizhi/h2o-tran3.h 841 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 849 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 857 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=10,10)/
./pkg/fizhi/h2o-tran3.h 865 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 873 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 881 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=11,11)/
./pkg/fizhi/h2o-tran3.h 889 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 897 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 89 NO PROCEDURE
      data ((h13(ip,iw,1),iw=1,31),ip= 4, 4)/
./pkg/fizhi/h2o-tran3.h 905 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=12,12)/
./pkg/fizhi/h2o-tran3.h 913 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 921 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 929 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=13,13)/
./pkg/fizhi/h2o-tran3.h 937 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 945 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 953 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=14,14)/
./pkg/fizhi/h2o-tran3.h 961 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 969 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 977 NO PROCEDURE
      data ((h23(ip,iw,1),iw=1,31),ip=15,15)/
./pkg/fizhi/h2o-tran3.h 97 NO PROCEDURE
      data ((h11(ip,iw,1),iw=1,31),ip= 5, 5)/
./pkg/fizhi/h2o-tran3.h 985 NO PROCEDURE
      data ((h21(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 993 NO PROCEDURE
      data ((h22(ip,iw,1),iw=1,31),ip=16,16)/
./pkg/fizhi/h2o-tran3.h 9 NO PROCEDURE
      data ((h12(ip,iw,1),iw=1,31),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 103 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h 109 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 115 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 121 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 7, 7)/
./pkg/fizhi/o3-tran3.h 127 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 133 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 139 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 8, 8)/
./pkg/fizhi/o3-tran3.h 13 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 145 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 151 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 157 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 9, 9)/
./pkg/fizhi/o3-tran3.h 163 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 169 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 175 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=10,10)/
./pkg/fizhi/o3-tran3.h 181 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 187 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 193 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=11,11)/
./pkg/fizhi/o3-tran3.h 199 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 19 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 1 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 205 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 211 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=12,12)/
./pkg/fizhi/o3-tran3.h 217 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 223 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 229 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=13,13)/
./pkg/fizhi/o3-tran3.h 235 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 241 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 247 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=14,14)/
./pkg/fizhi/o3-tran3.h 253 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 259 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 25 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 265 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=15,15)/
./pkg/fizhi/o3-tran3.h 271 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 277 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 283 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=16,16)/
./pkg/fizhi/o3-tran3.h 289 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 295 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 301 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=17,17)/
./pkg/fizhi/o3-tran3.h 307 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 313 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 319 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=18,18)/
./pkg/fizhi/o3-tran3.h 31 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 2, 2)/
./pkg/fizhi/o3-tran3.h 325 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 331 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 337 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=19,19)/
./pkg/fizhi/o3-tran3.h 343 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 349 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 355 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=20,20)/
./pkg/fizhi/o3-tran3.h 361 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 367 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 373 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=21,21)/
./pkg/fizhi/o3-tran3.h 379 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 37 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 385 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 391 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=22,22)/
./pkg/fizhi/o3-tran3.h 397 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 403 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 409 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=23,23)/
./pkg/fizhi/o3-tran3.h 415 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 421 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 427 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=24,24)/
./pkg/fizhi/o3-tran3.h 433 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 439 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 43 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 445 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=25,25)/
./pkg/fizhi/o3-tran3.h 451 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 457 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 463 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip=26,26)/
./pkg/fizhi/o3-tran3.h 49 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 3, 3)/
./pkg/fizhi/o3-tran3.h 55 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 61 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 67 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 4, 4)/
./pkg/fizhi/o3-tran3.h 73 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 79 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 7 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 1, 1)/
./pkg/fizhi/o3-tran3.h 85 NO PROCEDURE
      data ((o3(ip,iw,1),iw=1,21),ip= 5, 5)/
./pkg/fizhi/o3-tran3.h 91 NO PROCEDURE
      data ((o1(ip,iw,1),iw=1,21),ip= 6, 6)/
./pkg/fizhi/o3-tran3.h 97 NO PROCEDURE
      data ((o2(ip,iw,1),iw=1,21),ip= 6, 6)/