Symbol Description Uses
IDO 368


File Line number Procedure Code
./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 1035 R8ADB4 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 1036 R8ADB4 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1038 R8ADB4 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 104 RADB4 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 105 RADB4 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1064 R8ADB4 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./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 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 107 RADB4 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1081 R8ADB5 
      DIMENSION       CC(IDO,5,L1)           ,CH(IDO,L1,5)           ,
./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 1100 R8ADB5 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 1101 R8ADB5 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1103 R8ADB5 
         DO 102 I=3,IDO,2
./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 1147 R8ADBG 
     1                C1(IDO,L1,IP)          ,C2(IDL1,IP),
./pkg/zonal_filt/fftpack.F 1153 R8ADBG 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1154 R8ADBG 
      NBD = (IDO-1)/2
./pkg/zonal_filt/fftpack.F 1157 R8ADBG 
      IF (IDO .LT. L1) GO TO 103
./pkg/zonal_filt/fftpack.F 1159 R8ADBG 
         DO 101 I=1,IDO
./pkg/zonal_filt/fftpack.F 1164 R8ADBG 
  103 DO 105 I=1,IDO
./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 1177 R8ADBG 
      IF (IDO .EQ. 1) GO TO 116
./pkg/zonal_filt/fftpack.F 1182 R8ADBG 
            DO 109 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1194 R8ADBG 
         DO 114 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1242 R8ADBG 
      IF (IDO .EQ. 1) GO TO 132
./pkg/zonal_filt/fftpack.F 1247 R8ADBG 
            DO 125 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1258 R8ADBG 
         DO 130 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1268 R8ADBG 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 1278 R8ADBG 
      IS = -IDO
./pkg/zonal_filt/fftpack.F 1280 R8ADBG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 1282 R8ADBG 
         DO 137 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1291 R8ADBG 
  139 IS = -IDO
./pkg/zonal_filt/fftpack.F 1293 R8ADBG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 1296 R8ADBG 
            DO 140 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 12 RADB2 
      SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1316 R8FFTB1 
         IDO = N/L2
./pkg/zonal_filt/fftpack.F 1317 R8FFTB1 
         IDL1 = IDO*L1
./pkg/zonal_filt/fftpack.F 1319 R8FFTB1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 1320 R8FFTB1 
         IX3 = IX2+IDO
./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 1335 R8FFTB1 
         IX2 = IW+IDO
./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 133 RADB4 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 1343 R8FFTB1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 1344 R8FFTB1 
         IX3 = IX2+IDO
./pkg/zonal_filt/fftpack.F 1345 R8FFTB1 
         IX4 = IX3+IDO
./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 1356 R8FFTB1 
  114    IF (IDO .EQ. 1) NA = 1-NA
./pkg/zonal_filt/fftpack.F 1358 R8FFTB1 
         IW = IW+(IP-1)*IDO
./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 1380 R8ADF2 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1382 R8ADF2 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 1383 R8ADF2 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1385 R8ADF2 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 138 RADB4 
         TR1 = CC(IDO,1,K)-CC(IDO,3,K)
./pkg/zonal_filt/fftpack.F 1395 R8ADF2 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./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 140 RADB4 
         CH(IDO,K,1) = TR2+TR2
./pkg/zonal_filt/fftpack.F 1412 R8ADF3 
         CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 1414 R8ADF3 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 1415 R8ADF3 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1417 R8ADF3 
         DO 102 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 141 RADB4 
         CH(IDO,K,2) = SQRT2*(TR1-TI1)
./pkg/zonal_filt/fftpack.F 142 RADB4 
         CH(IDO,K,3) = TI2+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 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 1453 R8ADF4 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 1454 R8ADF4 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1456 R8ADF4 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 147 RADB5 
      SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1482 R8ADF4 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./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 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 1512 R8ADF5 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 1513 R8ADF5 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1515 R8ADF5 
         DO 102 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 152 RADB5 
      DIMENSION       CC(IDO,5,L1)           ,CH(IDO,L1,5)           ,
./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 1559 R8ADFG 
     1                C1(IDO,L1,IP)          ,C2(IDL1,IP),
./pkg/zonal_filt/fftpack.F 1567 R8ADFG 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1568 R8ADFG 
      NBD = (IDO-1)/2
./pkg/zonal_filt/fftpack.F 1569 R8ADFG 
      IF (IDO .EQ. 1) GO TO 119
./pkg/zonal_filt/fftpack.F 1579 R8ADFG 
      IS = -IDO
