102       LOGICAL            LCE  variable
103       EXTERNAL           SDIFF, LCE
283       SAME = LCE( YY, YT, N )
291       SAME = LCE( YY, YT, N )
508       LOGICAL            LCE, LCERES  local
509       EXTERNAL           LCE, LCERES
693                                  ISAME( 5 ) = LCE( AS, AA, LAA )
695                                  ISAME( 7 ) = LCE( XS, XX, LX )
699                                     ISAME( 10 ) = LCE( YS, YY, LY )
710                                  ISAME( 7 ) = LCE( AS, AA, LAA )
712                                  ISAME( 9 ) = LCE( XS, XX, LX )
716                                     ISAME( 12 ) = LCE( YS, YY, LY )
862       LOGICAL            LCE, LCERES  local
863       EXTERNAL           LCE, LCERES
1037                               ISAME( 4 ) = LCE( AS, AA, LAA )
1039                               ISAME( 6 ) = LCE( XS, XX, LX )
1043                                  ISAME( 9 ) = LCE( YS, YY, LY )
1052                               ISAME( 5 ) = LCE( AS, AA, LAA )
1054                               ISAME( 7 ) = LCE( XS, XX, LX )
1058                                  ISAME( 10 ) = LCE( YS, YY, LY )
1066                               ISAME( 4 ) = LCE( AS, AA, LAA )
1067                               ISAME( 5 ) = LCE( XS, XX, LX )
1071                                  ISAME( 8 ) = LCE( YS, YY, LY )
1216       LOGICAL            LCE, LCERES  local
1217       EXTERNAL           LCE, LCERES
1419                            ISAME( 5 ) = LCE( AS, AA, LAA )
1422                               ISAME( 7 ) = LCE( XS, XX, LX )
1430                            ISAME( 6 ) = LCE( AS, AA, LAA )
1433                               ISAME( 8 ) = LCE( XS, XX, LX )
1440                            ISAME( 5 ) = LCE( AS, AA, LAA )
1442                               ISAME( 6 ) = LCE( XS, XX, LX )
1598       LOGICAL            LCE, LCERES  local
1599       EXTERNAL           LCE, LCERES
1725                      ISAME( 4 ) = LCE( XS, XX, LX )
1727                      ISAME( 6 ) = LCE( YS, YY, LY )
1730                         ISAME( 8 ) = LCE( AS, AA, LAA )
1877       LOGICAL            LCE, LCERES  local
1878       EXTERNAL           LCE, LCERES
2002                   ISAME( 4 ) = LCE( XS, XX, LX )
2005                      ISAME( 6 ) = LCE( AS, AA, LAA )
2171       LOGICAL            LCE, LCERES  local
2172       EXTERNAL           LCE, LCERES
2314                      ISAME( 4 ) = LCE( XS, XX, LX )
2316                      ISAME( 6 ) = LCE( YS, YY, LY )
2319                         ISAME( 8 ) = LCE( AS, AA, LAA )
2583       LOGICAL FUNCTION LCE( RI, RJ, LR )  function
2604       LCE = .TRUE.
2607       LCE = .FALSE.