blas.h

数学算法的实现库。可以实现常见的线性计算。

#ifndef _BLAS_H
#define _BLAS_H

#include "namesblas.h"


complex              cdotc(integer *,complex *,integer *,complex *,integer *),
                     cdotu(integer *,complex *,integer *,complex *,integer *);
void                 caxpy(integer *,complex *,complex *,integer *,complex *,
			   integer *),
                     ccopy(integer *,complex *,integer *,complex *,integer *),
                     cgbmv(character *,integer *,integer *,integer *,integer *,
			   complex *, complex *,integer *,complex *,integer *,
			   complex *,complex *,integer *,ftnlen),
                     cgemm(character *,character *,integer *,integer *,
			   integer *,complex *,complex *,integer *,complex *,
			   integer *,complex *,complex *,integer *,ftnlen,
			   ftnlen),
                     cgemv(character *,integer *,integer *,complex *,complex *,
			   integer *,complex *,integer *,complex *,complex *,
			   integer *,ftnlen),
                     cgerc(integer *,integer *,complex *,complex *,integer *,
			   complex *,integer *,complex *,integer *),
                     cgeru(integer *,integer *,complex *,complex *,integer *,
			   complex *,integer *,complex *,integer *),
                     chbmv(character *,integer *,integer *,complex *,complex *,
			   integer *,complex *,integer *,complex *,complex *,
			   integer *,ftnlen),
                     chemm(character *,character *,integer *,integer *,
			   complex *,complex *,integer *,complex *,integer *,
			   complex *,complex *,integer *,ftnlen,ftnlen),
                     chemv(character *,integer *,complex *,complex *,integer *,
			   complex *,integer *,complex *,complex *,integer *,
			   ftnlen),
                     cher(character *,integer *,real *,complex *,integer *,
			  complex *,integer *,ftnlen),
                     cher2(character *,integer *,complex *,complex *,integer *,
			   complex *,integer *,complex *,integer *,ftnlen),
                     cher2k(character *,character *,integer *,integer *,
			    complex *,complex *,integer *,complex *,integer *,
			    real *,complex *,integer *,ftnlen,ftnlen),
                     cherk(character *,character *,integer *,integer *,real *,
			   complex *,integer *,real *,complex *,integer *,
			   ftnlen,ftnlen),
                     chpmv(character *,integer *,complex *,complex *,complex *,
			   integer *,complex *,complex *,integer *,ftnlen),
                     chpr(character *,integer *,real *,complex *,integer *,
			  complex *,ftnlen),
                     chpr2(character *,integer *,complex *,complex *,integer *,
			   complex *,integer *,complex *,ftnlen),
                     crotg(complex *,complex *,real *,complex *),
                     cscal(integer *,complex *,complex *,integer *),
                     csscal(integer *,real *,complex *,integer *),
                     cswap(integer *,complex *,integer *,complex *,integer *),
                     csymm(character *,character *,integer *,integer *,
			   complex *,complex *,integer *,complex *,integer *,
			   complex *,complex *,integer *,ftnlen,ftnlen),
                     csyr2k(character *,character *,integer *,integer *,
			    complex *,complex *,integer *,complex *,integer *,
			    complex *,complex *,integer *,ftnlen,ftnlen),
                     csyrk(character *,character *,integer *,integer *,
			   complex *,complex *,integer *,complex *,complex *,
			   integer *,ftnlen,ftnlen),
                     ctbmv(character *,character *,character *,integer *,
			   integer *,complex *,integer *,complex *,integer *,
			   ftnlen,ftnlen,ftnlen),
                     ctbsv(character *,character *,character *,integer *,
			   integer *,complex *,integer *,complex *,integer *,
			   ftnlen,ftnlen,ftnlen),
                     ctpmv(character *,character *,character *,integer *,
			   complex *,complex *,integer *,ftnlen,ftnlen,ftnlen),
                     ctpsv(character *,character *,character *,integer *,
			   complex *,complex *,integer *,ftnlen,ftnlen,ftnlen),
                     ctrmm(character *,character *,character *,character *,
			   integer *,integer *,complex *,complex *,integer *,
			   complex *,integer *,ftnlen,ftnlen,ftnlen,ftnlen),
                     ctrmv(character *,character *,character *,integer *,
			   complex *,integer *,complex *,integer *,ftnlen,
			   ftnlen,ftnlen),
                     ctrsm(character *,character *,character *,character *,
			   integer *,integer *,complex *,complex *,integer *,
			   complex *,integer *,ftnlen,ftnlen,ftnlen,ftnlen),
                     ctrsv(character *,character *,character *,integer *,
			   complex *,integer *,complex *,integer *,ftnlen,
			   ftnlen,ftnlen);

doubleprecision           dasum(integer *,doubleprecision *,integer *);
void                 daxpy(integer *,doubleprecision *,doubleprecision *,integer *,
			   doubleprecision *,integer *);
doubleprecision           dcabs1(doublecomplex *);
void                 dcopy(integer *,doubleprecision *,integer *,doubleprecision *,
			   integer *);
doubleprecision           ddot(integer *,doubleprecision *,integer *,doubleprecision *,
			  integer *);
