blas.h

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

extern void          sgemm(character *,character *,integer *,integer *, 
			   integer *,real *,real *,integer *,real *,integer *,
			   real *,real *,integer *,ftnlen,ftnlen),
                     sscal(integer *,real *,real *,integer *),
                     ssyr(character *,integer *,real *,real *,integer *,real *,
			  integer *,ftnlen),
                     stpsv(character *,character *,character *,integer *, 
			   real *,real *,integer *,ftnlen,ftnlen,ftnlen),
                     saxpy(integer *,real *,real *,integer *,real *,integer *),
                     sgemv(character *,integer *,integer *,real *,real *,
			   integer *,real *,integer *,real *,real *,integer *,
			   ftnlen),
                     sspmv(character *,integer *,real *,real *,real *,
			   integer *,real *,real *,integer *,ftnlen),
                     ssyr2(character *,integer *,real *,real *,integer *,
			   real *,integer *,real *,integer *,ftnlen),
                     strmm(character *,character *,character *,character *, 
			   integer *,integer *,real *,real *,integer *,real *, 
			   integer *,ftnlen,ftnlen,ftnlen,ftnlen),
                     sger(integer *,integer *,real *,real *,integer *,real *,
			  integer *,real *,integer *),
                     sspr(character *,integer *,real *,real *,integer *,real *,
			  ftnlen),
                     ssyr2k(character *u,character *,integer *,integer *, 
			    real *,real *,integer *,real *,integer *,real *,
			    real *,integer *,ftnlen,ftnlen),
                     strmv(character *,character *,character *,integer *,
			   real *,integer *,real *,integer *,ftnlen,ftnlen, 
			   ftnlen),
                     sspr2(character *,integer *,real *,real *,integer *,
			   real *,integer *,real *,ftnlen),
                     ssyrk(character *,character *,integer *,integer *,real *,
			   real *,integer *,real *,real *,integer *,ftnlen,
			   ftnlen),
                     strsm(character *,character *,character *,character *, 
			   integer *,integer *,real *,real *,integer *,real *, 
			   integer *,ftnlen,ftnlen,ftnlen,ftnlen),
                     scopy(integer *,real *,integer *,real *,integer *),
                     srot(integer *,real *,integer *,real *,integer *,real *,
			  real *),
                     sswap(integer *,real *,integer *,real *,integer *),
                     stbmv(character *,character *,character *,integer *n, 
			   integer *,real *,integer *,real *,integer *,ftnlen, 
			   ftnlen,ftnlen),
                     strsv(character *,character *,character *,integer *, 
			   real *,integer *,real *,integer *,ftnlen,ftnlen, 
			   ftnlen),
                     srotg(real *,real *,real *,real *),
                     ssymm(character *,character *,integer *,integer *,real *,
			   real *,integer *,real *,integer *,real *,real *, 
			   integer *,ftnlen,ftnlen),
                     stbsv(character *,character *,character *,integer *, 
			   integer *,real *,integer *,real *,integer *,ftnlen,
			   ftnlen,ftnlen),
                     sgbmv(character *,integer *,integer *,integer *,integer *,
			   real *,real *,integer *,real *,integer *,real *, 
			   real *,integer *,ftnlen),
                     ssbmv(character *,integer *,integer *,real *,real *, 
			   integer *,real *,integer *,real *,real *,integer *,
			   ftnlen),
                     ssymv(character *,integer *,real *,real *,integer *,
			   real *,integer *,real *,real *,integer *, ftnlen),
                     stpmv(character *,character *,character *,integer *, 
			   real *,real *,integer *,ftnlen,ftnlen,ftnlen);

doublecomplex        zdotc(doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,integer *),
                     zdotu(doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,integer *);
