2082       SUBROUTINE DMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2100       DOUBLE PRECISION   ZERO, ONE
2102       DOUBLE PRECISION   ROGUE
2105       DOUBLE PRECISION   TRANSL
2106       INTEGER            LDA, M, N, NMAX
2107       LOGICAL            RESET
2108       CHARACTER*1        DIAG, UPLO
2109       CHARACTER*2        TYPE
2111       DOUBLE PRECISION   A( NMAX, * ), AA( * )
2113       INTEGER            I, IBEG, IEND, J  local
2114       LOGICAL            GEN, LOWER, SYM, TRI, UNIT, UPPER
2116       DOUBLE PRECISION   DBEG
2144    10    CONTINUE
2149    20 CONTINUE
2157    30       CONTINUE
2160    40       CONTINUE
2161    50    CONTINUE
2192 *     End of DMAKE.  argument