PROGRAM CUBIC

CHARACTER*2 I,Y,ALPHA
LOGICAL J,BETA,Y,Z,BETA
CHARACTER*6 BETA,I,BETA,Z

BETA = K

END

 

more