461       INTEGER            I, IA, IB, ICA, ICB, IK, IM, IN, K, KS, LAA,  local
526                   LAA = LDA*NA
580                            DO 10 I = 1, LAA
622                            ISAME( 7 ) = LCE( AS, AA, LAA )
791       INTEGER            I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,  local
865                LAA = LDA*NA
896                         DO 10 I = 1, LAA
943                         ISAME( 6 ) = LCE( AS, AA, LAA )
1111       INTEGER           I, IA, ICD, ICS, ICT, ICU, IM, IN, J, LAA, LBB,  local
1178                LAA = LDA*NA
1214                            DO 30 I = 1, LAA
1264                            ISAME( 8 ) = LCE( AS, AA, LAA )
1477      $                   LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,  local
1539                LAA = LDA*NA
1586                         DO 10 I = 1, LAA
1641                         ISAME( 6 ) = LCE( AS, AA, LAA )
1887      $                   K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,  local
1949                LAA = LDA*NA
1964                LBB = LAA
2005                         DO 10 I = 1, LAA
2062                         ISAME( 6 ) = LCE( AS, AA, LAA )