104       LOGICAL            LZE  variable
105       EXTERNAL           DDIFF, LZE
272       SAME = LZE( YY, YT, N )
280       SAME = LZE( YY, YT, N )
445       LOGICAL            LZE, LZERES  local
446       EXTERNAL           LZE, LZERES
622                                  ISAME( 5 ) = LZE( AS, AA, LAA )
624                                  ISAME( 7 ) = LZE( XS, XX, LX )
628                                     ISAME( 10 ) = LZE( YS, YY, LY )
639                                  ISAME( 7 ) = LZE( AS, AA, LAA )
641                                  ISAME( 9 ) = LZE( XS, XX, LX )
645                                     ISAME( 12 ) = LZE( YS, YY, LY )
790       LOGICAL            LZE, LZERES  local
791       EXTERNAL           LZE, LZERES
958                               ISAME( 4 ) = LZE( AS, AA, LAA )
960                               ISAME( 6 ) = LZE( XS, XX, LX )
964                                  ISAME( 9 ) = LZE( YS, YY, LY )
973                               ISAME( 5 ) = LZE( AS, AA, LAA )
975                               ISAME( 7 ) = LZE( XS, XX, LX )
979                                  ISAME( 10 ) = LZE( YS, YY, LY )
987                               ISAME( 4 ) = LZE( AS, AA, LAA )
988                               ISAME( 5 ) = LZE( XS, XX, LX )
992                                  ISAME( 8 ) = LZE( YS, YY, LY )
1136       LOGICAL            LZE, LZERES  local
1137       EXTERNAL           LZE, LZERES
1322                            ISAME( 5 ) = LZE( AS, AA, LAA )
1325                               ISAME( 7 ) = LZE( XS, XX, LX )
1333                            ISAME( 6 ) = LZE( AS, AA, LAA )
1336                               ISAME( 8 ) = LZE( XS, XX, LX )
1343                            ISAME( 5 ) = LZE( AS, AA, LAA )
1345                               ISAME( 6 ) = LZE( XS, XX, LX )
1500       LOGICAL            LZE, LZERES  local
1501       EXTERNAL           LZE, LZERES
1627                      ISAME( 4 ) = LZE( XS, XX, LX )
1629                      ISAME( 6 ) = LZE( YS, YY, LY )
1632                         ISAME( 8 ) = LZE( AS, AA, LAA )
1779       LOGICAL            LZE, LZERES  local
1780       EXTERNAL           LZE, LZERES
1897                   ISAME( 4 ) = LZE( XS, XX, LX )
1900                      ISAME( 6 ) = LZE( AS, AA, LAA )
2065       LOGICAL            LZE, LZERES  local
2066       EXTERNAL           LZE, LZERES
2203                      ISAME( 4 ) = LZE( XS, XX, LX )
2205                      ISAME( 6 ) = LZE( YS, YY, LY )
2208                         ISAME( 8 ) = LZE( AS, AA, LAA )
3010       LOGICAL FUNCTION LZE( RI, RJ, LR )  function
3031       LZE = .TRUE.
3034       LZE = .FALSE.