Lines Matching defs:TYPE
2685 SUBROUTINE ZMAKE( TYPE, UPLO, DIAG, M, N, A, NMAX, AA, LDA, KL,
2693 * TYPE is 'GE', 'GB', 'HE', 'HB', 'HP', 'TR', 'TB' OR 'TP'.
2716 CHARACTER*2 TYPE
2728 GEN = TYPE( 1: 1 ).EQ.'G'
2729 SYM = TYPE( 1: 1 ).EQ.'H'
2730 TRI = TYPE( 1: 1 ).EQ.'T'
2766 IF( TYPE.EQ.'GE' )THEN
2775 ELSE IF( TYPE.EQ.'GB' )THEN
2787 ELSE IF( TYPE.EQ.'HE'.OR.TYPE.EQ.'TR' )THEN
2818 ELSE IF( TYPE.EQ.'HB'.OR.TYPE.EQ.'TB' )THEN
2851 ELSE IF( TYPE.EQ.'HP'.OR.TYPE.EQ.'TP' )THEN
3040 LOGICAL FUNCTION LZERES( TYPE, UPLO, M, N, AA, AS, LDA )
3044 * TYPE is 'GE', 'HE' or 'HP'.
3055 CHARACTER*2 TYPE
3063 IF( TYPE.EQ.'GE' )THEN
3070 ELSE IF( TYPE.EQ.'HE' )THEN