2871       SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2889       COMPLEX            ZERO, ONE
2891       COMPLEX            ROGUE
2893       REAL               RZERO
2895       REAL               RROGUE
2898       COMPLEX            TRANSL
2899       INTEGER            LDA, M, N, NMAX
2900       LOGICAL            RESET
2901       CHARACTER*1        DIAG, UPLO
2902       CHARACTER*2        TYPE
2904       COMPLEX            A( NMAX, * ), AA( * )
2906       INTEGER            I, IBEG, IEND, J, JJ  local
2907       LOGICAL            GEN, HER, LOWER, SYM, TRI, UNIT, UPPER
2909       COMPLEX            CBEG
2942    10    CONTINUE
2949    20 CONTINUE
2957    30       CONTINUE
2960    40       CONTINUE
2961    50    CONTINUE
2996 *     End of CMAKE.  argument