1*----------------------------------------------------------------------- 2* LREQ 3*----------------------------------------------------------------------- 4* Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved. 5*----------------------------------------------------------------------- 6 LOGICAL FUNCTION LREQ(X,Y) 7 8 LOGICAL LREQ0,LREQ1,LEPSL 9 10 EXTERNAL LREQ0,LREQ1 11 12 13 CALL GLLGET('LEPSL',LEPSL) 14 IF (LEPSL) THEN 15 LREQ=LREQ1(X,Y) 16 ELSE 17 LREQ=LREQ0(X,Y) 18 END IF 19 20 END 21