Symbol Description Uses
INT3 7


File Line number Procedure Code
./pkg/fizhi/fizhi_turb.F 5000 ZCSUB 
      integer INT2(IRUN),INT3(IRUN),INT4(IRUN)
./pkg/fizhi/fizhi_turb.F 5018 ZCSUB 
        INT3(I) = 1
./pkg/fizhi/fizhi_turb.F 5020 ZCSUB 
        INT3(I) = 0
./pkg/fizhi/fizhi_turb.F 5024 ZCSUB 
       IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6
./pkg/fizhi/fizhi_turb.F 5040 ZCSUB 
        INT3(I) = 1
./pkg/fizhi/fizhi_turb.F 5042 ZCSUB 
        INT3(I) = 0
./pkg/fizhi/fizhi_turb.F 5057 ZCSUB 
        IF( INT3(I).EQ.1 )  AA(I,K) = AA3(K)