Lines Matching defs:SMAKE
2463 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, subroutine
2480 REAL ZERO, ONE
2482 REAL ROGUE
2485 REAL TRANSL
2486 INTEGER KL, KU, LDA, M, N, NMAX
2487 LOGICAL RESET
2488 CHARACTER*1 DIAG, UPLO
2489 CHARACTER*2 TYPE
2491 REAL A( NMAX, * ), AA( * )
2493 INTEGER I, I1, I2, I3, IBEG, IEND, IOFF, J, KK
2494 LOGICAL GEN, LOWER, SYM, TRI, UNIT, UPPER
2496 REAL SBEG
2528 10 CONTINUE
2533 20 CONTINUE
2541 30 CONTINUE
2544 40 CONTINUE
2545 50 CONTINUE
2550 60 CONTINUE
2553 70 CONTINUE
2556 80 CONTINUE
2557 90 CONTINUE
2577 100 CONTINUE
2580 110 CONTINUE
2583 120 CONTINUE
2584 130 CONTINUE
2606 140 CONTINUE
2609 150 CONTINUE
2612 160 CONTINUE
2636 * End of SMAKE. argument