Symbol Description Uses
iw 878



File Line number Procedure Code
./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/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)/
./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 PR