Lines Matching defs:SMAKE
2086 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, RESET, subroutine
2104 REAL ZERO, ONE
2106 REAL ROGUE
2109 REAL TRANSL
2110 INTEGER LDA, M, N, NMAX
2111 LOGICAL RESET
2112 CHARACTER*1 DIAG, UPLO
2113 CHARACTER*2 TYPE
2115 REAL A( NMAX, * ), AA( * )
2117 INTEGER I, IBEG, IEND, J local
2118 LOGICAL GEN, LOWER, SYM, TRI, UNIT, UPPER
2120 REAL SBEG
2148 10 CONTINUE
2153 20 CONTINUE
2161 30 CONTINUE
2164 40 CONTINUE
2165 50 CONTINUE
2196 * End of SMAKE. argument