PROGRAM TEST

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

I = TAN(Y)

END

 

more