Symbol Description Uses
X1 18



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3103 PSI
      _RL X0(irun),X1(irun),Y0(irun),Y1(irun)
./pkg/fizhi/fizhi_turb.F 3158 PSI
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3168 PSI
       ARG1(I) = 1. - X1(I)
./pkg/fizhi/fizhi_turb.F 3177 PSI
       ARG0(I) = ARG0(I) * ( 1.+X1(I) )
./pkg/fizhi/fizhi_turb.F 3178 PSI
       DX(I) = X1(I) - X0(I)
./pkg/fizhi/fizhi_turb.F 3180 PSI
       ARG0(I) = -DX(I) / ( 1. + X1(I)*X0(I) )
./pkg/fizhi/fizhi_turb.F 3192 PSI
        VX(I) = X1(indx)
./pkg/fizhi/fizhi_turb.F 3310 PSI
       X1(I) = X1NUM(I) * X1DEN(I)
./pkg/fizhi/fizhi_turb.F 3320 PSI
       VX(I) = X1(indx)