Lines Matching defs:SMAKE
2651 SUBROUTINE SMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL, subroutine
2668 REAL ZERO, ONE
2670 REAL ROGUE
2673 REAL TRANSL
2674 INTEGER KL, KU, LDA, M, N, NMAX
2675 LOGICAL RESET
2676 CHARACTER*1 DIAG, UPLO
2677 CHARACTER*2 TYPE
2679 REAL A( NMAX, * ), AA( * )
2681 INTEGER I, I1, I2, I3, IBEG, IEND, IOFF, J, KK
2682 LOGICAL GEN, LOWER, SYM, TRI, UNIT, UPPER
2684 REAL SBEG
2716 10 CONTINUE
2721 20 CONTINUE
2729 30 CONTINUE
2732 40 CONTINUE
2733 50 CONTINUE
2738 60 CONTINUE
2741 70 CONTINUE
2744 80 CONTINUE
2745 90 CONTINUE
2765 100 CONTINUE
2768 110 CONTINUE
2771 120 CONTINUE
2772 130 CONTINUE
2794 140 CONTINUE
2797 150 CONTINUE
2800 160 CONTINUE
2824 * End of SMAKE. argument