Symbol Description Uses
CH 451


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3755 TRBL20 
      PARAMETER ( CH      = 2.5828674 )
./pkg/fizhi/fizhi_turb.F 3756 TRBL20 
      PARAMETER ( CM      = CH / D1   )
./pkg/fizhi/fizhi_turb.F 3787 TRBL20 
      ZKH(I,1) = CH      *ZKH(I,1)
./pkg/zonal_filt/fftpack.F 1001 R8ADB3 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 1004 R8ADB3 
            CH(I,K,1) = CC(I,1,K)+TI2
./pkg/zonal_filt/fftpack.F 100 RADB4 
         CH(1,K,2) = TR1-TR4
./pkg/zonal_filt/fftpack.F 1011 R8ADB3 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 1012 R8ADB3 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./pkg/zonal_filt/fftpack.F 1013 R8ADB3 
            CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3
./pkg/zonal_filt/fftpack.F 1014 R8ADB3 
            CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
./pkg/zonal_filt/fftpack.F 1019 R8ADB4 
      SUBROUTINE R8ADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 101 RADB4 
         CH(1,K,3) = TR2-TR3
./pkg/zonal_filt/fftpack.F 1022 R8ADB4 
      DIMENSION       CC(IDO,4,L1)           ,CH(IDO,L1,4)           ,
./pkg/zonal_filt/fftpack.F 102 RADB4 
         CH(1,K,4) = TR1+TR4
./pkg/zonal_filt/fftpack.F 1030 R8ADB4 
         CH(1,K,1) = TR2+TR3
./pkg/zonal_filt/fftpack.F 1031 R8ADB4 
         CH(1,K,2) = TR1-TR4
./pkg/zonal_filt/fftpack.F 1032 R8ADB4 
         CH(1,K,3) = TR2-TR3
./pkg/zonal_filt/fftpack.F 1033 R8ADB4 
         CH(1,K,4) = TR1+TR4
./pkg/zonal_filt/fftpack.F 1048 R8ADB4 
            CH(I-1,K,1) = TR2+TR3
./pkg/zonal_filt/fftpack.F 1050 R8ADB4 
            CH(I,K,1) = TI2+TI3
./pkg/zonal_filt/fftpack.F 1056 R8ADB4 
            CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2
./pkg/zonal_filt/fftpack.F 1057 R8ADB4 
            CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2
./pkg/zonal_filt/fftpack.F 1058 R8ADB4 
            CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3
./pkg/zonal_filt/fftpack.F 1059 R8ADB4 
            CH(I,K,3) = WA2(I-2)*CI3+WA2(I-1)*CR3
./pkg/zonal_filt/fftpack.F 1060 R8ADB4 
            CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4
./pkg/zonal_filt/fftpack.F 1061 R8ADB4 
            CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
./pkg/zonal_filt/fftpack.F 1071 R8ADB4 
         CH(IDO,K,1) = TR2+TR2
./pkg/zonal_filt/fftpack.F 1072 R8ADB4 
         CH(IDO,K,2) = SQRT2*(TR1-TI1)
./pkg/zonal_filt/fftpack.F 1073 R8ADB4 
         CH(IDO,K,3) = TI2+TI2
./pkg/zonal_filt/fftpack.F 1074 R8ADB4 
         CH(IDO,K,4) = -SQRT2*(TR1+TI1)
./pkg/zonal_filt/fftpack.F 1078 R8ADB5 
      SUBROUTINE R8ADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1081 R8ADB5 
      DIMENSION       CC(IDO,5,L1)           ,CH(IDO,L1,5)           ,
