2874       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2892       COMPLEX*16         ZERO, ONE
2895       COMPLEX*16         ROGUE
2897       DOUBLE PRECISION   RZERO
2899       DOUBLE PRECISION   RROGUE
2902       COMPLEX*16         TRANSL
2903       INTEGER            LDA, M, N, NMAX
2904       LOGICAL            RESET
2905       CHARACTER*1        DIAG, UPLO
2906       CHARACTER*2        TYPE
2908       COMPLEX*16         A( NMAX, * ), AA( * )
2910       INTEGER            I, IBEG, IEND, J, JJ  local
2911       LOGICAL            GEN, HER, LOWER, SYM, TRI, UNIT, UPPER
2913       COMPLEX*16         ZBEG
2946    10    CONTINUE
2953    20 CONTINUE
2961    30       CONTINUE
2964    40       CONTINUE
2965    50    CONTINUE
3000 *     End of ZMAKE.  argument