103       LOGICAL            LZE  variable
104       EXTERNAL           DDIFF, LZE
283       SAME = LZE( YY, YT, N )
291       SAME = LZE( YY, YT, N )
509       LOGICAL            LZE, LZERES  local
510       EXTERNAL           LZE, LZERES
694                                  ISAME( 5 ) = LZE( AS, AA, LAA )
696                                  ISAME( 7 ) = LZE( XS, XX, LX )
700                                     ISAME( 10 ) = LZE( YS, YY, LY )
711                                  ISAME( 7 ) = LZE( AS, AA, LAA )
713                                  ISAME( 9 ) = LZE( XS, XX, LX )
717                                     ISAME( 12 ) = LZE( YS, YY, LY )
864       LOGICAL            LZE, LZERES  local
865       EXTERNAL           LZE, LZERES
1039                               ISAME( 4 ) = LZE( AS, AA, LAA )
1041                               ISAME( 6 ) = LZE( XS, XX, LX )
1045                                  ISAME( 9 ) = LZE( YS, YY, LY )
1054                               ISAME( 5 ) = LZE( AS, AA, LAA )
1056                               ISAME( 7 ) = LZE( XS, XX, LX )
1060                                  ISAME( 10 ) = LZE( YS, YY, LY )
1068                               ISAME( 4 ) = LZE( AS, AA, LAA )
1069                               ISAME( 5 ) = LZE( XS, XX, LX )
1073                                  ISAME( 8 ) = LZE( YS, YY, LY )
1219       LOGICAL            LZE, LZERES  local
1220       EXTERNAL           LZE, LZERES
1422                            ISAME( 5 ) = LZE( AS, AA, LAA )
1425                               ISAME( 7 ) = LZE( XS, XX, LX )
1433                            ISAME( 6 ) = LZE( AS, AA, LAA )
1436                               ISAME( 8 ) = LZE( XS, XX, LX )
1443                            ISAME( 5 ) = LZE( AS, AA, LAA )
1445                               ISAME( 6 ) = LZE( XS, XX, LX )
1602       LOGICAL            LZE, LZERES  local
1603       EXTERNAL           LZE, LZERES
1729                      ISAME( 4 ) = LZE( XS, XX, LX )
1731                      ISAME( 6 ) = LZE( YS, YY, LY )
1734                         ISAME( 8 ) = LZE( AS, AA, LAA )
1882       LOGICAL            LZE, LZERES  local
1883       EXTERNAL           LZE, LZERES
2007                   ISAME( 4 ) = LZE( XS, XX, LX )
2010                      ISAME( 6 ) = LZE( AS, AA, LAA )
2177       LOGICAL            LZE, LZERES  local
2178       EXTERNAL           LZE, LZERES
2320                      ISAME( 4 ) = LZE( XS, XX, LX )
2322                      ISAME( 6 ) = LZE( YS, YY, LY )
2325                         ISAME( 8 ) = LZE( AS, AA, LAA )
2589       LOGICAL FUNCTION LZE( RI, RJ, LR )  function
2610       LZE = .TRUE.
2613       LZE = .FALSE.