PROGRAM TEST

COMMON / Z / Y,J,Y,BETA,I,Y,Y,X

Y = SIN(K+(SIN(37)))
J = Z*(ALPHA*J)
I = BETA/J
Z = K+X

END

 

more