Symbol Description Uses
L1 244


File Line number Procedure Code
./pkg/fizhi/fizhi_init_chem.F 203 GET_METHANE_N2O 
      integer L,L1,L2,lup,ldn
./pkg/fizhi/fizhi_init_chem.F 241 GET_METHANE_N2O 
         do L1 = 1,46
./pkg/fizhi/fizhi_init_chem.F 242 GET_METHANE_N2O 
            if( plevz(L1).gt.pres(L2) ) then
./pkg/fizhi/fizhi_init_chem.F 243 GET_METHANE_N2O 
                if( L1.eq.1 ) then
./pkg/fizhi/fizhi_init_chem.F 247 GET_METHANE_N2O 
                    lup = L1-1
./pkg/fizhi/fizhi_init_chem.F 248 GET_METHANE_N2O 
                    ldn = L1
./pkg/fizhi/update_chemistry_exports.F 177 INTERP_QZ 
      integer i,k,L1,L2,LM,LP
./pkg/fizhi/update_chemistry_exports.F 229 INTERP_QZ 
        DO 46 L1 = 1,nwatlevs
./pkg/fizhi/update_chemistry_exports.F 230 INTERP_QZ 
           IF( watlevs(L1).GT.pres(i,L2) ) THEN
./pkg/fizhi/update_chemistry_exports.F 231 INTERP_QZ 
             IF( L1.EQ.1 ) THEN
./pkg/fizhi/update_chemistry_exports.F 235 INTERP_QZ 
                 LM = L1-1
./pkg/fizhi/update_chemistry_exports.F 236 INTERP_QZ 
                 LP = L1
./pkg/fizhi/update_chemistry_exports.F 311 INTERP_OZ 
      integer  i,k,L1,L2,LM,LP
./pkg/fizhi/update_chemistry_exports.F 360 INTERP_OZ 
      DO 46 L1 = 1,nozlevs
./pkg/fizhi/update_chemistry_exports.F 361 INTERP_OZ 
      IF( ozlevs(L1).GT.PLEVS(I,L2) ) THEN
./pkg/fizhi/update_chemistry_exports.F 362 INTERP_OZ 
      IF( L1.EQ.1 ) THEN
./pkg/fizhi/update_chemistry_exports.F 366 INTERP_OZ 
          LM = L1-1
./pkg/fizhi/update_chemistry_exports.F 367 INTERP_OZ 
          LP = L1
./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 1025 R8ADB4 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1037 R8ADB4 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 1066 R8ADB4 
      DO 106 K=1,L1
./pkg/zonal_filt/fftpack.F 106 RADB4 
      DO 104 K=1,L1
./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 1085 R8ADB5 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1102 R8ADB5 
      DO 103 K=1,L1
./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 1157 R8ADBG 
      IF (IDO .LT. L1) GO TO 103
./pkg/zonal_filt/fftpack.F 1158 R8ADBG 
      DO 102 K=1,L1
./pkg/zonal_filt/fftpack.F 1165 R8ADBG 
         DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 1172 R8ADBG 
         DO 107 K=1,L1
./pkg/zonal_filt/fftpack.F 1178 R8ADBG 
      IF (NBD .LT. L1) GO TO 112
./pkg/zonal_filt/fftpack.F 1181 R8ADBG 
         DO 110 K=1,L1
./pkg/zonal_filt/fftpack.F 1196 R8ADBG 
            DO 113 K=1,L1
./pkg/zonal_filt/fftpack.F 1237 R8ADBG 
         DO 123 K=1,L1
./pkg/zonal_filt/fftpack.F 1243 R8ADBG 
      IF (NBD .LT. L1) GO TO 128
./pkg/zonal_filt/fftpack.F 1246 R8ADBG 
         DO 126 K=1,L1
./pkg/zonal_filt/fftpack.F 1259 R8ADBG 
            DO 129 K=1,L1
./pkg/zonal_filt/fftpack.F 1273 R8ADBG 
         DO 134 K=1,L1
./pkg/zonal_filt/fftpack.F 1277 R8ADBG 
      IF (NBD .GT. L1) GO TO 139
./pkg/zonal_filt/fftpack.F 1284 R8ADBG 
            DO 136 K=1,L1
./pkg/zonal_filt/fftpack.F 1294 R8ADBG 
         DO 141 K=1,L1
./pkg/zonal_filt/fftpack.F 12 RADB2 
      SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1311 R8FFTB1 
      L1 = 1
