1 #include "../include/lass.h" 114 enum DDSS_TRANS TRANS_A,
enum DDSS_DIAG DIAG,
116 const double ALPHA,
double* A,
int LDA,
124 if ( ( SIDE != Left ) && ( SIDE != Right ) )
126 fprintf( stderr,
"Illegal value of SIDE, in ddss_dtrsm code\n" );
130 if ( ( UPLO != Upper ) && ( UPLO != Lower ) )
132 fprintf( stderr,
"Illegal value of UPLO, in ddss_dtrsm code\n" );
136 if ( ( TRANS_A != NoTrans ) && ( TRANS_A != Trans ) )
138 fprintf( stderr,
"Illegal value of TRANS_A, in ddss_dtrsm code\n" );
142 if ( ( DIAG != Unit ) && ( DIAG != NonUnit ) )
144 fprintf( stderr,
"Illegal value of DIAG, in ddss_dtrsm code\n" );
150 fprintf( stderr,
"Illegal value of M, in ddss_dtrsm code\n" );
156 fprintf( stderr,
"Illegal value of N, in ddss_dtrsm code\n" );
169 if ( LDA < MAX( 1, nA ) )
171 fprintf( stderr,
"Illegal value of LDA, in ddss_dtrsm code\n" );
175 if ( LDB < MAX( 1, N ) )
177 fprintf( stderr,
"Illegal value of LDB, in ddss_dtrsm code\n" );
182 if ( M == 0 || N == 0 )
187 return kdtrsm( SIDE, UPLO,
enum LASS_RETURN kdtrsm(enum DDSS_SIDE SIDE, enum DDSS_UPLO UPLO, enum DDSS_TRANS TRANS_A, enum DDSS_DIAG DIAG, int M, int N, const double ALPHA, double *A, int LDA, double *B, int LDB)
int ddss_dtrsm(enum DDSS_SIDE SIDE, enum DDSS_UPLO UPLO, enum DDSS_TRANS TRANS_A, enum DDSS_DIAG DIAG, int M, int N, const double ALPHA, double *A, int LDA, double *B, int LDB)