integer INT2(IRUN),INT3(IRUN),INT4(IRUN)
INT3(I) = 1
INT3(I) = 0
IF(INT3(I).EQ.1) VUSTAR(I) = 1.e-6
IF( INT3(I).EQ.1 ) AA(I,K) = AA3(K)