Lines Matching defs:SMAKE
2612 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, subroutine
2629 REAL ZERO, ONE
2631 REAL ROGUE
2634 REAL TRANSL
2635 INTEGER KL, KU, LDA, M, N, NMAX
2636 LOGICAL RESET
2637 CHARACTER*1 DIAG, UPLO
2638 CHARACTER*2 TYPE
2640 REAL A( NMAX, * ), AA( * )
2642 INTEGER I, I1, I2, I3, IBEG, IEND, IOFF, J, KK
2643 LOGICAL GEN, LOWER, SYM, TRI, UNIT, UPPER
2645 REAL SBEG
2677 10 CONTINUE
2682 20 CONTINUE
2690 30 CONTINUE
2693 40 CONTINUE
2694 50 CONTINUE
2699 60 CONTINUE
2702 70 CONTINUE
2705 80 CONTINUE
2706 90 CONTINUE
2726 100 CONTINUE
2729 110 CONTINUE
2732 120 CONTINUE
2733 130 CONTINUE
2755 140 CONTINUE
2758 150 CONTINUE
2761 160 CONTINUE
2785 * End of SMAKE. argument