./pkg/zonal_filt/fftpack.F 1315 R8FFTB1 
         L2 = IP*L1
./pkg/zonal_filt/fftpack.F 1317 R8FFTB1 
         IDL1 = IDO*L1
./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 1357 R8FFTB1 
  115    L1 = L2
./pkg/zonal_filt/fftpack.F 135 RADB4 
      DO 106 K=1,L1
./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 1378 R8ADF2 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1384 R8ADF2 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 1396 R8ADF2 
  105 DO 106 K=1,L1
./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 1408 R8ADF3 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1416 R8ADF3 
      DO 103 K=1,L1
./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 1445 R8ADF4 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1455 R8ADF4 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 147 RADB5 
      SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1484 R8ADF4 
      DO 106 K=1,L1
./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 1501 R8ADF5 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1514 R8ADF5 
      DO 103 K=1,L1
./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 156 RADB5 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 1574 R8ADFG 
         DO 102 K=1,L1
./pkg/zonal_filt/fftpack.F 1578 R8ADFG 
      IF (NBD .GT. L1) GO TO 107
./pkg/zonal_filt/fftpack.F 1585 R8ADFG 
            DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 1595 R8ADFG 
         DO 109 K=1,L1
./pkg/zonal_filt/fftpack.F 1604 R8ADFG 
  111 IF (NBD .LT. L1) GO TO 115
./pkg/zonal_filt/fftpack.F 1607 R8ADFG 
         DO 113 K=1,L1
./pkg/zonal_filt/fftpack.F 1620 R8ADFG 
            DO 116 K=1,L1
./pkg/zonal_filt/fftpack.F 1634 R8ADFG 
         DO 122 K=1,L1
./pkg/zonal_filt/fftpack.F 1672 R8ADFG 
      IF (IDO .LT. L1) GO TO 132
./pkg/zonal_filt/fftpack.F 1673 R8ADFG 
      DO 131 K=1,L1
./pkg/zonal_filt/fftpack.F 1680 R8ADFG 
         DO 133 K=1,L1
./pkg/zonal_filt/fftpack.F 1687 R8ADFG 
         DO 136 K=1,L1
./pkg/zonal_filt/fftpack.F 1693 R8ADFG 
      IF (NBD .LT. L1) GO TO 141
./pkg/zonal_filt/fftpack.F 1697 R8ADFG 
         DO 139 K=1,L1
./pkg/zonal_filt/fftpack.F 1713 R8ADFG 
            DO 142 K=1,L1
./pkg/zonal_filt/fftpack.F 1734 R8FFTF1 
         L1 = L2/IP
./pkg/zonal_filt/fftpack.F 1736 R8FFTF1 
         IDL1 = IDO*L1
./pkg/zonal_filt/fftpack.F 173 RADB5 
      DO 103 K=1,L1
./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 1776 R8FFTF1 
  110    L2 = L1
./pkg/zonal_filt/fftpack.F 1824 R8FFTI1 
      L1 = 1
./pkg/zonal_filt/fftpack.F 1829 R8FFTI1 
         L2 = L1*IP
./pkg/zonal_filt/fftpack.F 1833 R8FFTI1 
            LD = LD+L1
./pkg/zonal_filt/fftpack.F 1846 R8FFTI1 
         L1 = L2
./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 21 RADB2 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 220 RADBG 
     1                C1(IDO,L1,IP)          ,C2(IDL1,IP),
./pkg/zonal_filt/fftpack.F 230 RADBG 
      IF (IDO .LT. L1) GO TO 103
./pkg/zonal_filt/fftpack.F 231 RADBG 
      DO 102 K=1,L1
./pkg/zonal_filt/fftpack.F 238 RADBG 
         DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 245 RADBG 
         DO 107 K=1,L1
./pkg/zonal_filt/fftpack.F 251 RADBG 
      IF (NBD .LT. L1) GO TO 112
./pkg/zonal_filt/fftpack.F 254 RADBG 
         DO 110 K=1,L1
./pkg/zonal_filt/fftpack.F 269 RADBG 
            DO 113 K=1,L1
./pkg/zonal_filt/fftpack.F 27 RADB2 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 310 RADBG 
         DO 123 K=1,L1
./pkg/zonal_filt/fftpack.F 316 RADBG 
      IF (NBD .LT. L1) GO TO 128
