1 #include "../include/lass.h" 122 double ALPHA,
double *A,
int LDA,
124 double BETA,
double *C,
int LDC )
131 if ( ( SIDE != Left ) && ( SIDE != Right ) )
133 fprintf( stderr,
"Illegal value of SIDE, in ddss_dsymm code\n" );
137 if ( ( UPLO != Upper ) && ( UPLO != Lower ) )
139 fprintf( stderr,
"Illegal value of UPLO, in ddss_dsymm code\n" );
145 fprintf( stderr,
"Illegal value of M, in ddss_dsymm code\n" );
151 fprintf( stderr,
"Illegal value of N, in ddss_dsymm code\n" );
156 if ( M == 0 || N == 0 || ( ALPHA == 0.0 && BETA == 1.0 ) )
170 if ( LDA < MAX( 1, nA ) )
172 fprintf( stderr,
"Illegal value of LDA, in ddss_dsymm code\n" );
176 if ( LDB < MAX( 1, N ) )
178 fprintf( stderr,
"Illegal value of LDB, in ddss_dsymm code\n" );
182 if ( LDC < MAX( 1, N ) )
184 fprintf( stderr,
"Illegal value of LDC, in ddss_dsymm code\n" );
188 return kdsymm( SIDE, UPLO, M, N,
189 (
const double ) ALPHA, A, LDA,
191 (
const double ) BETA, C, LDC );
int ddss_dsymm(enum DDSS_SIDE SIDE, enum DDSS_UPLO UPLO, int M, int N, double ALPHA, double *A, int LDA, double *B, int LDB, double BETA, double *C, int LDC)
enum LASS_RETURN kdsymm(enum DDSS_SIDE SIDE, enum DDSS_UPLO UPLO, int M, int N, const double ALPHA, double *A, int LDA, double *B, int LDB, const double BETA, double *C, int LDC)