blas.h
上传用户:kellyonhid
上传日期:2013-10-12
资源大小:932k
文件大小:1k
- // Template Numerical Toolkit (TNT) for Linear Algebra
- //
- // BETA VERSION INCOMPLETE AND SUBJECT TO CHANGE
- // Please see http://math.nist.gov/tnt for updates
- //
- // R. Pozo
- // Mathematical and Computational Sciences Division
- // National Institute of Standards and Technology
- #ifndef BLAS_H
- #define BLAS_H
- #include "fortran.h"
- // This file incomplete and included here only to demonstrate the
- // basic framework for linking with the Fortran or assembly BLAS.
- //
- #define fi_ Fortran_integer
- #define fd_ Fortran_double
- #define ff_ Fortran_float
- #define fc_ Fortran_complex
- #define fz_ Fortran_double_complex
- // these are the Fortran mapping conventions for function names
- // (NOTE: if C++ supported extern "Fortran", this wouldn't be necesary...)
- //
- #define F77_DASUM dasum_
- #define F77_DAXPY daxpy_
- #define F77_CAXPY cazpy_
- #define F77_DDOT ddot_
- extern "C"
- {
- fd_ F77_DASUM(const fi_ *N , const fd_ *dx, const fi_* incx);
- }
- #undef fi_
- #undef fd_
- #undef ff_
- #undef fc_
- #undef fz_
- #endif
- // BLAS_H