2304       SUBROUTINE CMAKE(TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2322       COMPLEX            ZERO, ONE
2324       COMPLEX            ROGUE
2326       REAL               RZERO
2328       REAL               RROGUE
2331       COMPLEX            TRANSL
2332       INTEGER            LDA, M, N, NMAX
2333       LOGICAL            RESET
2334       CHARACTER*1        DIAG, UPLO
2335       CHARACTER*2        TYPE
2337       COMPLEX            A( NMAX, * ), AA( * )
2339       INTEGER            I, IBEG, IEND, J, JJ  local
2340       LOGICAL            GEN, HER, LOWER, SYM, TRI, UNIT, UPPER
2342       COMPLEX            CBEG
2375    10    CONTINUE
2382    20 CONTINUE
2390    30       CONTINUE
2393    40       CONTINUE
2394    50    CONTINUE
2429 *     End of CMAKE.  argument