1*-----------------------------------------------------------------------
2*     Copyright (C) 2000-2004 GFD Dennou Club. All rights reserved.
3*-----------------------------------------------------------------------
4      LOGICAL FUNCTION LREQ1(X,Y)
5
6      LOGICAL   LFRST
7
8      SAVE
9
10      DATA      LFRST/.TRUE./
11
12
13      IF (LFRST) THEN
14        CALL GLRGET('REPSL',REPSL)
15        LFRST=.FALSE.
16      END IF
17
18      CALL GLRGET('RFACT',RFACT)
19      EP=REPSL*RFACT
20
21      LREQ1=ABS(X-Y).LE.(ABS(X)+ABS(Y))*EP/2
22
23      END
24