Symbol Description Uses
WA1 96


File Line number Procedure Code
./pkg/zonal_filt/fftpack.F 1011 R8ADB3 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 1012 R8ADB3 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./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 1056 R8ADB4 
            CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2
./pkg/zonal_filt/fftpack.F 1057 R8ADB4 
            CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2
./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 1131 R8ADB5 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 1132 R8ADB5 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./pkg/zonal_filt/fftpack.F 125 RADB4 
            CH(I-1,K,2) = WA1(I-2)*CR2-WA1(I-1)*CI2
./pkg/zonal_filt/fftpack.F 126 RADB4 
            CH(I,K,2) = WA1(I-2)*CI2+WA1(I-1)*CR2
./pkg/zonal_filt/fftpack.F 12 RADB2 
      SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1373 R8ADF2 
      SUBROUTINE R8ADF2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1377 R8ADF2 
     1                WA1(*)
./pkg/zonal_filt/fftpack.F 1387 R8ADF2 
            TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1388 R8ADF2 
            TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1402 R8ADF3 
      SUBROUTINE R8ADF3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 1406 R8ADF3 
     1                WA1(*)     ,WA2(*)
./pkg/zonal_filt/fftpack.F 1419 R8ADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1420 R8ADF3 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./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 1458 R8ADF4 
            CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1459 R8ADF4 
            CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./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 1517 R8ADF5 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1518 R8ADF5 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 153 RADB5 
     1                WA1(*)     ,WA2(*)     ,WA3(*)     ,WA4(*)
./pkg/zonal_filt/fftpack.F 202 RADB5 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 203 RADB5 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./pkg/zonal_filt/fftpack.F 20 RADB2 
     1                WA1(*)
./pkg/zonal_filt/fftpack.F 34 RADB2 
            CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2
./pkg/zonal_filt/fftpack.F 35 RADB2 
            CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2
./pkg/zonal_filt/fftpack.F 450 RADF2 
      SUBROUTINE RADF2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 456 RADF2 
     1                WA1(*)
./pkg/zonal_filt/fftpack.F 45 RADB3 
      SUBROUTINE RADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 466 RADF2 
            TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 467 RADF2 
            TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 481 RADF3 
      SUBROUTINE RADF3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 487 RADF3 
     1                WA1(*)     ,WA2(*)
./pkg/zonal_filt/fftpack.F 500 RADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 501 RADF3 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 51 RADB3 
     1                WA1(*)     ,WA2(*)
./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 541 RADF4 
            CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 542 RADF4 
            CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./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 602 RADF5 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 603 RADF5 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 78 RADB3 
            CH(I-1,K,2) = WA1(I-2)*DR2-WA1(I-1)*DI2
./pkg/zonal_filt/fftpack.F 79 RADB3 
            CH(I,K,2) = WA1(I-2)*DI2+WA1(I-1)*DR2
./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(*)
./pkg/zonal_filt/fftpack.F 951 R8ADB2 
      SUBROUTINE R8ADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 955 R8ADB2 
     1                WA1(*)
./pkg/zonal_filt/fftpack.F 969 R8ADB2 
            CH(I-1,K,2) = WA1(I-2)*TR2-WA1(I-1)*TI2
./pkg/zonal_filt/fftpack.F 970 R8ADB2 
            CH(I,K,2) = WA1(I-2)*TI2+WA1(I-1)*TR2
./pkg/zonal_filt/fftpack.F 980 R8ADB3 
      SUBROUTINE R8ADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 984 R8ADB3 
     1                WA1(*)     ,WA2(*)