149       LOGICAL            LCE  variable
150       EXTERNAL           SDIFF, LCE
310       SAME = LCE( YY, YT, N )
318       SAME = LCE( YY, YT, N )
482       LOGICAL            LCE, LCERES  local
483       EXTERNAL           LCE, LCERES
659                                  ISAME( 5 ) = LCE( AS, AA, LAA )
661                                  ISAME( 7 ) = LCE( XS, XX, LX )
665                                     ISAME( 10 ) = LCE( YS, YY, LY )
676                                  ISAME( 7 ) = LCE( AS, AA, LAA )
678                                  ISAME( 9 ) = LCE( XS, XX, LX )
682                                     ISAME( 12 ) = LCE( YS, YY, LY )
826       LOGICAL            LCE, LCERES  local
827       EXTERNAL           LCE, LCERES
994                               ISAME( 4 ) = LCE( AS, AA, LAA )
996                               ISAME( 6 ) = LCE( XS, XX, LX )
1000                                  ISAME( 9 ) = LCE( YS, YY, LY )
1009                               ISAME( 5 ) = LCE( AS, AA, LAA )
1011                               ISAME( 7 ) = LCE( XS, XX, LX )
1015                                  ISAME( 10 ) = LCE( YS, YY, LY )
1023                               ISAME( 4 ) = LCE( AS, AA, LAA )
1024                               ISAME( 5 ) = LCE( XS, XX, LX )
1028                                  ISAME( 8 ) = LCE( YS, YY, LY )
1171       LOGICAL            LCE, LCERES  local
1172       EXTERNAL           LCE, LCERES
1357                            ISAME( 5 ) = LCE( AS, AA, LAA )
1360                               ISAME( 7 ) = LCE( XS, XX, LX )
1368                            ISAME( 6 ) = LCE( AS, AA, LAA )
1371                               ISAME( 8 ) = LCE( XS, XX, LX )
1378                            ISAME( 5 ) = LCE( AS, AA, LAA )
1380                               ISAME( 6 ) = LCE( XS, XX, LX )
1534       LOGICAL            LCE, LCERES  local
1535       EXTERNAL           LCE, LCERES
1661                      ISAME( 4 ) = LCE( XS, XX, LX )
1663                      ISAME( 6 ) = LCE( YS, YY, LY )
1666                         ISAME( 8 ) = LCE( AS, AA, LAA )
1812       LOGICAL            LCE, LCERES  local
1813       EXTERNAL           LCE, LCERES
1930                   ISAME( 4 ) = LCE( XS, XX, LX )
1933                      ISAME( 6 ) = LCE( AS, AA, LAA )
2097       LOGICAL            LCE, LCERES  local
2098       EXTERNAL           LCE, LCERES
2235                      ISAME( 4 ) = LCE( XS, XX, LX )
2237                      ISAME( 6 ) = LCE( YS, YY, LY )
2240                         ISAME( 8 ) = LCE( AS, AA, LAA )
3041       LOGICAL FUNCTION LCE( RI, RJ, LR )  function
3062       LCE = .TRUE.
3065       LCE = .FALSE.