Symbol Description Uses
AI1 28


File Line number Procedure Code
./pkg/zonal_filt/fftpack.F 1205 R8ADBG 
      AI1 = 0.D0
./pkg/zonal_filt/fftpack.F 1208 R8ADBG 
         AR1H = DCP*AR1-DSP*AI1
./pkg/zonal_filt/fftpack.F 1209 R8ADBG 
         AI1 = DCP*AI1+DSP*AR1
./pkg/zonal_filt/fftpack.F 1213 R8ADBG 
            C2(IK,LC) = AI1*CH2(IK,IP)
./pkg/zonal_filt/fftpack.F 1216 R8ADBG 
         DS2 = AI1
./pkg/zonal_filt/fftpack.F 1218 R8ADBG 
         AI2 = AI1
./pkg/zonal_filt/fftpack.F 1641 R8ADFG 
      AI1 = 0.D0
./pkg/zonal_filt/fftpack.F 1644 R8ADFG 
         AR1H = DCP*AR1-DSP*AI1
./pkg/zonal_filt/fftpack.F 1645 R8ADFG 
         AI1 = DCP*AI1+DSP*AR1
./pkg/zonal_filt/fftpack.F 1649 R8ADFG 
            CH2(IK,LC) = AI1*C2(IK,IP)
./pkg/zonal_filt/fftpack.F 1652 R8ADFG 
         DS2 = AI1
./pkg/zonal_filt/fftpack.F 1654 R8ADFG 
         AI2 = AI1
./pkg/zonal_filt/fftpack.F 278 RADBG 
      AI1 = 0.D0
./pkg/zonal_filt/fftpack.F 281 RADBG 
         AR1H = DCP*AR1-DSP*AI1
./pkg/zonal_filt/fftpack.F 282 RADBG 
         AI1 = DCP*AI1+DSP*AR1
./pkg/zonal_filt/fftpack.F 286 RADBG 
            C2(IK,LC) = AI1*CH2(IK,IP)
./pkg/zonal_filt/fftpack.F 289 RADBG 
         DS2 = AI1
./pkg/zonal_filt/fftpack.F 291 RADBG 
         AI2 = AI1
./pkg/zonal_filt/fftpack.F 728 RADFG 
      AI1 = 0.D0
./pkg/zonal_filt/fftpack.F 731 RADFG 
         AR1H = DCP*AR1-DSP*AI1
./pkg/zonal_filt/fftpack.F 732 RADFG 
         AI1 = DCP*AI1+DSP*AR1
./pkg/zonal_filt/fftpack.F 736 RADFG 
            CH2(IK,LC) = AI1*C2(IK,IP)
./pkg/zonal_filt/fftpack.F 739 RADFG 
         DS2 = AI1
./pkg/zonal_filt/fftpack.F 741 RADFG 
         AI2 = AI1