2925       SUBROUTINE CMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2943       COMPLEX            ZERO, ONE
2945       COMPLEX            ROGUE
2947       REAL               RZERO
2949       REAL               RROGUE
2952       COMPLEX            TRANSL
2953       INTEGER            LDA, M, N, NMAX
2954       LOGICAL            RESET
2955       CHARACTER*1        DIAG, UPLO
2956       CHARACTER*2        TYPE
2958       COMPLEX            A( NMAX, * ), AA( * )
2960       INTEGER            I, IBEG, IEND, J, JJ  local
2961       LOGICAL            GEN, HER, LOWER, SYM, TRI, UNIT, UPPER
2963       COMPLEX            CBEG
2996    10    CONTINUE
3003    20 CONTINUE
3011    30       CONTINUE
3014    40       CONTINUE
3015    50    CONTINUE
3050 *     End of CMAKE.  argument