Symbol Description Uses
CH 454


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