Symbol Description Uses
IBIT 24


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2277 TRBFLX 
        IBIT = 0
./pkg/fizhi/fizhi_turb.F 2279 TRBFLX 
         IF ( QQ(I,LMINQ).GT.1.e-8 ) IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 2281 TRBFLX 
        IF(IBIT.GE.1)GO TO 310
./pkg/fizhi/fizhi_turb.F 3552 PSI 
      IBIT = 0
./pkg/fizhi/fizhi_turb.F 3554 PSI 
       IF(VZZ(I).LE.-1.e-7)IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 3568 PSI 
      IF(IBIT.LE.0)  GO TO 100
./pkg/fizhi/fizhi_turb.F 3579 PSI 
      DO 9004 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3584 PSI 
      CALL PHI( Z,X1,Y1,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3585 PSI 
      CALL PHI( Z0,X0,Y0,IFLAG,IBIT )
./pkg/fizhi/fizhi_turb.F 3593 PSI 
      DO 9006 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3630 PSI 
      DO 9010 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3661 PSI 
      IBIT = 0
./pkg/fizhi/fizhi_turb.F 3664 PSI 
        IBIT = IBIT + 1
./pkg/fizhi/fizhi_turb.F 3674 PSI 
      IF(IBIT.LE.0)  GO TO 300
./pkg/fizhi/fizhi_turb.F 3691 PSI 
      DO 9018 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3735 PSI 
      DO 9020 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3758 PSI 
      DO 9024 I = 1,IBIT
./pkg/fizhi/fizhi_turb.F 3897 TRBLEN 
      IBIT = 0
./pkg/fizhi/fizhi_turb.F 3899 TRBLEN 
      IBIT = IBIT + INT1(I,LMIN)
./pkg/fizhi/fizhi_turb.F 3901 TRBLEN 
      IF(IBIT.GE.1) GO TO 50