1 #include "../include/lass.h" 116 const double ALPHA,
double *A,
int LDA,
118 const double BETA,
double *C,
int LDC )
124 if ( ( UPLO != Upper ) && ( UPLO != Lower ) )
126 fprintf( stderr,
"Illegal value of UPLO, in ddss_dsyr2k code\n" );
130 if ( ( TRANS != NoTrans ) && ( TRANS != Trans ) )
132 fprintf( stderr,
"Illegal value of TRANS, in ddss_dsyr2k code\n" );
138 fprintf( stderr,
"Illegal value of N, in ddss_dsyr2k code\n" );
144 fprintf( stderr,
"Illegal value of K, in ddss_dsyr2k code\n" );
148 if ( TRANS == NoTrans )
157 if ( LDA < MAX( 1, nA ) )
159 fprintf( stderr,
"Illegal value of LDA, in ddss_dsyr2k code\n" );
163 if ( LDB < MAX( 1, nB ) )
165 fprintf( stderr,
"Illegal value of LDB, in ddss_dsyr2k code\n" );
169 if ( LDC < MAX( 1, N ) )
171 fprintf( stderr,
"Illegal value of LDC, in ddss_dsyr2k code\n" );
176 if ( N == 0 || ( ( ALPHA == 0.0 || K == 0 ) && BETA == 1.0 ) )
int ddss_dsyr2k(enum DDSS_UPLO UPLO, enum DDSS_TRANS TRANS, int N, int K, const double ALPHA, double *A, int LDA, double *B, int LDB, const double BETA, double *C, int LDC)
enum LASS_RETURN kdsyr2k(enum DDSS_UPLO UPLO, enum DDSS_TRANS TRANS, int N, int K, const double ALPHA, double *A, int LDA, double *B, int LDB, const double BETA, double *C, int LDC)