PROGRAM FRED

INTEGER Y,I,I
COMMON / I / X,I,X,X,Z,I,Y,J,J,Y
COMMON / Y / X
LOGICAL I,K,Z,K,ALPHA
REAL K,BETA,Z,BETA,BETA,ALPHA
INTEGER X,K
REAL I,Y,ALPHA

Z = K
I = COS(ALPHA)

END

 

more