./pkg/zonal_filt/fftpack.F 1581 R8ADFG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 1583 R8ADFG 
         DO 105 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1592 R8ADFG 
  107 IS = -IDO
./pkg/zonal_filt/fftpack.F 1594 R8ADFG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 1597 R8ADFG 
            DO 108 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 159 RADB5 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 1608 R8ADFG 
            DO 112 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 160 RADB5 
         TR3 = CC(IDO,4,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1619 R8ADFG 
         DO 117 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1672 R8ADFG 
      IF (IDO .LT. L1) GO TO 132
./pkg/zonal_filt/fftpack.F 1674 R8ADFG 
         DO 130 I=1,IDO
./pkg/zonal_filt/fftpack.F 1679 R8ADFG 
  132 DO 134 I=1,IDO
./pkg/zonal_filt/fftpack.F 1688 R8ADFG 
            CC(IDO,J2-2,K) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 1692 R8ADFG 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 1698 R8ADFG 
            DO 138 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1711 R8ADFG 
         DO 143 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 171 RADB5 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 172 RADB5 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 1735 R8FFTF1 
         IDO = N/L2
./pkg/zonal_filt/fftpack.F 1736 R8FFTF1 
         IDL1 = IDO*L1
./pkg/zonal_filt/fftpack.F 1737 R8FFTF1 
         IW = IW-(IP-1)*IDO
./pkg/zonal_filt/fftpack.F 1740 R8FFTF1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 1741 R8FFTF1 
         IX3 = IX2+IDO
./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 174 RADB5 
         DO 102 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 1751 R8FFTF1 
  103    CALL R8ADF2 (IDO,L1,CH,C,WA(IW))
./pkg/zonal_filt/fftpack.F 1754 R8FFTF1 
         IX2 = IW+IDO
./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 1761 R8FFTF1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 1762 R8FFTF1 
         IX3 = IX2+IDO
./pkg/zonal_filt/fftpack.F 1763 R8FFTF1 
         IX4 = IX3+IDO
./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 1769 R8FFTF1 
  108    IF (IDO .EQ. 1) NA = 1-NA
./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 1830 R8FFTI1 
         IDO = N/L2
./pkg/zonal_filt/fftpack.F 1837 R8FFTI1 
            DO 108 II=3,IDO,2
./pkg/zonal_filt/fftpack.F 1844 R8FFTI1 
            IS = IS+IDO
./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 220 RADBG 
     1                C1(IDO,L1,IP)          ,C2(IDL1,IP),
./pkg/zonal_filt/fftpack.F 226 RADBG 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 227 RADBG 
      NBD = (IDO-1)/2
./pkg/zonal_filt/fftpack.F 22 RADB2 
         CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 230 RADBG 
      IF (IDO .LT. L1) GO TO 103
./pkg/zonal_filt/fftpack.F 232 RADBG 
         DO 101 I=1,IDO
./pkg/zonal_filt/fftpack.F 237 RADBG 
  103 DO 105 I=1,IDO
./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 250 RADBG 
      IF (IDO .EQ. 1) GO TO 116
./pkg/zonal_filt/fftpack.F 255 RADBG 
            DO 109 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 25 RADB2 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 267 RADBG 
         DO 114 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 26 RADB2 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 28 RADB2 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 315 RADBG 
      IF (IDO .EQ. 1) GO TO 132
./pkg/zonal_filt/fftpack.F 320 RADBG 
            DO 125 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 331 RADBG 
         DO 130 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 341 RADBG 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 351 RADBG 
      IS = -IDO
./pkg/zonal_filt/fftpack.F 353 RADBG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 355 RADBG 
         DO 137 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 364 RADBG 
  139 IS = -IDO
./pkg/zonal_filt/fftpack.F 366 RADBG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 369 RADBG 
            DO 140 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 38 RADB2 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 391 RFFTB1 
         IDO = N/L2
./pkg/zonal_filt/fftpack.F 392 RFFTB1 
         IDL1 = IDO*L1
./pkg/zonal_filt/fftpack.F 394 RFFTB1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 395 RFFTB1 
         IX3 = IX2+IDO
./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 410 RFFTB1 
         IX2 = IW+IDO
./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 418 RFFTB1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 419 RFFTB1 
         IX3 = IX2+IDO
./pkg/zonal_filt/fftpack.F 41 RADB2 
         CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K))
./pkg/zonal_filt/fftpack.F 420 RFFTB1 
         IX4 = IX3+IDO
