diff options
Diffstat (limited to 'lapacke/src/lapacke_dsfrk.c')
| -rw-r--r-- | lapacke/src/lapacke_dsfrk.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lapacke/src/lapacke_dsfrk.c b/lapacke/src/lapacke_dsfrk.c index 3b4092f0..850a9b86 100644 --- a/lapacke/src/lapacke_dsfrk.c +++ b/lapacke/src/lapacke_dsfrk.c @@ -1,5 +1,5 @@ /***************************************************************************** - Copyright (c) 2011, Intel Corp. + Copyright (c) 2014, Intel Corp. All rights reserved. Redistribution and use in source and binary forms, with or without @@ -33,13 +33,13 @@ #include "lapacke_utils.h" -lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, +lapack_int LAPACKE_dsfrk( int matrix_layout, char transr, char uplo, char trans, lapack_int n, lapack_int k, double alpha, const double* a, lapack_int lda, double beta, double* c ) { lapack_int ka, na; - if( matrix_order != LAPACK_COL_MAJOR && matrix_order != LAPACK_ROW_MAJOR ) { + if( matrix_layout != LAPACK_COL_MAJOR && matrix_layout != LAPACK_ROW_MAJOR ) { LAPACKE_xerbla( "LAPACKE_dsfrk", -1 ); return -1; } @@ -47,7 +47,7 @@ lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, /* Optionally check input matrices for NaNs */ ka = LAPACKE_lsame( trans, 'n' ) ? k : n; na = LAPACKE_lsame( trans, 'n' ) ? n : k; - if( LAPACKE_dge_nancheck( matrix_order, na, ka, a, lda ) ) { + if( LAPACKE_dge_nancheck( matrix_layout, na, ka, a, lda ) ) { return -8; } if( LAPACKE_d_nancheck( 1, &alpha, 1 ) ) { @@ -60,6 +60,6 @@ lapack_int LAPACKE_dsfrk( int matrix_order, char transr, char uplo, char trans, return -11; } #endif - return LAPACKE_dsfrk_work( matrix_order, transr, uplo, trans, n, k, alpha, + return LAPACKE_dsfrk_work( matrix_layout, transr, uplo, trans, n, k, alpha, a, lda, beta, c ); } |