Symbol Description Uses
CC 520


File Line number Procedure Code
./pkg/zonal_filt/fftpack.F 1000 R8ADB3 
            CR2 = CC(I-1,1,K)+TAUR*TR2
./pkg/zonal_filt/fftpack.F 1001 R8ADB3 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 1002 R8ADB3 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1003 R8ADB3 
            CI2 = CC(I,1,K)+TAUR*TI2
./pkg/zonal_filt/fftpack.F 1004 R8ADB3 
            CH(I,K,1) = CC(I,1,K)+TI2
./pkg/zonal_filt/fftpack.F 1005 R8ADB3 
            CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K))
./pkg/zonal_filt/fftpack.F 1006 R8ADB3 
            CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K))
./pkg/zonal_filt/fftpack.F 1019 R8ADB4 
      SUBROUTINE R8ADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 1022 R8ADB4 
      DIMENSION       CC(IDO,4,L1)           ,CH(IDO,L1,4)           ,
./pkg/zonal_filt/fftpack.F 1026 R8ADB4 
         TR1 = CC(1,1,K)-CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1027 R8ADB4 
         TR2 = CC(1,1,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1028 R8ADB4 
         TR3 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 1029 R8ADB4 
         TR4 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 1040 R8ADB4 
            TI1 = CC(I,1,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1041 R8ADB4 
            TI2 = CC(I,1,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1042 R8ADB4 
            TI3 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1043 R8ADB4 
            TR4 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1044 R8ADB4 
            TR1 = CC(I-1,1,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1045 R8ADB4 
            TR2 = CC(I-1,1,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1046 R8ADB4 
            TI4 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1047 R8ADB4 
            TR3 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1067 R8ADB4 
         TI1 = CC(1,2,K)+CC(1,4,K)
./pkg/zonal_filt/fftpack.F 1068 R8ADB4 
         TI2 = CC(1,4,K)-CC(1,2,K)
./pkg/zonal_filt/fftpack.F 1069 R8ADB4 
         TR1 = CC(IDO,1,K)-CC(IDO,3,K)
./pkg/zonal_filt/fftpack.F 1070 R8ADB4 
         TR2 = CC(IDO,1,K)+CC(IDO,3,K)
./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 1086 R8ADB5 
         TI5 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 1087 R8ADB5 
         TI4 = CC(1,5,K)+CC(1,5,K)
./pkg/zonal_filt/fftpack.F 1088 R8ADB5 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 1089 R8ADB5 
         TR3 = CC(IDO,4,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1090 R8ADB5 
         CH(1,K,1) = CC(1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 1091 R8ADB5 
         CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 1092 R8ADB5 
         CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 109 RADB4 
            TI1 = CC(I,1,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1105 R8ADB5 
            TI5 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1106 R8ADB5 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1107 R8ADB5 
            TI4 = CC(I,5,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1108 R8ADB5 
            TI3 = CC(I,5,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1109 R8ADB5 
            TR5 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 110 RADB4 
            TI2 = CC(I,1,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1110 R8ADB5 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1111 R8ADB5 
            TR4 = CC(I-1,5,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1112 R8ADB5 
            TR3 = CC(I-1,5,K)+CC(IC-1,4,K)
./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 1115 R8ADB5 
            CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 1116 R8ADB5 
            CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3
./pkg/zonal_filt/fftpack.F 1117 R8ADB5 
            CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 1118 R8ADB5 
            CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
./pkg/zonal_filt/fftpack.F 111 RADB4 
            TI3 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 112 RADB4 
            TR4 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 113 RADB4 
            TR1 = CC(I-1,1,K)-CC(IC-1,4,K)
./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 114 RADB4 
            TR2 = CC(I-1,1,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 115 RADB4 
            TI4 = CC(I-1,3,K)-CC(IC-1,2,K)
./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 116 RADB4 
            TR3 = CC(I-1,3,K)+CC(IC-1,2,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 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 1200 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 12 RADB2 
      SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 136 RADB4 
         TI1 = CC(1,2,K)+CC(1,4,K)
./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 137 RADB4 
         TI2 = CC(1,4,K)-CC(1,2,K)
./pkg/zonal_filt/fftpack.F 1380 R8ADF2 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1387 R8ADF2 
            TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1388 R8ADF2 
            TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1389 R8ADF2 
            CH(I,1,K) = CC(I,K,1)+TI2
./pkg/zonal_filt/fftpack.F 138 RADB4 
         TR1 = CC(IDO,1,K)-CC(IDO,3,K)
./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 139 RADB4 
         TR2 = CC(IDO,1,K)+CC(IDO,3,K)
./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 1409 R8ADF3 
         CR2 = CC(1,K,2)+CC(1,K,3)
./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 1419 R8ADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1420 R8ADF3 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1421 R8ADF3 
            DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 1422 R8ADF3 
            DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./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 1427 R8ADF3 
            TR2 = CC(I-1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 1428 R8ADF3 
            TI2 = CC(I,K,1)+TAUR*CI2
./pkg/zonal_filt/fftpack.F 1439 R8ADF4 
      SUBROUTINE R8ADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 1442 R8ADF4 
      DIMENSION       CC(IDO,L1,4)           ,CH(IDO,4,L1)           ,
./pkg/zonal_filt/fftpack.F 1446 R8ADF4 
         TR1 = CC(1,K,2)+CC(1,K,4)
./pkg/zonal_filt/fftpack.F 1447 R8ADF4 
         TR2 = CC(1,K,1)+CC(1,K,3)
./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 1458 R8ADF4 
            CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1459 R8ADF4 
            CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1460 R8ADF4 
            CR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 1461 R8ADF4 
            CI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 1462 R8ADF4 
            CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 1463 R8ADF4 
            CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 1468 R8ADF4 
            TI2 = CC(I,K,1)+CI3
./pkg/zonal_filt/fftpack.F 1469 R8ADF4 
            TI3 = CC(I,K,1)-CI3
./pkg/zonal_filt/fftpack.F 1470 R8ADF4 
            TR2 = CC(I-1,K,1)+CR3
./pkg/zonal_filt/fftpack.F 1471 R8ADF4 
            TR3 = CC(I-1,K,1)-CR3
./pkg/zonal_filt/fftpack.F 147 RADB5 
      SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1485 R8ADF4 
         TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4))
./pkg/zonal_filt/fftpack.F 1486 R8ADF4 
         TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4))
./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 1502 R8ADF5 
         CR2 = CC(1,K,5)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1503 R8ADF5 
         CI5 = CC(1,K,5)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1504 R8ADF5 
         CR3 = CC(1,K,4)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1505 R8ADF5 
         CI4 = CC(1,K,4)-CC(1,K,3)
./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 1509 R8ADF5 
         CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 1517 R8ADF5 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1518 R8ADF5 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1519 R8ADF5 
            DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 1520 R8ADF5 
            DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 1521 R8ADF5 
            DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 1522 R8ADF5 
            DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 1523 R8ADF5 
            DR5 = WA4(I-2)*CC(I-1,K,5)+WA4(I-1)*CC(I,K,5)
./pkg/zonal_filt/fftpack.F 1524 R8ADF5 
            DI5 = WA4(I-2)*CC(I,K,5)-WA4(I-1)*CC(I-1,K,5)
./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 1535 R8ADF5 
            TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 1536 R8ADF5 
            TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3
./pkg/zonal_filt/fftpack.F 1537 R8ADF5 
            TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 1538 R8ADF5 
            TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3
./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 157 RADB5 
         TI5 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 158 RADB5 
         TI4 = CC(1,5,K)+CC(1,5,K)
./pkg/zonal_filt/fftpack.F 159 RADB5 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 160 RADB5 
         TR3 = CC(IDO,4,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 161 RADB5 
         CH(1,K,1) = CC(1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 162 RADB5 
         CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 163 RADB5 
         CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 1675 R8ADFG 
            CC(I,1,K) = CH(I,K,1)
./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 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 176 RADB5 
            TI5 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 177 RADB5 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 178 RADB5 
            TI4 = CC(I,5,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 179 RADB5 
            TI3 = CC(I,5,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 180 RADB5 
            TR5 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 181 RADB5 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 182 RADB5 
            TR4 = CC(I-1,5,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 183 RADB5 
            TR3 = CC(I-1,5,K)+CC(IC-1,4,K)
./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 186 RADB5 
            CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 187 RADB5 
            CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3
./pkg/zonal_filt/fftpack.F 188 RADB5 
            CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 189 RADB5 
            CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
./pkg/zonal_filt/fftpack.F 19 RADB2 
      DIMENSION       CC(IDO,2,L1)           ,CH(IDO,L1,2)           ,
./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