462      $                   LBB, LCC, LDA, LDAS, LDB, LDBS, LDC, LDCS, M,  local
502             LCC = LDC*N
589                            DO 30 I = 1, LCC
628                               ISAME( 12 ) = LCE( CS, CC, LCC )
791       INTEGER            I, IA, IB, ICS, ICU, IM, IN, LAA, LBB, LCC,  local
833             LCC = LDC*N
905                         DO 30 I = 1, LCC
949                            ISAME( 11 ) = LCE( CS, CC, LCC )
1477      $                   LAA, LCC, LDA, LDAS, LDC, LDCS, LJ, MA, N, NA,  local
1515          LCC = LDC*N
1595                         DO 20 I = 1, LCC
1649                            ISAME( 9 ) = LCE( CS, CC, LCC )
1887      $                   K, KS, LAA, LBB, LCC, LDA, LDAS, LDB, LDBS,  local
1925          LCC = LDC*N
2018                         DO 30 I = 1, LCC
2072                            ISAME( 11 ) = LCE( CS, CC, LCC )