Symbol Description Uses
IDIJ 56


File Line number Procedure Code
./pkg/zonal_filt/fftpack.F 1281 R8ADBG 
         IDIJ = IS
./pkg/zonal_filt/fftpack.F 1283 R8ADBG 
            IDIJ = IDIJ+2
./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 1295 R8ADBG 
            IDIJ = IS
./pkg/zonal_filt/fftpack.F 1297 R8ADBG 
               IDIJ = IDIJ+2
./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 1582 R8ADFG 
         IDIJ = IS
./pkg/zonal_filt/fftpack.F 1584 R8ADFG 
            IDIJ = IDIJ+2
./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 1596 R8ADFG 
            IDIJ = IS
./pkg/zonal_filt/fftpack.F 1598 R8ADFG 
               IDIJ = IDIJ+2
./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 354 RADBG 
         IDIJ = IS
./pkg/zonal_filt/fftpack.F 356 RADBG 
            IDIJ = IDIJ+2
./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 368 RADBG 
            IDIJ = IS
./pkg/zonal_filt/fftpack.F 370 RADBG 
               IDIJ = IDIJ+2
./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 669 RADFG 
         IDIJ = IS
./pkg/zonal_filt/fftpack.F 671 RADFG 
            IDIJ = IDIJ+2
./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 683 RADFG 
            IDIJ = IS
./pkg/zonal_filt/fftpack.F 685 RADFG 
               IDIJ = IDIJ+2
./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)