./pkg/zonal_filt/fftpack.F 1090 R8ADB5 
         CH(1,K,1) = CC(1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 1095 R8ADB5 
         CH(1,K,2) = CR2-CI5
./pkg/zonal_filt/fftpack.F 1096 R8ADB5 
         CH(1,K,3) = CR3-CI4
./pkg/zonal_filt/fftpack.F 1097 R8ADB5 
         CH(1,K,4) = CR3+CI4
./pkg/zonal_filt/fftpack.F 1098 R8ADB5 
         CH(1,K,5) = CR2+CI5
./pkg/zonal_filt/fftpack.F 1113 R8ADB5 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 1114 R8ADB5 
            CH(I,K,1) = CC(I,1,K)+TI2+TI3
./pkg/zonal_filt/fftpack.F 1131 R8ADB5 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 1132 R8ADB5 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./pkg/zonal_filt/fftpack.F 1133 R8ADB5 
            CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3
./pkg/zonal_filt/fftpack.F 1134 R8ADB5 
            CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
./pkg/zonal_filt/fftpack.F 1135 R8ADB5 
            CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4
./pkg/zonal_filt/fftpack.F 1136 R8ADB5 
            CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
./pkg/zonal_filt/fftpack.F 1137 R8ADB5 
            CH(I-1,K,5) = WA4(I-2)*DR5-WA4(I-1)*DI5
./pkg/zonal_filt/fftpack.F 1138 R8ADB5 
            CH(I,K,5) = WA4(I-2)*DI5+WA4(I-1)*DR5
./pkg/zonal_filt/fftpack.F 1143 R8ADBG 
      SUBROUTINE R8ADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 1146 R8ADBG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 1160 R8ADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 1166 R8ADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 1173 R8ADBG 
            CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K)
./pkg/zonal_filt/fftpack.F 1174 R8ADBG 
            CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K)
./pkg/zonal_filt/fftpack.F 117 RADB4 
            CH(I-1,K,1) = TR2+TR3
./pkg/zonal_filt/fftpack.F 1184 R8ADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1185 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1186 R8ADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1187 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1197 R8ADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1198 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1199 R8ADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 119 RADB4 
            CH(I,K,1) = TI2+TI3
./pkg/zonal_filt/fftpack.F 1200 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1238 R8ADBG 
            CH(1,K,J) = C1(1,K,J)-C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 1239 R8ADBG 
            CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 1248 R8ADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1249 R8ADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1250 R8ADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1251 R8ADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 125 RADB4 
            CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2
./pkg/zonal_filt/fftpack.F 1260 R8ADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1261 R8ADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 1262 R8ADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1263 R8ADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 126 RADB4 
            CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2
./pkg/zonal_filt/fftpack.F 1274 R8ADBG 
            C1(1,K,J) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 127 RADB4 
            CH(I-1,K,3) = WA2(I-2)*CR3-WA2(I-1)*CI3
./pkg/zonal_filt/fftpack.F 1285 R8ADBG 
               C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1286 R8ADBG 
               C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 128 RADB4 
            CH(I,K,3) = WA2(I-2)*CI3+WA2(I-1)*CR3
./pkg/zonal_filt/fftpack.F 1298 R8ADBG 
               C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1299 R8ADBG 
               C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 129 RADB4 
            CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4
./pkg/zonal_filt/fftpack.F 12 RADB2 
      SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1305 R8FFTB1 
      SUBROUTINE R8FFTB1 (N,C,CH,WA,IFAC)
./pkg/zonal_filt/fftpack.F 1308 R8FFTB1 
      DIMENSION       CH(*)      ,C(*)       ,WA(*)      ,IFAC(*)
./pkg/zonal_filt/fftpack.F 130 RADB4 
            CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