void                 dgbmv(character *,integer *,integer *,integer *,integer *,
			   doubleprecision *,doubleprecision *,integer *,doubleprecision *,
			   integer *,doubleprecision *,doubleprecision *,integer *,
			   ftnlen),
                     dgemm(character *,character *,integer *,integer *,
			   integer *,doubleprecision *,doubleprecision *,integer *,
			   doubleprecision *,integer *,doubleprecision *,doubleprecision *,
			   integer *,ftnlen,ftnlen),
                     dgemv(character *,integer *,integer *,doubleprecision *,
			   doubleprecision *,integer *,doubleprecision *,integer *,
			   doubleprecision *,doubleprecision *,integer *,ftnlen),
                     dger(integer *,integer *,doubleprecision *,doubleprecision *,
			  integer *,doubleprecision *,integer *,doubleprecision *,
			  integer *);
doubleprecision           dnrm2(integer *,doubleprecision *,integer *);
void                 drot(integer *,doubleprecision *,integer *,doubleprecision *,
			  integer *,doubleprecision *,doubleprecision *),
                     drotg(doubleprecision *,doubleprecision *,doubleprecision *,
			   doubleprecision *),
                     dsbmv(character *,integer *,integer *,doubleprecision *,
			   doubleprecision *,integer *,doubleprecision *,integer *,
			   doubleprecision *,doubleprecision *,integer *,ftnlen),
                     dscal(integer *,doubleprecision *,doubleprecision *,integer *),
                     dspmv(character *,integer *,doubleprecision *,doubleprecision *,
			   doubleprecision *,integer *,doubleprecision *,doubleprecision *,
			   integer *,ftnlen),
                     dspr(character *,integer *,doubleprecision *,doubleprecision *,
			  integer *,doubleprecision *,ftnlen),
                     dspr2(character *,integer *,doubleprecision *,doubleprecision *,
			   integer *,doubleprecision *,integer *,doubleprecision *,
			   ftnlen),
                     dswap(integer *n,doubleprecision *,integer *,doubleprecision *,
			   integer *),
                     dsymm(character *,character *,integer *,integer *,
			   doubleprecision *,doubleprecision *,integer *,doubleprecision *,
			   integer *,doubleprecision *,doubleprecision *,integer *,
			   ftnlen,ftnlen),
                     dsymv(character *,integer *,doubleprecision *,doubleprecision *,
			   integer *,doubleprecision *,integer *,doubleprecision *,
			   doubleprecision *,integer *,ftnlen),
                     dsyr(character *,integer *,doubleprecision *,doubleprecision *,
			  integer *,doubleprecision *,integer *,ftnlen),
                     dsyr2(character *,integer *,doubleprecision *,doubleprecision *,
			   integer *,doubleprecision *,integer *,doubleprecision *,
			   integer *,ftnlen),
                     dsyr2k(character *,character *,integer *,integer *,
			    doubleprecision *,doubleprecision *,integer *,doubleprecision *,
			    integer *,doubleprecision *,doubleprecision *,integer *,
			    ftnlen,ftnlen),
                     dsyrk(character *,character *,integer *,integer *,
			   doubleprecision *,doubleprecision *,integer *,doubleprecision *,
			   doubleprecision *,integer *,ftnlen,ftnlen),
                     dtbmv(character *,character *,character *,integer *,
			   integer *,doubleprecision *,integer *,doubleprecision *,
			   integer *,ftnlen,ftnlen,ftnlen),
                     dtbsv(character *,character *,character *,integer *,
			   integer *,doubleprecision *,integer *,doubleprecision *,
			   integer *,ftnlen,ftnlen,ftnlen),
                     dtpmv(character *,character *,character *,integer *,
			   doubleprecision *,doubleprecision *,integer *,ftnlen,ftnlen,
			   ftnlen),
                     dtpsv(character *,character *,character *,integer *,
			   doubleprecision *,doubleprecision *,integer *,ftnlen,ftnlen,
			   ftnlen),
                     dtrmm(character *,character *,character *,character *,
			   integer *,integer *,doubleprecision *,doubleprecision *,
			   integer *,doubleprecision *,integer *,ftnlen,ftnlen,
			   ftnlen,ftnlen),
                     dtrmv(character *,character *,character *,integer *,
			   doubleprecision *,integer *,doubleprecision *,integer *,
			   ftnlen,ftnlen,ftnlen),
                     dtrsm(character *,character *,character *,character *,
			   integer *,integer *,doubleprecision *,doubleprecision *,
			   integer *,doubleprecision *,integer *,ftnlen,ftnlen,
			   ftnlen,ftnlen),
                     dtrsv(character *,character *,character *,integer *,
			   doubleprecision *,integer *,doubleprecision *,integer *,
			   ftnlen,ftnlen,ftnlen);
doubleprecision           dzasum(integer *,doublecomplex *,integer *),
                     dznrm2(integer *, doublecomplex *,integer *);

real                 sasum(integer *,real *,integer *),
                     scasum(integer *,complex *,integer *),
                     snrm2(integer *,real *,integer *),
                     scnrm2(integer *,complex *,integer *),
                     sdot(integer *,real *,integer *,real *,integer *);