PROGRAM TEST

COMMON / ALPHA / BETA,I,J,I,ALPHA,X
LOGICAL I,ALPHA,I,X,I,ALPHA,J,K

Z = X-BETA

END

 

more