diff options
Diffstat (limited to 'interface/omatcopy.c')
| -rw-r--r-- | interface/omatcopy.c | 21 |
1 files changed, 21 insertions, 0 deletions
diff --git a/interface/omatcopy.c b/interface/omatcopy.c index 0c418b3c9..59650cfa0 100644 --- a/interface/omatcopy.c +++ b/interface/omatcopy.c @@ -47,6 +47,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. #define BlasNoTrans 0 #define BlasTrans 1 +#ifndef CBLAS void NAME( char* ORDER, char* TRANS, blasint *rows, blasint *cols, FLOAT *alpha, FLOAT *a, blasint *lda, FLOAT *b, blasint *ldb) { @@ -66,7 +67,27 @@ void NAME( char* ORDER, char* TRANS, blasint *rows, blasint *cols, FLOAT *alpha, if ( Trans == 'R' ) trans = BlasNoTrans; if ( Trans == 'T' ) trans = BlasTrans; if ( Trans == 'C' ) trans = BlasTrans; +#else +void CNAME(enum CBLAS_ORDER CORDER, enum CBLAS_TRANSPOSE CTRANS, blasint crows, blasint ccols, FLOAT calpha, FLOAT *a, blasint clda, FLOAT *b, blasint cldb) +{ + blasint *rows, *cols, *lda, *ldb; + FLOAT *alpha; + int order=-1,trans=-1; + blasint info = -1; + + if ( CORDER == CblasColMajor ) order = BlasColMajor; + if ( CORDER == CblasRowMajor ) order = BlasRowMajor; + if ( CTRANS == CblasNoTrans || CTRANS == CblasConjNoTrans ) trans = BlasNoTrans; + if ( CTRANS == CblasTrans || CTRANS == CblasConjTrans ) trans = BlasTrans; + + rows = &crows; + cols = &ccols; + lda = &clda; + ldb = &cldb; + alpha = &calpha; + +#endif if ( order == BlasColMajor) { if ( trans == BlasNoTrans && *ldb < *rows ) info = 9; |