lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m,
lapack_int n, lapack_complex_float alpha,
lapack_complex_float beta, lapack_complex_float* a,
lapack_int lda )
{
if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_claset", -1 );
return -1;
}
/*****************************************************************************
* Note: we do not check NaNs in A since the goal of this subroutine is to
* initialized A. It is OK if A has NaNs in input.
*****************************************************************************/
#ifndef LAPACK_DISABLE_NAN_CHECK
/* Optionally check input matrices for NaNs */
if( LAPACKE_c_nancheck( 1, &alpha, 1 ) ) {
return -5;
}
if( LAPACKE_c_nancheck( 1, &beta, 1 ) ) {
return -6;
}
#endif
return LAPACKE_claset_work( matrix_layout, uplo, m, n, alpha, beta, a, lda );
}
lapack_int LAPACKE_claset( int matrix_order, char uplo, lapack_int m,
lapack_int n, lapack_complex_float alpha,
lapack_complex_float beta, lapack_complex_float* a,
lapack_int lda )
{
if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) {
LAPACKE_xerbla( "LAPACKE_claset", -1 );
return -1;
}
#ifndef LAPACK_DISABLE_NAN_CHECK
/* Optionally check input matrices for NaNs */
if( LAPACKE_cge_nancheck( matrix_order, m, n, a, lda ) ) {
return -7;
}
if( LAPACKE_c_nancheck( 1, &alpha, 1 ) ) {
return -5;
}
if( LAPACKE_c_nancheck( 1, &beta, 1 ) ) {
return -6;
}
#endif
return LAPACKE_claset_work( matrix_order, uplo, m, n, alpha, beta, a, lda );
}
