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