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