448       INTEGER            I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,  local
513                   LAA = LDA*NA
567                            DO 10 I = 1, LAA
609                            ISAME( 7 ) = LDE( AS, AA, LAA )
772       INTEGER            I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,  local
846                LAA = LDA*NA
877                         DO 10 I = 1, LAA
917                         ISAME( 6 ) = LDE( AS, AA, LAA )
1081       INTEGER            I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,  local
1148                LAA = LDA*NA
1184                            DO 30 I = 1, LAA
1234                            ISAME( 8 ) = LDE( AS, AA, LAA )
1441      $                   LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,  local
1502                LAA = LDA*NA
1533                         DO 10 I = 1, LAA
1568                         ISAME( 6 ) = LDE( AS, AA, LAA )
1758      $                   K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,  local
1819                LAA = LDA*NA
1834                LBB = LAA
1867                         DO 10 I = 1, LAA
1907                         ISAME( 6 ) = LDE( AS, AA, LAA )