Symbol Description Uses
IP 94


File Line number Procedure Code
./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 1148 R8ADBG 
     2                CH2(IDL1,IP)           ,WA(*)
./pkg/zonal_filt/fftpack.F 1150 R8ADBG 
      ARG = TPI/FLOAT(IP)
./pkg/zonal_filt/fftpack.F 1155 R8ADBG 
      IPP2 = IP+2
./pkg/zonal_filt/fftpack.F 1156 R8ADBG 
      IPPH = (IP+1)/2
./pkg/zonal_filt/fftpack.F 1213 R8ADBG 
            C2(IK,LC) = AI1*CH2(IK,IP)
./pkg/zonal_filt/fftpack.F 1272 R8ADBG 
      DO 135 J=2,IP
./pkg/zonal_filt/fftpack.F 1279 R8ADBG 
      DO 138 J=2,IP
./pkg/zonal_filt/fftpack.F 1292 R8ADBG 
      DO 142 J=2,IP
./pkg/zonal_filt/fftpack.F 1314 R8FFTB1 
         IP = IFAC(K1+2)
./pkg/zonal_filt/fftpack.F 1315 R8FFTB1 
         L2 = IP*L1
./pkg/zonal_filt/fftpack.F 1318 R8FFTB1 
         IF (IP .NE. 4) GO TO 103
./pkg/zonal_filt/fftpack.F 1327 R8FFTB1 
  103    IF (IP .NE. 2) GO TO 106
./pkg/zonal_filt/fftpack.F 1334 R8FFTB1 
  106    IF (IP .NE. 3) GO TO 109
./pkg/zonal_filt/fftpack.F 1342 R8FFTB1 
  109    IF (IP .NE. 5) GO TO 112
./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 1358 R8FFTB1 
         IW = IW+(IP-1)*IDO
./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 1560 R8ADFG 
     2                CH2(IDL1,IP)           ,WA(*)
./pkg/zonal_filt/fftpack.F 1562 R8ADFG 
      ARG = TPI/FLOAT(IP)
./pkg/zonal_filt/fftpack.F 1565 R8ADFG 
      IPPH = (IP+1)/2
./pkg/zonal_filt/fftpack.F 1566 R8ADFG 
      IPP2 = IP+2
./pkg/zonal_filt/fftpack.F 1573 R8ADFG 
      DO 103 J=2,IP
./pkg/zonal_filt/fftpack.F 1580 R8ADFG 
      DO 106 J=2,IP
./pkg/zonal_filt/fftpack.F 1593 R8ADFG 
      DO 110 J=2,IP
./pkg/zonal_filt/fftpack.F 1649 R8ADFG 
            CH2(IK,LC) = AI1*C2(IK,IP)
./pkg/zonal_filt/fftpack.F 1733 R8FFTF1 
         IP = IFAC(KH+3)
./pkg/zonal_filt/fftpack.F 1734 R8FFTF1 
         L1 = L2/IP
./pkg/zonal_filt/fftpack.F 1737 R8FFTF1 
         IW = IW-(IP-1)*IDO
./pkg/zonal_filt/fftpack.F 1739 R8FFTF1 
         IF (IP .NE. 4) GO TO 102
./pkg/zonal_filt/fftpack.F 1747 R8FFTF1 
  102    IF (IP .NE. 2) GO TO 104
./pkg/zonal_filt/fftpack.F 1753 R8FFTF1 
  104    IF (IP .NE. 3) GO TO 106
./pkg/zonal_filt/fftpack.F 1760 R8FFTF1 
  106    IF (IP .NE. 5) GO TO 108
./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 1827 R8FFTI1 
         IP = IFAC(K1+2)
./pkg/zonal_filt/fftpack.F 1829 R8FFTI1 
         L2 = L1*IP
./pkg/zonal_filt/fftpack.F 1831 R8FFTI1 
         IPM = IP-1
./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 221 RADBG 
     2                CH2(IDL1,IP)           ,WA(*)
./pkg/zonal_filt/fftpack.F 223 RADBG 
      ARG = TPI/FLOAT(IP)
./pkg/zonal_filt/fftpack.F 228 RADBG 
      IPP2 = IP+2
./pkg/zonal_filt/fftpack.F 229 RADBG 
      IPPH = (IP+1)/2
./pkg/zonal_filt/fftpack.F 286 RADBG 
            C2(IK,LC) = AI1*CH2(IK,IP)
./pkg/zonal_filt/fftpack.F 345 RADBG 
      DO 135 J=2,IP
./pkg/zonal_filt/fftpack.F 352 RADBG 
      DO 138 J=2,IP
./pkg/zonal_filt/fftpack.F 365 RADBG 
      DO 142 J=2,IP
./pkg/zonal_filt/fftpack.F 389 RFFTB1 
         IP = IFAC(K1+2)
./pkg/zonal_filt/fftpack.F 390 RFFTB1 
         L2 = IP*L1
./pkg/zonal_filt/fftpack.F 393 RFFTB1 
         IF (IP .NE. 4) GO TO 103
./pkg/zonal_filt/fftpack.F 402 RFFTB1 
  103    IF (IP .NE. 2) GO TO 106
./pkg/zonal_filt/fftpack.F 409 RFFTB1 
  106    IF (IP .NE. 3) GO TO 109
./pkg/zonal_filt/fftpack.F 417 RFFTB1 
  109    IF (IP .NE. 5) GO TO 112
./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 433 RFFTB1 
         IW = IW+(IP-1)*IDO
./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 647 RADFG 
     2                CH2(IDL1,IP)           ,WA(*)
./pkg/zonal_filt/fftpack.F 649 RADFG 
      ARG = TPI/FLOAT(IP)
./pkg/zonal_filt/fftpack.F 652 RADFG 
      IPPH = (IP+1)/2
./pkg/zonal_filt/fftpack.F 653 RADFG 
      IPP2 = IP+2
./pkg/zonal_filt/fftpack.F 660 RADFG 
      DO 103 J=2,IP
./pkg/zonal_filt/fftpack.F 667 RADFG 
      DO 106 J=2,IP
./pkg/zonal_filt/fftpack.F 680 RADFG 
      DO 110 J=2,IP
./pkg/zonal_filt/fftpack.F 736 RADFG 
            CH2(IK,LC) = AI1*C2(IK,IP)
./pkg/zonal_filt/fftpack.F 822 RFFTF1 
         IP = IFAC(KH+3)
./pkg/zonal_filt/fftpack.F 823 RFFTF1 
         L1 = L2/IP
./pkg/zonal_filt/fftpack.F 826 RFFTF1 
         IW = IW-(IP-1)*IDO
./pkg/zonal_filt/fftpack.F 828 RFFTF1 
         IF (IP .NE. 4) GO TO 102
./pkg/zonal_filt/fftpack.F 836 RFFTF1 
  102    IF (IP .NE. 2) GO TO 104
./pkg/zonal_filt/fftpack.F 842 RFFTF1 
  104    IF (IP .NE. 3) GO TO 106
./pkg/zonal_filt/fftpack.F 849 RFFTF1 
  106    IF (IP .NE. 5) GO TO 108
./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 921 RFFTI1 
         IP = IFAC(K1+2)
./pkg/zonal_filt/fftpack.F 923 RFFTI1 
         L2 = L1*IP
./pkg/zonal_filt/fftpack.F 925 RFFTI1 
         IPM = IP-1