Symbol Description Uses
IBIT1 10



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 2975 PHI
      IBIT1 = 0
./pkg/fizhi/fizhi_turb.F 2979 PHI
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./pkg/fizhi/fizhi_turb.F 2983 PHI
      IF( IBIT1 .LE. 0 ) GO TO 200
./pkg/fizhi/fizhi_turb.F 3031 PHI
      IF( IBIT1 .GE. N ) GO TO 500