Symbol Description Uses
IBIT1 5



File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 3401 PHI
      IBIT1 = 0
./pkg/fizhi/fizhi_turb.F 3405 PHI
       IF(Z(I).GE.0.15)IBIT1 = IBIT1 + 1
./pkg/fizhi/fizhi_turb.F 3409 PHI
      IF( IBIT1 .LE. 0 ) GO TO 200
./pkg/fizhi/fizhi_turb.F 3457 PHI
      IF( IBIT1 .GE. N ) GO TO 500