integer VINT1(irun),VINT2(irun)
VINT1(I) = 1
VINT1(I) = 0
IF ( VINT1(I).EQ.1 ) VDZETA(I) = VDZETA1(I)
IF(VINT1(I).EQ.1)VDZETA(I)=VXNUM1(I)*VRIB2(I) - 1. - VDZETA1(I)
IF(VINT1(I).EQ.1) VDZETA1(I) = VDPSIMC(I) / VDXPSIM(I)
IF((VINT1(I).EQ.1).OR.(VINT2(I).EQ.1)) VTEMPLIN(I) =
IF((VINT1(I).EQ.1).OR.(VINT2(I).EQ.1)) THEN