98       LOGICAL            LDE  variable
99       EXTERNAL           DDIFF, LDE
279       SAME = LDE( YY, YT, N )
287       SAME = LDE( YY, YT, N )
499       LOGICAL            LDE, LDERES  local
500       EXTERNAL           LDE, LDERES
683                                  ISAME( 5 ) = LDE( AS, AA, LAA )
685                                  ISAME( 7 ) = LDE( XS, XX, LX )
689                                     ISAME( 10 ) = LDE( YS, YY, LY )
700                                  ISAME( 7 ) = LDE( AS, AA, LAA )
702                                  ISAME( 9 ) = LDE( XS, XX, LX )
706                                     ISAME( 12 ) = LDE( YS, YY, LY )
858       LOGICAL            LDE, LDERES  local
859       EXTERNAL           LDE, LDERES
1032                               ISAME( 4 ) = LDE( AS, AA, LAA )
1034                               ISAME( 6 ) = LDE( XS, XX, LX )
1038                                  ISAME( 9 ) = LDE( YS, YY, LY )
1047                               ISAME( 5 ) = LDE( AS, AA, LAA )
1049                               ISAME( 7 ) = LDE( XS, XX, LX )
1053                                  ISAME( 10 ) = LDE( YS, YY, LY )
1061                               ISAME( 4 ) = LDE( AS, AA, LAA )
1062                               ISAME( 5 ) = LDE( XS, XX, LX )
1066                                  ISAME( 8 ) = LDE( YS, YY, LY )
1215       LOGICAL            LDE, LDERES  local
1216       EXTERNAL           LDE, LDERES
1418                            ISAME( 5 ) = LDE( AS, AA, LAA )
1421                               ISAME( 7 ) = LDE( XS, XX, LX )
1429                            ISAME( 6 ) = LDE( AS, AA, LAA )
1432                               ISAME( 8 ) = LDE( XS, XX, LX )
1439                            ISAME( 5 ) = LDE( AS, AA, LAA )
1441                               ISAME( 6 ) = LDE( XS, XX, LX )
1602       LOGICAL            LDE, LDERES  local
1603       EXTERNAL           LDE, LDERES
1721                      ISAME( 4 ) = LDE( XS, XX, LX )
1723                      ISAME( 6 ) = LDE( YS, YY, LY )
1726                         ISAME( 8 ) = LDE( AS, AA, LAA )
1876       LOGICAL            LDE, LDERES  local
1877       EXTERNAL           LDE, LDERES
1999                   ISAME( 4 ) = LDE( XS, XX, LX )
2002                      ISAME( 6 ) = LDE( AS, AA, LAA )
2173       LOGICAL            LDE, LDERES  local
2174       EXTERNAL           LDE, LDERES
2316                      ISAME( 4 ) = LDE( XS, XX, LX )
2318                      ISAME( 6 ) = LDE( YS, YY, LY )
2321                         ISAME( 8 ) = LDE( AS, AA, LAA )
2756       LOGICAL FUNCTION LDE( RI, RJ, LR )  function
2777       LDE = .TRUE.
2780       LDE = .FALSE.