99       LOGICAL            LDE  variable
100       EXTERNAL           DDIFF, LDE
266       SAME = LDE( YY, YT, N )
274       SAME = LDE( YY, YT, N )
433       LOGICAL            LDE, LDERES  local
434       EXTERNAL           LDE, LDERES
610                                  ISAME( 5 ) = LDE( AS, AA, LAA )
612                                  ISAME( 7 ) = LDE( XS, XX, LX )
616                                     ISAME( 10 ) = LDE( YS, YY, LY )
627                                  ISAME( 7 ) = LDE( AS, AA, LAA )
629                                  ISAME( 9 ) = LDE( XS, XX, LX )
633                                     ISAME( 12 ) = LDE( YS, YY, LY )
773       LOGICAL            LDE, LDERES  local
774       EXTERNAL           LDE, LDERES
941                               ISAME( 4 ) = LDE( AS, AA, LAA )
943                               ISAME( 6 ) = LDE( XS, XX, LX )
947                                  ISAME( 9 ) = LDE( YS, YY, LY )
956                               ISAME( 5 ) = LDE( AS, AA, LAA )
958                               ISAME( 7 ) = LDE( XS, XX, LX )
962                                  ISAME( 10 ) = LDE( YS, YY, LY )
970                               ISAME( 4 ) = LDE( AS, AA, LAA )
971                               ISAME( 5 ) = LDE( XS, XX, LX )
975                                  ISAME( 8 ) = LDE( YS, YY, LY )
1112       LOGICAL            LDE, LDERES  local
1113       EXTERNAL           LDE, LDERES
1298                            ISAME( 5 ) = LDE( AS, AA, LAA )
1301                               ISAME( 7 ) = LDE( XS, XX, LX )
1309                            ISAME( 6 ) = LDE( AS, AA, LAA )
1312                               ISAME( 8 ) = LDE( XS, XX, LX )
1319                            ISAME( 5 ) = LDE( AS, AA, LAA )
1321                               ISAME( 6 ) = LDE( XS, XX, LX )
1470       LOGICAL            LDE, LDERES  local
1471       EXTERNAL           LDE, LDERES
1589                      ISAME( 4 ) = LDE( XS, XX, LX )
1591                      ISAME( 6 ) = LDE( YS, YY, LY )
1594                         ISAME( 8 ) = LDE( AS, AA, LAA )
1732       LOGICAL            LDE, LDERES  local
1733       EXTERNAL           LDE, LDERES
1849                   ISAME( 4 ) = LDE( XS, XX, LX )
1852                      ISAME( 6 ) = LDE( AS, AA, LAA )
2011       LOGICAL            LDE, LDERES  local
2012       EXTERNAL           LDE, LDERES
2149                      ISAME( 4 ) = LDE( XS, XX, LX )
2151                      ISAME( 6 ) = LDE( YS, YY, LY )
2154                         ISAME( 8 ) = LDE( AS, AA, LAA )
2905       LOGICAL FUNCTION LDE( RI, RJ, LR )  function
2926       LDE = .TRUE.
2929       LDE = .FALSE.