Symbol Description Uses
DR2 28


File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 1257 SMFAC 
      _RL   RCUNTD,  RHOAIR,   CONST,     DEF,     D12,     DR2,
./pkg/fizhi/fizhi_lsm.F 1271 SMFAC 
      DR2 = PHR(ChNo) - Z2(ChNo) - VGPH2X(ChNo)
./pkg/fizhi/fizhi_lsm.F 1274 SMFAC 
      EEST = DEF*DR2 / ( RCUNTD*D12 + DEF*R0 )
./pkg/fizhi/fizhi_lsm.F 1275 SMFAC 
      RSTFAC = ( DR2 - R0*EEST ) / D12
./pkg/zonal_filt/fftpack.F 1007 R8ADB3 
            DR2 = CR2-CI3
./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 1128 R8ADB5 
            DR2 = CR2-CI5
./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 1419 R8ADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1423 R8ADF3 
            CR2 = DR2+DR3
./pkg/zonal_filt/fftpack.F 1430 R8ADF3 
            TI3 = TAUI*(DR3-DR2)
./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 1525 R8ADF5 
            CR2 = DR2+DR5
./pkg/zonal_filt/fftpack.F 1526 R8ADF5 
            CI5 = DR5-DR2
./pkg/zonal_filt/fftpack.F 199 RADB5 
            DR2 = CR2-CI5
./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 500 RADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 504 RADF3 
            CR2 = DR2+DR3
./pkg/zonal_filt/fftpack.F 511 RADF3 
            TI3 = TAUI*(DR3-DR2)
./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 610 RADF5 
            CR2 = DR2+DR5
./pkg/zonal_filt/fftpack.F 611 RADF5 
            CI5 = DR5-DR2
./pkg/zonal_filt/fftpack.F 74 RADB3 
            DR2 = CR2-CI3
./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