Symbol Description Uses
IBIT 24


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 1939 TRBFLX 
        IBIT = 0
./pkg/fizhi/fizhi_turb.F 1941 TRBFLX 
         IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 1943 TRBFLX 
        IF(IBIT.GE.1)GO TO 310
./pkg/fizhi/fizhi_turb.F 3100 PSI 
      IBIT = 0
./pkg/fizhi/fizhi_turb.F 3102 PSI 
       IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 3116 PSI 
      IF(IBIT.LE.0)  GO TO 100
./pkg/fizhi/fizhi_turb.F 3127 PSI 
      DO 9004 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3132 PSI 
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3133 PSI 
      CALL PHI( Z0,X0,Y0,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3141 PSI 
      DO 9006 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3178 PSI 
      DO 9010 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3209 PSI 
      IBIT = 0
./pkg/fizhi/fizhi_turb.F 3212 PSI 
        IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 3222 PSI 
      IF(IBIT.LE.0)  GO TO 300
./pkg/fizhi/fizhi_turb.F 3239 PSI 
      DO 9018 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3283 PSI 
      DO 9020 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3306 PSI 
      DO 9024 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3434 TRBLEN 
      IBIT = 0
./pkg/fizhi/fizhi_turb.F 3436 TRBLEN 
      IBIT = IBIT + INT1(I,LMIN)
./pkg/fizhi/fizhi_turb.F 3438 TRBLEN 
      IF(IBIT.GE.1) GO TO 50