PROGRAM TEST
LOGICAL I
INTEGER ALPHA,ALPHA
CHARACTER*2 Y,Z,Y,J,BETA,Y,J
I = TAN(Y)
END
more