./pkg/zonal_filt/fftpack.F 319 RADBG 
         DO 126 K=1,L1
./pkg/zonal_filt/fftpack.F 332 RADBG 
            DO 129 K=1,L1
./pkg/zonal_filt/fftpack.F 346 RADBG 
         DO 134 K=1,L1
./pkg/zonal_filt/fftpack.F 350 RADBG 
      IF (NBD .GT. L1) GO TO 139
./pkg/zonal_filt/fftpack.F 357 RADBG 
            DO 136 K=1,L1
./pkg/zonal_filt/fftpack.F 367 RADBG 
         DO 141 K=1,L1
./pkg/zonal_filt/fftpack.F 386 RFFTB1 
      L1 = 1
./pkg/zonal_filt/fftpack.F 390 RFFTB1 
         L2 = IP*L1
./pkg/zonal_filt/fftpack.F 392 RFFTB1 
         IDL1 = IDO*L1
./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 39 RADB2 
  105 DO 106 K=1,L1
./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 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 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 432 RFFTB1 
  115    L1 = L2
./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 457 RADF2 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 45 RADB3 
      SUBROUTINE RADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 463 RADF2 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 475 RADF2 
  105 DO 106 K=1,L1
./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 489 RADF3 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 497 RADF3 
      DO 103 K=1,L1
./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 528 RADF4 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 538 RADF4 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 53 RADB3 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 567 RADF4 
      DO 106 K=1,L1
./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 586 RADF5 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 599 RADF5 
      DO 103 K=1,L1
./pkg/zonal_filt/fftpack.F 63 RADB3 
      DO 103 K=1,L1
./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 661 RADFG 
         DO 102 K=1,L1
./pkg/zonal_filt/fftpack.F 665 RADFG 
      IF (NBD .GT. L1) GO TO 107
./pkg/zonal_filt/fftpack.F 672 RADFG 
            DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 682 RADFG 
         DO 109 K=1,L1
./pkg/zonal_filt/fftpack.F 691 RADFG 
  111 IF (NBD .LT. L1) GO TO 115
./pkg/zonal_filt/fftpack.F 694 RADFG 
         DO 113 K=1,L1
./pkg/zonal_filt/fftpack.F 707 RADFG 
            DO 116 K=1,L1
./pkg/zonal_filt/fftpack.F 721 RADFG 
         DO 122 K=1,L1
./pkg/zonal_filt/fftpack.F 759 RADFG 
      IF (IDO .LT. L1) GO TO 132
./pkg/zonal_filt/fftpack.F 760 RADFG 
      DO 131 K=1,L1
./pkg/zonal_filt/fftpack.F 767 RADFG 
         DO 133 K=1,L1
./pkg/zonal_filt/fftpack.F 774 RADFG 
         DO 136 K=1,L1
./pkg/zonal_filt/fftpack.F 780 RADFG 
      IF (NBD .LT. L1) GO TO 141
./pkg/zonal_filt/fftpack.F 784 RADFG 
         DO 139 K=1,L1
./pkg/zonal_filt/fftpack.F 800 RADFG 
            DO 142 K=1,L1
./pkg/zonal_filt/fftpack.F 823 RFFTF1 
         L1 = L2/IP
./pkg/zonal_filt/fftpack.F 825 RFFTF1 
         IDL1 = IDO*L1
./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 865 RFFTF1 
  110    L2 = L1
./pkg/zonal_filt/fftpack.F 86 RADB4 
      SUBROUTINE RADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 918 RFFTI1 
      L1 = 1
./pkg/zonal_filt/fftpack.F 91 RADB4 
      DIMENSION       CC(IDO,4,L1)           ,CH(IDO,L1,4)           ,
./pkg/zonal_filt/fftpack.F 923 RFFTI1 
         L2 = L1*IP
./pkg/zonal_filt/fftpack.F 927 RFFTI1 
            LD = LD+L1
./pkg/zonal_filt/fftpack.F 940 RFFTI1 
         L1 = L2
./pkg/zonal_filt/fftpack.F 94 RADB4 
      DO 101 K=1,L1
./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 956 R8ADB2 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 962 R8ADB2 
      DO 104 K=1,L1
./pkg/zonal_filt/fftpack.F 974 R8ADB2 
  105 DO 106 K=1,L1
./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 986 R8ADB3 
      DO 101 K=1,L1
./pkg/zonal_filt/fftpack.F 996 R8ADB3 
      DO 103 K=1,L1