void                 zaxpy(integer *,doublecomplex *,doublecomplex *,integer *,
			   doublecomplex *,integer *),
                     zgemv(character *,integer *,integer *,doublecomplex *,
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,doublecomplex *,integer *,ftnlen),
                     zher2(character *,integer *,doublecomplex *,
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,integer *,ftnlen),
                     zscal(integer *,doublecomplex *,doublecomplex *,
			   integer *),
                     ztpmv(character *,character *,character *,integer *,
			   doublecomplex *,doublecomplex *,integer *,ftnlen,
			   ftnlen,ftnlen),
                     zcopy(integer *,doublecomplex *,integer *,doublecomplex *,
			   integer *),
                     zgerc(integer *,integer *,doublecomplex *,doublecomplex *,
			   integer *,doublecomplex *,integer *,doublecomplex *,
			   integer *),
                     zher2k(character *,character *,integer *,integer *, 
			    doublecomplex *,doublecomplex *,integer *, 
			    doublecomplex *,integer *,doubleprecision *, 
			    doublecomplex *,integer *,ftnlen,ftnlen),
                     zswap(integer *,doublecomplex *,integer *,doublecomplex *,
			   integer *),
                     ztpsv(character *,character *,character *,integer *, 
			   doublecomplex *,doublecomplex *,integer *,ftnlen, 
			   ftnlen,ftnlen),
                     zgeru(integer *,integer *,doublecomplex *,doublecomplex *,
			   integer *,doublecomplex *,integer *,doublecomplex *,
			   integer *),
                     zherk(character *,character *,integer *,integer *, 
			   doubleprecision *,doublecomplex *,integer *,doubleprecision *,
			   doublecomplex *,integer *,ftnlen,ftnlen),
                     zsymm(character *,character *,integer *,integer *, 
			   doublecomplex *,doublecomplex *,integer *, 
			   doublecomplex *,integer *,doublecomplex *, 
			   doublecomplex *,integer *,ftnlen,ftnlen),
                     ztrmm(character *,character *,character *,character *, 
			   integer *,integer *,doublecomplex *,doublecomplex *,
			   integer *,doublecomplex *,integer *,ftnlen,ftnlen,
			   ftnlen,ftnlen),
                     zhbmv(character *,integer *,integer *,doublecomplex *, 
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,doublecomplex *,integer *,ftnlen),
                     zhpmv(character *,integer *,doublecomplex *, 
			   doublecomplex *,doublecomplex *,integer *, 
			   doublecomplex *,doublecomplex *,integer *,ftnlen),
                     zsyr2k(character *,character *,integer *,integer *, 
			    doublecomplex *,doublecomplex *,integer *,
			    doublecomplex *,integer *,doublecomplex *, 
			    doublecomplex *,integer *,ftnlen,ftnlen),
                     ztrmv(character *,character *,character *,integer *, 
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   ftnlen,ftnlen,ftnlen),
                     zdscal(integer *,doublecomplex *,doublecomplex *,
			    integer *),
                     zhemm(character *,character *,integer *,integer *, 
			   doublecomplex *,doublecomplex *,integer *, 
			   doublecomplex *,integer *,doublecomplex *, 
			   doublecomplex *,integer *,ftnlen,ftnlen),
                     zhpr(character *,integer *,doubleprecision *,doublecomplex *,
			  integer *,doublecomplex *,ftnlen),
                     zsyrk(character *,character *,integer *,integer *, 
			   doublecomplex *,doublecomplex *,integer *,
			   doublecomplex *,doublecomplex *,integer *,ftnlen,
			   ftnlen),
                     ztrsm(character *,character *,character *,character *, 
			   integer *,integer *,doublecomplex *,doublecomplex *,
			   integer *,doublecomplex *,integer *,ftnlen,ftnlen,
			   ftnlen,ftnlen),
                     zgbmv(character *,integer *,integer *,integer *,integer *,
			   doublecomplex *,doublecomplex *,integer *, 
			   doublecomplex *,integer *,doublecomplex *, 
			   doublecomplex *,integer *,ftnlen),
                     zhemv(character *,integer *,doublecomplex *, 
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,doublecomplex *,integer *,ftnlen),
                     zhpr2(character *,integer *,doublecomplex *, 
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   doublecomplex *,ftnlen),
                     ztbmv(character *,character *,character *,integer *, 
			   integer *,doublecomplex *,integer *,doublecomplex *,
			   integer *,ftnlen,ftnlen,ftnlen),
                     ztrsv(character *,character *,character *,integer *, 
			   doublecomplex *,integer *,doublecomplex *,integer *,
			   ftnlen,ftnlen,ftnlen),
                     zgemm(character *,character *,integer *,integer *,
			   integer *,doublecomplex *,doublecomplex *,integer *,
			   doublecomplex *,integer *,doublecomplex *,
			   doublecomplex *,integer *,ftnlen,ftnlen),
                     zher(character *,integer *,doubleprecision *,doublecomplex *,
			  integer *,doublecomplex *,integer *,ftnlen),
                     zrot(integer *,doublecomplex *,integer *,doublecomplex *,
			  integer *,doubleprecision *,doublecomplex *),
                     zrotg(doublecomplex *,doublecomplex *,doubleprecision *,
			   doublecomplex *),
                     ztbsv(character *,character *,character *,integer *, 
			   integer *,doublecomplex *,integer *,doublecomplex *,
			   integer *,ftnlen,ftnlen,ftnlen);

integer              icamax(integer *,complex *,integer *),
                     idamax(integer *,doubleprecision *,integer *),
                     isamax(integer *,real *,integer *),
                     izamax(integer *,doublecomplex *,integer *),
                     lsame(character *,character *,ftnlen,ftnlen);
void                 xerbla(character *,integer *,ftnlen);

 
#endif /* _BLAS_H */