blas.h
上传用户:kellyonhid
上传日期:2013-10-12
资源大小:932k
文件大小:1k
源码类别:

3D图形编程

开发平台:

Visual C++

  1. // Template Numerical Toolkit (TNT) for Linear Algebra
  2. //
  3. // BETA VERSION INCOMPLETE AND SUBJECT TO CHANGE
  4. // Please see http://math.nist.gov/tnt for updates
  5. //
  6. // R. Pozo
  7. // Mathematical and Computational Sciences Division
  8. // National Institute of Standards and Technology
  9. #ifndef BLAS_H
  10. #define BLAS_H
  11. #include "fortran.h"
  12. // This file incomplete and included here only to demonstrate the
  13. // basic framework for linking with the Fortran or assembly BLAS.
  14. //
  15. #define fi_ Fortran_integer
  16. #define fd_ Fortran_double
  17. #define ff_ Fortran_float
  18. #define fc_ Fortran_complex 
  19. #define fz_ Fortran_double_complex
  20. // these are the Fortran mapping conventions for function names
  21. // (NOTE: if C++ supported extern "Fortran", this wouldn't be necesary...)
  22. //
  23. #define F77_DASUM       dasum_
  24. #define F77_DAXPY       daxpy_
  25. #define F77_CAXPY       cazpy_
  26. #define F77_DDOT        ddot_
  27. extern "C"
  28. {
  29.     fd_ F77_DASUM(const fi_  *N , const fd_ *dx, const fi_* incx);
  30. }
  31. #undef fi_  
  32. #undef fd_  
  33. #undef ff_  
  34. #undef fc_  
  35. #undef fz_
  36. #endif
  37. // BLAS_H