2344       SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET,  subroutine
2362       REAL               ZERO, ONE
2364       REAL               ROGUE
2367       REAL               TRANSL
2368       INTEGER            LDA, M, N, NMAX
2369       LOGICAL            RESET
2370       CHARACTER*1        DIAG, UPLO
2371       CHARACTER*2        TYPE
2373       REAL               A( NMAX, * ), AA( * )
2375       INTEGER            I, IBEG, IEND, J  local
2376       LOGICAL            GEN, LOWER, SYM, TRI, UNIT, UPPER
2378       REAL               SBEG
2406    10    CONTINUE
2411    20 CONTINUE
2419    30       CONTINUE
2422    40       CONTINUE
2423    50    CONTINUE
2454 *     End of SMAKE.  argument