Symbol Description Uses
WA 144


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 1148 R8ADBG 
     2                CH2(IDL1,IP)           ,WA(*)
./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 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 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 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 1555 R8ADFG 
      SUBROUTINE R8ADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 1560 R8ADFG 
     2                CH2(IDL1,IP)           ,WA(*)
./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 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(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 1791 R8FFTI1 
      SUBROUTINE R8FFTI1 (N,WA,IFAC)
./pkg/zonal_filt/fftpack.F 1794 R8FFTI1 
      DIMENSION       WA(*)      ,IFAC(*)    ,NTRYH(4)
./pkg/zonal_filt/fftpack.F 1841 R8FFTI1 
               WA(I-1) = COS(ARG)
./pkg/zonal_filt/fftpack.F 1842 R8FFTI1 
               WA(I) = SIN(ARG)
./pkg/zonal_filt/fftpack.F 214 RADBG 
      SUBROUTINE RADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 221 RADBG 
     2                CH2(IDL1,IP)           ,WA(*)
./pkg/zonal_filt/fftpack.F 358 RADBG 
               C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
./pkg/zonal_filt/fftpack.F 359 RADBG 
               C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 371 RADBG 
               C1(I-1,K,J) = WA(IDIJ-1)*CH(I-1,K,J)-WA(IDIJ)*CH(I,K,J)
./pkg/zonal_filt/fftpack.F 372 RADBG 
               C1(I,K,J) = WA(IDIJ-1)*CH(I,K,J)+WA(IDIJ)*CH(I-1,K,J)
./pkg/zonal_filt/fftpack.F 378 RFFTB1 
      SUBROUTINE RFFTB1 (N,C,CH,WA,IFAC)
./pkg/zonal_filt/fftpack.F 383 RFFTB1 
      DIMENSION       CH(*)      ,C(*)       ,WA(*)      ,IFAC(*)
./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 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 640 RADFG 
      SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 647 RADFG 
     2                CH2(IDL1,IP)           ,WA(*)
./pkg/zonal_filt/fftpack.F 673 RADFG 
               CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
./pkg/zonal_filt/fftpack.F 674 RADFG 
               CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
./pkg/zonal_filt/fftpack.F 686 RADFG 
               CH(I-1,K,J) = WA(IDIJ-1)*C1(I-1,K,J)+WA(IDIJ)*C1(I,K,J)
./pkg/zonal_filt/fftpack.F 687 RADFG 
               CH(I,K,J) = WA(IDIJ-1)*C1(I,K,J)-WA(IDIJ)*C1(I-1,K,J)
./pkg/zonal_filt/fftpack.F 810 RFFTF1 
      SUBROUTINE RFFTF1 (N,C,CH,WA,IFAC)
./pkg/zonal_filt/fftpack.F 815 RFFTF1 
      DIMENSION       CH(*)      ,C(*)       ,WA(*)      ,IFAC(*)
./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 883 RFFTI1 
      SUBROUTINE RFFTI1 (N,WA,IFAC)
./pkg/zonal_filt/fftpack.F 888 RFFTI1 
      DIMENSION       WA(*)      ,IFAC(*)    ,NTRYH(4)
./pkg/zonal_filt/fftpack.F 935 RFFTI1 
               WA(I-1) = COS(ARG)
./pkg/zonal_filt/fftpack.F 936 RFFTI1 
               WA(I) = SIN(ARG)