/* Etienne Balmes                                                     */
/*  $Revision: 1.10 $  $Date: 2006/04/07 09:59:34 $                    */
/* This is here to allow platform dependent definition of blass calls */


#if defined(OSTYPEmexhp7)||defined(OSTYPEmexrs6)||defined(OSTYPEmexglx)||defined(OSTYPEmexmac)||defined(OSTYPEmexsol)||defined(OSTYPEmexa64)

#define of_dger   dger_
#define of_dgeev  dgeev_
#define of_daxpy  daxpy_
#define of_ddot   ddot_
#define of_dnrm2  dnrm2_
/*#if !defined(FORMATLAB)*/
#define of_dcopy  dcopy_
/*#endif*/

#define of_dgemm  dgemm_
#define of_dgemv  dgemv_
#define of_dpotrf dpotrf_
#define of_dsyrk  dsyrk_
#define of_dtrsm  dtrsm_

#define of_zgemm  zgemm_
#define of_zpotrf zpotrf_
#define of_zsyrk  zsyrk_
#define of_ztrsm  ztrsm_

#else /* if defined(OSTYPEdll) */

#define of_dger   dger
#define of_dgeev  dgeev
#define of_daxpy  daxpy
#define of_ddot   ddot
#define of_dnrm2  dnrm2
#define of_dcopy  dcopy

#define of_dgemm  dgemm
#define of_dgemv  dgemv
#define of_dpotrf dpotrf
#define of_dsyrk  dsyrk
#define of_dtrsm  dtrsm

#define of_zgemm  zgemm
#define of_zpotrf zpotrf
#define of_zherk  zherk
#define of_ztrsm  ztrsm

#endif

extern void of_dger(int *,int *, double *, double *, int *, double *, int *, double *,int *);
extern void of_dgeev(char *, char*, char*, int*, double *, int*, double *, double*, double **, int*, double **, int *,int*);
#ifdef FORMATLAB
 extern void of_dcopy(int *, double *, int *, double *, int *);
#endif
extern void of_daxpy(int *, double *, double *, int *, double *, int *);
extern double of_dnrm2(int *, double *, int *);
extern double of_ddot(int *, double *, int *, double *, int *);  
extern void of_dgemm(char *, char *, int *,int *,int *, double *,double *,int *, double *, int *,double *,double *, int *);
extern void of_dgemv(char *, int *, int *, double *,double *,int *, double *, int *,double *,double *, int *);