./pkg/zonal_filt/fftpack.F 1322 R8FFTB1 
         CALL R8ADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 1324 R8FFTB1 
  101    CALL R8ADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 1329 R8FFTB1 
         CALL R8ADB2 (IDO,L1,C,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 1331 R8FFTB1 
  104    CALL R8ADB2 (IDO,L1,CH,C,WA(IW))
./pkg/zonal_filt/fftpack.F 1337 R8FFTB1 
         CALL R8ADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 1339 R8FFTB1 
  107    CALL R8ADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 1347 R8FFTB1 
         CALL R8ADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 1349 R8FFTB1 
  110    CALL R8ADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 1353 R8FFTB1 
         CALL R8ADBG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 1355 R8FFTB1 
  113    CALL R8ADBG (IDO,IP,L1,IDL1,CH,CH,CH,C,C,WA(IW))
./pkg/zonal_filt/fftpack.F 1362 R8FFTB1 
         C(I) = CH(I)
./pkg/zonal_filt/fftpack.F 1373 R8ADF2 
      SUBROUTINE R8ADF2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1376 R8ADF2 
      DIMENSION       CH(IDO,2,L1)           ,CC(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 1379 R8ADF2 
         CH(1,1,K) = CC(1,K,1)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1380 R8ADF2 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1389 R8ADF2 
            CH(I,1,K) = CC(I,K,1)+TI2
./pkg/zonal_filt/fftpack.F 1390 R8ADF2 
            CH(IC,2,K) = TI2-CC(I,K,1)
./pkg/zonal_filt/fftpack.F 1391 R8ADF2 
            CH(I-1,1,K) = CC(I-1,K,1)+TR2
./pkg/zonal_filt/fftpack.F 1392 R8ADF2 
            CH(IC-1,2,K) = CC(I-1,K,1)-TR2
./pkg/zonal_filt/fftpack.F 1397 R8ADF2 
         CH(1,2,K) = -CC(IDO,K,2)
./pkg/zonal_filt/fftpack.F 1398 R8ADF2 
         CH(IDO,1,K) = CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 1402 R8ADF3 
      SUBROUTINE R8ADF3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 1405 R8ADF3 
      DIMENSION       CH(IDO,3,L1)           ,CC(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 140 RADB4 
         CH(IDO,K,1) = TR2+TR2
./pkg/zonal_filt/fftpack.F 1410 R8ADF3 
         CH(1,1,K) = CC(1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 1411 R8ADF3 
         CH(1,3,K) = TAUI*(CC(1,K,3)-CC(1,K,2))
./pkg/zonal_filt/fftpack.F 1412 R8ADF3 
         CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 141 RADB4 
         CH(IDO,K,2) = SQRT2*(TR1-TI1)
./pkg/zonal_filt/fftpack.F 1425 R8ADF3 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 1426 R8ADF3 
            CH(I,1,K) = CC(I,K,1)+CI2
./pkg/zonal_filt/fftpack.F 142 RADB4 
         CH(IDO,K,3) = TI2+TI2
./pkg/zonal_filt/fftpack.F 1431 R8ADF3 
            CH(I-1,3,K) = TR2+TR3
./pkg/zonal_filt/fftpack.F 1432 R8ADF3 
            CH(IC-1,2,K) = TR2-TR3
./pkg/zonal_filt/fftpack.F 1433 R8ADF3 
            CH(I,3,K) = TI2+TI3
./pkg/zonal_filt/fftpack.F 1434 R8ADF3 
            CH(IC,2,K) = TI3-TI2
./pkg/zonal_filt/fftpack.F 1439 R8ADF4 
      SUBROUTINE R8ADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 143 RADB4 
         CH(IDO,K,4) = -SQRT2*(TR1+TI1)
./pkg/zonal_filt/fftpack.F 1442 R8ADF4 
      DIMENSION       CC(IDO,L1,4)           ,CH(IDO,4,L1)           ,
./pkg/zonal_filt/fftpack.F 1448 R8ADF4 
         CH(1,1,K) = TR1+TR2
./pkg/zonal_filt/fftpack.F 1449 R8ADF4 
         CH(IDO,4,K) = TR2-TR1
./pkg/zonal_filt/fftpack.F 1450 R8ADF4 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1451 R8ADF4 
         CH(1,3,K) = CC(1,K,4)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1472 R8ADF4 
            CH(I-1,1,K) = TR1+TR2
./pkg/zonal_filt/fftpack.F 1473 R8ADF4 
            CH(IC-1,4,K) = TR2-TR1
./pkg/zonal_filt/fftpack.F 1474 R8ADF4 
            CH(I,1,K) = TI1+TI2
./pkg/zonal_filt/fftpack.F 1475 R8ADF4 
            CH(IC,4,K) = TI1-TI2
./pkg/zonal_filt/fftpack.F 1476 R8ADF4 
            CH(I-1,3,K) = TI4+TR3
./pkg/zonal_filt/fftpack.F 1477 R8ADF4 
            CH(IC-1,2,K) = TR3-TI4
./pkg/zonal_filt/fftpack.F 1478 R8ADF4 
            CH(I,3,K) = TR4+TI3
./pkg/zonal_filt/fftpack.F 1479 R8ADF4 
            CH(IC,2,K) = TR4-TI3
./pkg/zonal_filt/fftpack.F 147 RADB5 
      SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1487 R8ADF4 
         CH(IDO,1,K) = TR1+CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 1488 R8ADF4 
         CH(IDO,3,K) = CC(IDO,K,1)-TR1
./pkg/zonal_filt/fftpack.F 1489 R8ADF4 
         CH(1,2,K) = TI1-CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 1490 R8ADF4 
         CH(1,4,K) = TI1+CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 1494 R8ADF5 
      SUBROUTINE R8ADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1497 R8ADF5 
      DIMENSION       CC(IDO,L1,5)           ,CH(IDO,5,L1)           ,
./pkg/zonal_filt/fftpack.F 1506 R8ADF5 
         CH(1,1,K) = CC(1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 1507 R8ADF5 
         CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 1508 R8ADF5 
         CH(1,3,K) = TI11*CI5+TI12*CI4
./pkg/zonal_filt/fftpack.F 1509 R8ADF5 
         CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 1510 R8ADF5 
         CH(1,5,K) = TI12*CI5-TI11*CI4
./pkg/zonal_filt/fftpack.F 152 RADB5 
      DIMENSION       CC(IDO,5,L1)           ,CH(IDO,L1,5)           ,
./pkg/zonal_filt/fftpack.F 1533 R8ADF5 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 1534 R8ADF5 
            CH(I,1,K) = CC(I,K,1)+CI2+CI3
./pkg/zonal_filt/fftpack.F 1543 R8ADF5 
            CH(I-1,3,K) = TR2+TR5
./pkg/zonal_filt/fftpack.F 1544 R8ADF5 
            CH(IC-1,2,K) = TR2-TR5
./pkg/zonal_filt/fftpack.F 1545 R8ADF5 
            CH(I,3,K) = TI2+TI5
./pkg/zonal_filt/fftpack.F 1546 R8ADF5 
            CH(IC,2,K) = TI5-TI2
./pkg/zonal_filt/fftpack.F 1547 R8ADF5 
            CH(I-1,5,K) = TR3+TR4
./pkg/zonal_filt/fftpack.F 1548 R8ADF5 
            CH(IC-1,4,K) = TR3-TR4
./pkg/zonal_filt/fftpack.F 1549 R8ADF5 
            CH(I,5,K) = TI3+TI4
./pkg/zonal_filt/fftpack.F 1550 R8ADF5 
            CH(IC,4,K) = TI4-TI3
./pkg/zonal_filt/fftpack.F 1555 R8ADFG 
      SUBROUTINE R8ADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 1558 R8ADFG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 1575 R8ADFG 
            CH(1,K,J) = C1(1,K,J)
./pkg/zonal_filt/fftpack.F 1586 R8ADFG 
               CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
./pkg/zonal_filt/fftpack.F 1587 R8ADFG 
               CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
./pkg/zonal_filt/fftpack.F 1599 R8ADFG 
               CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
./pkg/zonal_filt/fftpack.F 1600 R8ADFG 
               CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
./pkg/zonal_filt/fftpack.F 1609 R8ADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1610 R8ADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1611 R8ADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1612 R8ADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 161 RADB5 
         CH(1,K,1) = CC(1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 1621 R8ADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1622 R8ADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1623 R8ADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1624 R8ADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 1635 R8ADFG 
            C1(1,K,J) = CH(1,K,J)+CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 1636 R8ADFG 
            C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J)
./pkg/zonal_filt/fftpack.F 166 RADB5 
         CH(1,K,2) = CR2-CI5
./pkg/zonal_filt/fftpack.F 1675 R8ADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 167 RADB5 
         CH(1,K,3) = CR3-CI4
./pkg/zonal_filt/fftpack.F 1681 R8ADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 1688 R8ADFG 
            CC(IDO,J2-2,K) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 1689 R8ADFG 
            CC(1,J2-1,K) = CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 168 RADB5 
         CH(1,K,4) = CR3+CI4
./pkg/zonal_filt/fftpack.F 169 RADB5 
         CH(1,K,5) = CR2+CI5
./pkg/zonal_filt/fftpack.F 1700 R8ADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1701 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1702 R8ADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1703 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1714 R8ADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1715 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1716 R8ADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1717 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1723 R8FFTF1 
      SUBROUTINE R8FFTF1 (N,C,CH,WA,IFAC)
./pkg/zonal_filt/fftpack.F 1726 R8FFTF1 
      DIMENSION       CH(*)      ,C(*)       ,WA(*)      ,IFAC(*)
./pkg/zonal_filt/fftpack.F 1743 R8FFTF1 
         CALL R8ADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 1745 R8FFTF1 
  101    CALL R8ADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 1749 R8FFTF1 
         CALL R8ADF2 (IDO,L1,C,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 1751 R8FFTF1 
  103    CALL R8ADF2 (IDO,L1,CH,C,WA(IW))
./pkg/zonal_filt/fftpack.F 1756 R8FFTF1 
         CALL R8ADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 1758 R8FFTF1 
  105    CALL R8ADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 1765 R8FFTF1 
         CALL R8ADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 1767 R8FFTF1 
  107    CALL R8ADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 1771 R8FFTF1 
         CALL R8ADFG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 1774 R8FFTF1 
  109    CALL R8ADFG (IDO,IP,L1,IDL1,CH,CH,CH,C,C,WA(IW))
./pkg/zonal_filt/fftpack.F 1780 R8FFTF1 
         C(I) = CH(I)
./pkg/zonal_filt/fftpack.F 184 RADB5 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 185 RADB5 
            CH(I,K,1) = CC(I,1,K)+TI2+TI3
./pkg/zonal_filt/fftpack.F 19 RADB2 
      DIMENSION       CC(IDO,2,L1)           ,CH(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 202 RADB5 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 203 RADB5 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./pkg/zonal_filt/fftpack.F 204 RADB5 
            CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3
./pkg/zonal_filt/fftpack.F 205 RADB5 
            CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
./pkg/zonal_filt/fftpack.F 206 RADB5 
            CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4
./pkg/zonal_filt/fftpack.F 207 RADB5 
            CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
./pkg/zonal_filt/fftpack.F 208 RADB5 
            CH(I-1,K,5) = WA4(I-2)*DR5-WA4(I-1)*DI5
./pkg/zonal_filt/fftpack.F 209 RADB5 
            CH(I,K,5) = WA4(I-2)*DI5+WA4(I-1)*DR5
./pkg/zonal_filt/fftpack.F 214 RADBG 
      SUBROUTINE RADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 219 RADBG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 22 RADB2 
         CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 233 RADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 239 RADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 23 RADB2 
         CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 246 RADBG 
            CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K)
./pkg/zonal_filt/fftpack.F 247 RADBG 
            CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K)
./pkg/zonal_filt/fftpack.F 257 RADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 258 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 259 RADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 260 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 270 RADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 271 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 272 RADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 273 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 30 RADB2 
            CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 311 RADBG 
            CH(1,K,J) = C1(1,K,J)-C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 312 RADBG 
            CH(1,K,JC) = C1(1,K,J)+C1(1,K,JC)
./pkg/zonal_filt/fftpack.F 321 RADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 322 RADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 323 RADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 324 RADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 32 RADB2 
            CH(I,K,1) = CC(I,1,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 333 RADBG 
               CH(I-1,K,J) = C1(I-1,K,J)-C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 334 RADBG 
               CH(I-1,K,JC) = C1(I-1,K,J)+C1(I,K,JC)
./pkg/zonal_filt/fftpack.F 335 RADBG 
               CH(I,K,J) = C1(I,K,J)+C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 336 RADBG 
               CH(I,K,JC) = C1(I,K,J)-C1(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 347 RADBG 
            C1(1,K,J) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 34 RADB2 
            CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2
./pkg/zonal_filt/fftpack.F 358 RADBG 
               C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
./pkg/zonal_filt/fftpack.F 359 RADBG 
               C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 35 RADB2 
            CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2
./pkg/zonal_filt/fftpack.F 371 RADBG 
               C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
./pkg/zonal_filt/fftpack.F 372 RADBG 
               C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 378 RFFTB1 
      SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC)
./pkg/zonal_filt/fftpack.F 383 RFFTB1 
      DIMENSION       CH(*)      ,C(*)       ,WA(*)      ,IFAC(*)
./pkg/zonal_filt/fftpack.F 397 RFFTB1 
         CALL RADB4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 399 RFFTB1 
  101    CALL RADB4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 404 RFFTB1 
         CALL RADB2 (IDO,L1,C,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 406 RFFTB1 
  104    CALL RADB2 (IDO,L1,CH,C,WA(IW))
./pkg/zonal_filt/fftpack.F 40 RADB2 
         CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K)
./pkg/zonal_filt/fftpack.F 412 RFFTB1 
         CALL RADB3 (IDO,L1,C,CH,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 414 RFFTB1 
  107    CALL RADB3 (IDO,L1,CH,C,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 41 RADB2 
         CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K))
./pkg/zonal_filt/fftpack.F 422 RFFTB1 
         CALL RADB5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 424 RFFTB1 
  110    CALL RADB5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 428 RFFTB1 
         CALL RADBG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 430 RFFTB1 
  113    CALL RADBG (IDO,IP,L1,IDL1,CH,CH,CH,C,C,WA(IW))
./pkg/zonal_filt/fftpack.F 437 RFFTB1 
         C(I) = CH(I)
./pkg/zonal_filt/fftpack.F 450 RADF2 
      SUBROUTINE RADF2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 455 RADF2 
      DIMENSION       CH(IDO,2,L1)           ,CC(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 458 RADF2 
         CH(1,1,K) = CC(1,K,1)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 459 RADF2 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 45 RADB3 
      SUBROUTINE RADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 468 RADF2 
            CH(I,1,K) = CC(I,K,1)+TI2
./pkg/zonal_filt/fftpack.F 469 RADF2 
            CH(IC,2,K) = TI2-CC(I,K,1)
./pkg/zonal_filt/fftpack.F 470 RADF2 
            CH(I-1,1,K) = CC(I-1,K,1)+TR2
./pkg/zonal_filt/fftpack.F 471 RADF2 
            CH(IC-1,2,K) = CC(I-1,K,1)-TR2
./pkg/zonal_filt/fftpack.F 476 RADF2 
         CH(1,2,K) = -CC(IDO,K,2)
./pkg/zonal_filt/fftpack.F 477 RADF2 
         CH(IDO,1,K) = CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 481 RADF3 
      SUBROUTINE RADF3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 486 RADF3 
      DIMENSION       CH(IDO,3,L1)           ,CC(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 491 RADF3 
         CH(1,1,K) = CC(1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 492 RADF3 
         CH(1,3,K) = TAUI*(CC(1,K,3)-CC(1,K,2))
./pkg/zonal_filt/fftpack.F 493 RADF3 
         CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 506 RADF3 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 507 RADF3 
            CH(I,1,K) = CC(I,K,1)+CI2
./pkg/zonal_filt/fftpack.F 50 RADB3 
      DIMENSION       CC(IDO,3,L1)           ,CH(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 512 RADF3 
            CH(I-1,3,K) = TR2+TR3
./pkg/zonal_filt/fftpack.F 513 RADF3 
            CH(IC-1,2,K) = TR2-TR3
./pkg/zonal_filt/fftpack.F 514 RADF3 
            CH(I,3,K) = TI2+TI3
./pkg/zonal_filt/fftpack.F 515 RADF3 
            CH(IC,2,K) = TI3-TI2
./pkg/zonal_filt/fftpack.F 520 RADF4 
      SUBROUTINE RADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 525 RADF4 
      DIMENSION       CC(IDO,L1,4)           ,CH(IDO,4,L1)           ,
./pkg/zonal_filt/fftpack.F 531 RADF4 
         CH(1,1,K) = TR1+TR2
./pkg/zonal_filt/fftpack.F 532 RADF4 
         CH(IDO,4,K) = TR2-TR1
./pkg/zonal_filt/fftpack.F 533 RADF4 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,3)
./pkg/zonal_filt/fftpack.F 534 RADF4 
         CH(1,3,K) = CC(1,K,4)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 555 RADF4 
            CH(I-1,1,K) = TR1+TR2
./pkg/zonal_filt/fftpack.F 556 RADF4 
            CH(IC-1,4,K) = TR2-TR1
./pkg/zonal_filt/fftpack.F 557 RADF4 
            CH(I,1,K) = TI1+TI2
./pkg/zonal_filt/fftpack.F 558 RADF4 
            CH(IC,4,K) = TI1-TI2
./pkg/zonal_filt/fftpack.F 559 RADF4 
            CH(I-1,3,K) = TI4+TR3
./pkg/zonal_filt/fftpack.F 560 RADF4 
            CH(IC-1,2,K) = TR3-TI4
./pkg/zonal_filt/fftpack.F 561 RADF4 
            CH(I,3,K) = TR4+TI3
./pkg/zonal_filt/fftpack.F 562 RADF4 
            CH(IC,2,K) = TR4-TI3
./pkg/zonal_filt/fftpack.F 56 RADB3 
         CH(1,K,1) = CC(1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 570 RADF4 
         CH(IDO,1,K) = TR1+CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 571 RADF4 
         CH(IDO,3,K) = CC(IDO,K,1)-TR1
./pkg/zonal_filt/fftpack.F 572 RADF4 
         CH(1,2,K) = TI1-CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 573 RADF4 
         CH(1,4,K) = TI1+CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 577 RADF5 
      SUBROUTINE RADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 582 RADF5 
      DIMENSION       CC(IDO,L1,5)           ,CH(IDO,5,L1)           ,
./pkg/zonal_filt/fftpack.F 58 RADB3 
         CH(1,K,2) = CR2-CI3
./pkg/zonal_filt/fftpack.F 591 RADF5 
         CH(1,1,K) = CC(1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 592 RADF5 
         CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 593 RADF5 
         CH(1,3,K) = TI11*CI5+TI12*CI4
./pkg/zonal_filt/fftpack.F 594 RADF5 
         CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 595 RADF5 
         CH(1,5,K) = TI12*CI5-TI11*CI4
./pkg/zonal_filt/fftpack.F 59 RADB3 
         CH(1,K,3) = CR2+CI3
./pkg/zonal_filt/fftpack.F 618 RADF5 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 619 RADF5 
            CH(I,1,K) = CC(I,K,1)+CI2+CI3
./pkg/zonal_filt/fftpack.F 628 RADF5 
            CH(I-1,3,K) = TR2+TR5
./pkg/zonal_filt/fftpack.F 629 RADF5 
            CH(IC-1,2,K) = TR2-TR5
./pkg/zonal_filt/fftpack.F 630 RADF5 
            CH(I,3,K) = TI2+TI5
./pkg/zonal_filt/fftpack.F 631 RADF5 
            CH(IC,2,K) = TI5-TI2
./pkg/zonal_filt/fftpack.F 632 RADF5 
            CH(I-1,5,K) = TR3+TR4
./pkg/zonal_filt/fftpack.F 633 RADF5 
            CH(IC-1,4,K) = TR3-TR4
./pkg/zonal_filt/fftpack.F 634 RADF5 
            CH(I,5,K) = TI3+TI4
./pkg/zonal_filt/fftpack.F 635 RADF5 
            CH(IC,4,K) = TI4-TI3
./pkg/zonal_filt/fftpack.F 640 RADFG 
      SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 645 RADFG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 662 RADFG 
            CH(1,K,J) = C1(1,K,J)
./pkg/zonal_filt/fftpack.F 673 RADFG 
               CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
./pkg/zonal_filt/fftpack.F 674 RADFG 
               CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
./pkg/zonal_filt/fftpack.F 686 RADFG 
               CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
./pkg/zonal_filt/fftpack.F 687 RADFG 
               CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
./pkg/zonal_filt/fftpack.F 68 RADB3 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 696 RADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 697 RADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 698 RADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 699 RADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 708 RADFG 
               C1(I-1,K,J) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 709 RADFG 
               C1(I-1,K,JC) = CH(I,K,J)-CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 710 RADFG 
               C1(I,K,J) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 711 RADFG 
               C1(I,K,JC) = CH(I-1,K,JC)-CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 71 RADB3 
            CH(I,K,1) = CC(I,1,K)+TI2
./pkg/zonal_filt/fftpack.F 722 RADFG 
            C1(1,K,J) = CH(1,K,J)+CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 723 RADFG 
            C1(1,K,JC) = CH(1,K,JC)-CH(1,K,J)
./pkg/zonal_filt/fftpack.F 762 RADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 768 RADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 775 RADFG 
            CC(IDO,J2-2,K) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 776 RADFG 
            CC(1,J2-1,K) = CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 787 RADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 788 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 789 RADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 78 RADB3 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 790 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 79 RADB3 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./pkg/zonal_filt/fftpack.F 801 RADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 802 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 803 RADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 804 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 80 RADB3 
            CH(I-1,K,3) = WA2(I-2)*DR3-WA2(I-1)*DI3
./pkg/zonal_filt/fftpack.F 810 RFFTF1 
      SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC)
./pkg/zonal_filt/fftpack.F 815 RFFTF1 
      DIMENSION       CH(*)      ,C(*)       ,WA(*)      ,IFAC(*)
./pkg/zonal_filt/fftpack.F 81 RADB3 
            CH(I,K,3) = WA2(I-2)*DI3+WA2(I-1)*DR3
./pkg/zonal_filt/fftpack.F 832 RFFTF1 
         CALL RADF4 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 834 RFFTF1 
  101    CALL RADF4 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3))
./pkg/zonal_filt/fftpack.F 838 RFFTF1 
         CALL RADF2 (IDO,L1,C,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 840 RFFTF1 
  103    CALL RADF2 (IDO,L1,CH,C,WA(IW))
./pkg/zonal_filt/fftpack.F 845 RFFTF1 
         CALL RADF3 (IDO,L1,C,CH,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 847 RFFTF1 
  105    CALL RADF3 (IDO,L1,CH,C,WA(IW),WA(IX2))
./pkg/zonal_filt/fftpack.F 854 RFFTF1 
         CALL RADF5 (IDO,L1,C,CH,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 856 RFFTF1 
  107    CALL RADF5 (IDO,L1,CH,C,WA(IW),WA(IX2),WA(IX3),WA(IX4))
./pkg/zonal_filt/fftpack.F 860 RFFTF1 
         CALL RADFG (IDO,IP,L1,IDL1,C,C,C,CH,CH,WA(IW))
./pkg/zonal_filt/fftpack.F 863 RFFTF1 
  109    CALL RADFG (IDO,IP,L1,IDL1,CH,CH,CH,C,C,WA(IW))
./pkg/zonal_filt/fftpack.F 869 RFFTF1 
         C(I) = CH(I)
./pkg/zonal_filt/fftpack.F 86 RADB4 
      SUBROUTINE RADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 91 RADB4 
      DIMENSION       CC(IDO,4,L1)           ,CH(IDO,L1,4)           ,
./pkg/zonal_filt/fftpack.F 951 R8ADB2 
      SUBROUTINE R8ADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 954 R8ADB2 
      DIMENSION       CC(IDO,2,L1)           ,CH(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 957 R8ADB2 
         CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 958 R8ADB2 
         CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 965 R8ADB2 
            CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 967 R8ADB2 
            CH(I,K,1) = CC(I,1,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 969 R8ADB2 
            CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2
./pkg/zonal_filt/fftpack.F 970 R8ADB2 
            CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2
./pkg/zonal_filt/fftpack.F 975 R8ADB2 
         CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K)
./pkg/zonal_filt/fftpack.F 976 R8ADB2 
         CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K))
./pkg/zonal_filt/fftpack.F 980 R8ADB3 
      SUBROUTINE R8ADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 983 R8ADB3 
      DIMENSION       CC(IDO,3,L1)           ,CH(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 989 R8ADB3 
         CH(1,K,1) = CC(1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 991 R8ADB3 
         CH(1,K,2) = CR2-CI3
./pkg/zonal_filt/fftpack.F 992 R8ADB3 
         CH(1,K,3) = CR2+CI3
./pkg/zonal_filt/fftpack.F 99 RADB4 
         CH(1,K,1) = TR2+TR3