CHARACTER*(*) NAME
IF(NAME.EQ.ANAME(1)) THEN
FUNCTION ASKPARAMRL(NAME)
900 PRINT *,' ASKPARAMI CANNOT FIND - ',NAME
900 PRINT *,' ASKPARAMRL CANNOT FIND - ',NAME
FUNCTION ASKPARAML(NAME)
900 PRINT *,' ASKPARAML CANNOT FIND - ',NAME
FUNCTION ASKPARAMI(NAME)
IF(NAME.EQ.ANAME(I)) THEN
900 PRINT *,' CANNOT FIND FLOATING POINT CONSTANT - ',NAME
FUNCTION GETCON(NAME)