Symbol Description Uses
WA3 48



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 1023 R8ADB4
     1                WA1(*)     ,WA2(*)     ,WA3(*)
./pkg/zonal_filt/fftpack.F 1060 R8ADB4
            CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4
./pkg/zonal_filt/fftpack.F 1061 R8ADB4
            CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
./pkg/zonal_filt/fftpack.F 1078 R8ADB5
      SUBROUTINE R8ADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1082 R8ADB5
     1                WA1(*)     ,WA2(*)     ,WA3(*)     ,WA4(*)
./pkg/zonal_filt/fftpack.F 1135 R8ADB5
            CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4
./pkg/zonal_filt/fftpack.F 1136 R8ADB5
            CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
./pkg/zonal_filt/fftpack.F 129 RADB4
            CH(I-1,K,4) = WA3(I-2)*CR4-WA3(I-1)*CI4
./pkg/zonal_filt/fftpack.F 130 RADB4
            CH(I,K,4) = WA3(I-2)*CI4+WA3(I-1)*CR4
./pkg/zonal_filt/fftpack.F 1439 R8ADF4
      SUBROUTINE R8ADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 1443 R8ADF4
     1                WA1(*)     ,WA2(*)     ,WA3(*)
./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 147 RADB5
      SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1494 R8ADF5
      SUBROUTINE R8ADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1498 R8ADF5
     1                WA1(*)     ,WA2(*)     ,WA3(*)     ,WA4(*)
./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 153 RADB5
     1                WA1(*)     ,WA2(*)     ,WA3(*)     ,WA4(*)
./pkg/zonal_filt/fftpack.F 206 RADB5
            CH(I-1,K,4) = WA3(I-2)*DR4-WA3(I-1)*DI4
./pkg/zonal_filt/fftpack.F 207 RADB5
            CH(I,K,4) = WA3(I-2)*DI4+WA3(I-1)*DR4
./pkg/zonal_filt/fftpack.F 520 RADF4
      SUBROUTINE RADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 526 RADF4
     1                WA1(*)     ,WA2(*)     ,WA3(*)
./pkg/zonal_filt/fftpack.F 545 RADF4
            CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 546 RADF4
            CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 577 RADF5
      SUBROUTINE RADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 583 RADF5
     1                WA1(*)     ,WA2(*)     ,WA3(*)     ,WA4(*)
./pkg/zonal_filt/fftpack.F 606 RADF5
            DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 607 RADF5
            DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 86 RADB4
      SUBROUTINE RADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 92 RADB4
     1                WA1(*)     ,WA2(*)     ,WA3(*)