1 #include "../include/lass.h" 106 int ddss_dsyrk(
enum DDSS_UPLO UPLO,
enum DDSS_TRANS TRANS_A,
108 const double ALPHA,
double *A,
int LDA,
109 const double BETA,
double *C,
int LDC )
116 if ( ( UPLO != Upper ) && ( UPLO != Lower ) )
118 fprintf( stderr,
"Illegal value of UPLO, in ddss_dsyrk code\n" );
122 if ( ( TRANS_A != NoTrans ) && ( TRANS_A != Trans ) )
124 fprintf( stderr,
"Illegal value of TRANS_A, in ddss_dsyrk code\n" );
130 fprintf( stderr,
"Illegal value of N, in ddss_dsyrk code\n" );
136 fprintf( stderr,
"Illegal value of K, in ddss_dsyrk code\n" );
140 if ( TRANS_A == NoTrans )
149 if ( LDA < MAX( 1, nA ) )
151 fprintf( stderr,
"Illegal value of LDA, in ddss_dsyrk code\n" );
155 if ( LDC < MAX( 1, N ) )
157 fprintf( stderr,
"Illegal value of LDC, in ddss_dsyrk code\n" );
162 if ( N == 0 || ( ( ALPHA == 0.0 || K == 0 ) && BETA == 1.0 ) )
167 return kdsyrk( UPLO, TRANS_A,
int ddss_dsyrk(enum DDSS_UPLO UPLO, enum DDSS_TRANS TRANS_A, int N, int K, const double ALPHA, double *A, int LDA, const double BETA, double *C, int LDC)
enum LASS_RETURN kdsyrk(enum DDSS_UPLO UPLO, enum DDSS_TRANS TRANS_A, int N, int K, const double ALPHA, double *A, int LDA, const double BETA, double *C, int LDC)