103       LOGICAL            LCE  variable
104       EXTERNAL           SDIFF, LCE
271       SAME = LCE( YY, YT, N )
279       SAME = LCE( YY, YT, N )
443       LOGICAL            LCE, LCERES  local
444       EXTERNAL           LCE, LCERES
620                                  ISAME( 5 ) = LCE( AS, AA, LAA )
622                                  ISAME( 7 ) = LCE( XS, XX, LX )
626                                     ISAME( 10 ) = LCE( YS, YY, LY )
637                                  ISAME( 7 ) = LCE( AS, AA, LAA )
639                                  ISAME( 9 ) = LCE( XS, XX, LX )
643                                     ISAME( 12 ) = LCE( YS, YY, LY )
787       LOGICAL            LCE, LCERES  local
788       EXTERNAL           LCE, LCERES
955                               ISAME( 4 ) = LCE( AS, AA, LAA )
957                               ISAME( 6 ) = LCE( XS, XX, LX )
961                                  ISAME( 9 ) = LCE( YS, YY, LY )
970                               ISAME( 5 ) = LCE( AS, AA, LAA )
972                               ISAME( 7 ) = LCE( XS, XX, LX )
976                                  ISAME( 10 ) = LCE( YS, YY, LY )
984                               ISAME( 4 ) = LCE( AS, AA, LAA )
985                               ISAME( 5 ) = LCE( XS, XX, LX )
989                                  ISAME( 8 ) = LCE( YS, YY, LY )
1132       LOGICAL            LCE, LCERES  local
1133       EXTERNAL           LCE, LCERES
1318                            ISAME( 5 ) = LCE( AS, AA, LAA )
1321                               ISAME( 7 ) = LCE( XS, XX, LX )
1329                            ISAME( 6 ) = LCE( AS, AA, LAA )
1332                               ISAME( 8 ) = LCE( XS, XX, LX )
1339                            ISAME( 5 ) = LCE( AS, AA, LAA )
1341                               ISAME( 6 ) = LCE( XS, XX, LX )
1495       LOGICAL            LCE, LCERES  local
1496       EXTERNAL           LCE, LCERES
1622                      ISAME( 4 ) = LCE( XS, XX, LX )
1624                      ISAME( 6 ) = LCE( YS, YY, LY )
1627                         ISAME( 8 ) = LCE( AS, AA, LAA )
1773       LOGICAL            LCE, LCERES  local
1774       EXTERNAL           LCE, LCERES
1891                   ISAME( 4 ) = LCE( XS, XX, LX )
1894                      ISAME( 6 ) = LCE( AS, AA, LAA )
2058       LOGICAL            LCE, LCERES  local
2059       EXTERNAL           LCE, LCERES
2196                      ISAME( 4 ) = LCE( XS, XX, LX )
2198                      ISAME( 6 ) = LCE( YS, YY, LY )
2201                         ISAME( 8 ) = LCE( AS, AA, LAA )
3002       LOGICAL FUNCTION LCE( RI, RJ, LR )  function
3023       LCE = .TRUE.
3026       LCE = .FALSE.