2305       SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2323       COMPLEX*16         ZERO, ONE
2326       COMPLEX*16         ROGUE
2328       DOUBLE PRECISION   RZERO
2330       DOUBLE PRECISION   RROGUE
2333       COMPLEX*16         TRANSL
2334       INTEGER            LDA, M, N, NMAX
2335       LOGICAL            RESET
2336       CHARACTER*1        DIAG, UPLO
2337       CHARACTER*2        TYPE
2339       COMPLEX*16         A( NMAX, * ), AA( * )
2341       INTEGER            I, IBEG, IEND, J, JJ  local
2342       LOGICAL            GEN, HER, LOWER, SYM, TRI, UNIT, UPPER
2344       COMPLEX*16         ZBEG
2377    10    CONTINUE
2384    20 CONTINUE
2392    30       CONTINUE
2395    40       CONTINUE
2396    50    CONTINUE
2431 *     End of ZMAKE.  argument