./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 431 RFFTB1 
  114    IF (IDO .EQ. 1) NA = 1-NA
./pkg/zonal_filt/fftpack.F 433 RFFTB1 
         IW = IW+(IP-1)*IDO
./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 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 461 RADF2 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 462 RADF2 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 464 RADF2 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 474 RADF2 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./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 493 RADF3 
         CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 495 RADF3 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 496 RADF3 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 498 RADF3 
         DO 102 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 50 RADB3 
      DIMENSION       CC(IDO,3,L1)           ,CH(IDO,L1,3)           ,
./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 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 536 RADF4 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 537 RADF4 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 539 RADF4 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 54 RADB3 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 565 RADF4 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 568 RADF4 
         TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4))
./pkg/zonal_filt/fftpack.F 569 RADF4 
         TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4))
./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 592 RADF5 
         CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 594 RADF5 
         CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 597 RADF5 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 598 RADF5 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 600 RADF5 
         DO 102 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 61 RADB3 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 62 RADB3 
      IDP2 = IDO+2
./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 646 RADFG 
     1                C1(IDO,L1,IP)          ,C2(IDL1,IP),
./pkg/zonal_filt/fftpack.F 64 RADB3 
         DO 102 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 654 RADFG 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 655 RADFG 
      NBD = (IDO-1)/2
./pkg/zonal_filt/fftpack.F 656 RADFG 
      IF (IDO .EQ. 1) GO TO 119
./pkg/zonal_filt/fftpack.F 666 RADFG 
      IS = -IDO
./pkg/zonal_filt/fftpack.F 668 RADFG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 670 RADFG 
         DO 105 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 679 RADFG 
  107 IS = -IDO
./pkg/zonal_filt/fftpack.F 681 RADFG 
         IS = IS+IDO
./pkg/zonal_filt/fftpack.F 684 RADFG 
            DO 108 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 695 RADFG 
            DO 112 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 706 RADFG 
         DO 117 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 759 RADFG 
      IF (IDO .LT. L1) GO TO 132
./pkg/zonal_filt/fftpack.F 761 RADFG 
         DO 130 I=1,IDO
./pkg/zonal_filt/fftpack.F 766 RADFG 
  132 DO 134 I=1,IDO
./pkg/zonal_filt/fftpack.F 775 RADFG 
            CC(IDO,J2-2,K) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 779 RADFG 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 785 RADFG 
            DO 138 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 798 RADFG 
         DO 143 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 824 RFFTF1 
         IDO = N/L2
./pkg/zonal_filt/fftpack.F 825 RFFTF1 
         IDL1 = IDO*L1
./pkg/zonal_filt/fftpack.F 826 RFFTF1 
         IW = IW-(IP-1)*IDO
./pkg/zonal_filt/fftpack.F 829 RFFTF1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 830 RFFTF1 
         IX3 = IX2+IDO
./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 843 RFFTF1 
         IX2 = IW+IDO
./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 850 RFFTF1 
         IX2 = IW+IDO
./pkg/zonal_filt/fftpack.F 851 RFFTF1 
         IX3 = IX2+IDO
./pkg/zonal_filt/fftpack.F 852 RFFTF1 
         IX4 = IX3+IDO
./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 858 RFFTF1 
  108    IF (IDO .EQ. 1) NA = 1-NA
./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 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 924 RFFTI1 
         IDO = N/L2
./pkg/zonal_filt/fftpack.F 931 RFFTI1 
            DO 108 II=3,IDO,2
./pkg/zonal_filt/fftpack.F 938 RFFTI1 
            IS = IS+IDO
./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 95 RADB4 
         TR1 = CC(1,1,K)-CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 960 R8ADB2 
      IF (IDO-2) 107,105,102
./pkg/zonal_filt/fftpack.F 961 R8ADB2 
  102 IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 963 R8ADB2 
         DO 103 I=3,IDO,2
./pkg/zonal_filt/fftpack.F 96 RADB4 
         TR2 = CC(1,1,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 973 R8ADB2 
      IF (MOD(IDO,2) .EQ. 1) RETURN
./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 97 RADB4 
         TR3 = CC(IDO,2,K)+CC(IDO,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 987 R8ADB3 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 994 R8ADB3 
      IF (IDO .EQ. 1) RETURN
./pkg/zonal_filt/fftpack.F 995 R8ADB3 
      IDP2 = IDO+2
./pkg/zonal_filt/fftpack.F 997 R8ADB3 
         DO 102 I=3,IDO,2