_RL PSI2(irun),TEMP(irun)
PSI2(I) = 2. * ARG0(I) + ARG1(I)
PSI2(I) = PSI2(I) + DX(I)
VPSIM(I) = PSI2(indx)
PSI2(I) = LOG( ARG1(I) )
PSI2(I) = PSI2(I) - Y1(I) + Y0(I)
VPSIH(I) = PSI2(indx)
PSI2(I) = TEMP(I) + CM6 * ARG1(I)
PSI2(I) = TEMP(I) + ARG0(I) * ARG1(I)