mofem/html/cblas__f77_8h_source.html

 /*
  * cblas_f77.h
  * Written by Keita Teranishi
  *
  * Updated by Jeff Horner
  * Merged cblas_f77.h and cblas_fortran_header.h
  */

 #include "config.h"

 #ifndef CBLAS_F77_H
 #define CBLAS_f77_H

 #ifdef CRAY
    #include <fortran.h>
    #define F77_CHAR _fcd
    #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
    #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
    #define F77_STRLEN(a) (_fcdlen)
 #endif

 #ifdef WeirdNEC
    #define F77_INT long
 #endif

 #ifdef  F77_CHAR
    #define FCHAR F77_CHAR
 #else
    #define FCHAR char *
 #endif

 #ifdef F77_INT
    #define FINT const F77_INT *
    #define FINT2 F77_INT *
 #else
    #define FINT const int *
    #define FINT2 int *
 #endif

 #if defined(ADD_)
 /*
  * Level 1 BLAS
  */
 #define F77_xerbla xerbla_
    #define F77_srotg      srotg_
    #define F77_srotmg     srotmg_
    #define F77_srot       srot_
    #define F77_srotm      srotm_
    #define F77_drotg      drotg_
    #define F77_drotmg     drotmg_
    #define F77_drot       drot_
    #define F77_drotm      drotm_
    #define F77_sswap      sswap_
    #define F77_scopy      scopy_
    #define F77_saxpy      saxpy_
    #define F77_isamax_sub isamaxsub_
    #define F77_dswap      dswap_
    #define F77_dcopy      dcopy_
    #define F77_daxpy      daxpy_
    #define F77_idamax_sub idamaxsub_
    #define F77_cswap      cswap_
    #define F77_ccopy      ccopy_
    #define F77_caxpy      caxpy_
    #define F77_icamax_sub icamaxsub_
    #define F77_zswap      zswap_
    #define F77_zcopy      zcopy_
    #define F77_zaxpy      zaxpy_
    #define F77_izamax_sub izamaxsub_
    #define F77_sdot_sub   sdotsub_
    #define F77_ddot_sub   ddotsub_
    #define F77_dsdot_sub   dsdotsub_
    #define F77_sscal      sscal_
    #define F77_dscal      dscal_
    #define F77_cscal      cscal_
    #define F77_zscal      zscal_
    #define F77_csscal      csscal_
    #define F77_zdscal      zdscal_
    #define F77_cdotu_sub  cdotusub_
    #define F77_cdotc_sub  cdotcsub_
    #define F77_zdotu_sub  zdotusub_
    #define F77_zdotc_sub  zdotcsub_
    #define F77_snrm2_sub  snrm2sub_
    #define F77_sasum_sub  sasumsub_
    #define F77_dnrm2_sub  dnrm2sub_
    #define F77_dasum_sub  dasumsub_
    #define F77_scnrm2_sub  scnrm2sub_
    #define F77_scasum_sub  scasumsub_
    #define F77_dznrm2_sub  dznrm2sub_
    #define F77_dzasum_sub  dzasumsub_
    #define F77_sdsdot_sub   sdsdotsub_
 /*
  * Level 2 BLAS
  */
    #define F77_ssymv      ssymv_
    #define F77_ssbmv      ssbmv_
    #define F77_sspmv      sspmv_
    #define F77_sger       sger_
    #define F77_ssyr       ssyr_
    #define F77_sspr       sspr_
    #define F77_ssyr2      ssyr2_
    #define F77_sspr2      sspr2_
    #define F77_dsymv      dsymv_
    #define F77_dsbmv      dsbmv_
    #define F77_dspmv      dspmv_
    #define F77_dger       dger_
    #define F77_dsyr       dsyr_
    #define F77_dspr       dspr_
    #define F77_dsyr2      dsyr2_
    #define F77_dspr2      dspr2_
    #define F77_chemv      chemv_
    #define F77_chbmv      chbmv_
    #define F77_chpmv      chpmv_
    #define F77_cgeru      cgeru_
    #define F77_cgerc      cgerc_
    #define F77_cher       cher_
    #define F77_chpr       chpr_
    #define F77_cher2      cher2_
    #define F77_chpr2      chpr2_
    #define F77_zhemv      zhemv_
    #define F77_zhbmv      zhbmv_
    #define F77_zhpmv      zhpmv_
    #define F77_zgeru      zgeru_
    #define F77_zgerc      zgerc_
    #define F77_zher       zher_
    #define F77_zhpr       zhpr_
    #define F77_zher2      zher2_
    #define F77_zhpr2      zhpr2_
    #define F77_sgemv      sgemv_
    #define F77_sgbmv      sgbmv_
    #define F77_strmv      strmv_
    #define F77_stbmv      stbmv_
    #define F77_stpmv      stpmv_
    #define F77_strsv      strsv_
    #define F77_stbsv      stbsv_
    #define F77_stpsv      stpsv_
    #define F77_dgemv      dgemv_
    #define F77_dgbmv      dgbmv_
    #define F77_dtrmv      dtrmv_
    #define F77_dtbmv      dtbmv_
    #define F77_dtpmv      dtpmv_
    #define F77_dtrsv      dtrsv_
    #define F77_dtbsv      dtbsv_
    #define F77_dtpsv      dtpsv_
    #define F77_cgemv      cgemv_
    #define F77_cgbmv      cgbmv_
    #define F77_ctrmv      ctrmv_
    #define F77_ctbmv      ctbmv_
    #define F77_ctpmv      ctpmv_
    #define F77_ctrsv      ctrsv_
    #define F77_ctbsv      ctbsv_
    #define F77_ctpsv      ctpsv_
    #define F77_zgemv      zgemv_
    #define F77_zgbmv      zgbmv_
    #define F77_ztrmv      ztrmv_
    #define F77_ztbmv      ztbmv_
    #define F77_ztpmv      ztpmv_
    #define F77_ztrsv      ztrsv_
    #define F77_ztbsv      ztbsv_
    #define F77_ztpsv      ztpsv_
 /*
  * Level 3 BLAS
  */
    #define F77_chemm      chemm_
    #define F77_cherk      cherk_
    #define F77_cher2k     cher2k_
    #define F77_zhemm      zhemm_
    #define F77_zherk      zherk_
    #define F77_zher2k     zher2k_
    #define F77_sgemm      sgemm_
    #define F77_ssymm      ssymm_
    #define F77_ssyrk      ssyrk_
    #define F77_ssyr2k     ssyr2k_
    #define F77_strmm      strmm_
    #define F77_strsm      strsm_
    #define F77_dgemm      dgemm_
    #define F77_dsymm      dsymm_
    #define F77_dsyrk      dsyrk_
    #define F77_dsyr2k     dsyr2k_
    #define F77_dtrmm      dtrmm_
    #define F77_dtrsm      dtrsm_
    #define F77_cgemm      cgemm_
    #define F77_csymm      csymm_
    #define F77_csyrk      csyrk_
    #define F77_csyr2k     csyr2k_
    #define F77_ctrmm      ctrmm_
    #define F77_ctrsm      ctrsm_
    #define F77_zgemm      zgemm_
    #define F77_zsymm      zsymm_
    #define F77_zsyrk      zsyrk_
    #define F77_zsyr2k     zsyr2k_
    #define F77_ztrmm      ztrmm_
    #define F77_ztrsm      ztrsm_
 #elif defined(UPCASE)
 /*
  * Level 1 BLAS
  */
 #define F77_xerbla  XERBLA
    #define F77_srotg      SROTG
    #define F77_srotmg     SROTMG
    #define F77_srot       SROT
    #define F77_srotm      SROTM
    #define F77_drotg      DROTG
    #define F77_drotmg     DROTMG
    #define F77_drot       DROT
    #define F77_drotm      DROTM
    #define F77_sswap      SSWAP
    #define F77_scopy      SCOPY
    #define F77_saxpy      SAXPY
    #define F77_isamax_sub ISAMAXSUB
    #define F77_dswap      DSWAP
    #define F77_dcopy      DCOPY
    #define F77_daxpy      DAXPY
    #define F77_idamax_sub IDAMAXSUB
    #define F77_cswap      CSWAP
    #define F77_ccopy      CCOPY
    #define F77_caxpy      CAXPY
    #define F77_icamax_sub ICAMAXSUB
    #define F77_zswap      ZSWAP
    #define F77_zcopy      ZCOPY
    #define F77_zaxpy      ZAXPY
    #define F77_izamax_sub IZAMAXSUB
    #define F77_sdot_sub   SDOTSUB
    #define F77_ddot_sub   DDOTSUB
    #define F77_dsdot_sub   DSDOTSUB
    #define F77_sscal      SSCAL
    #define F77_dscal      DSCAL
    #define F77_cscal      CSCAL
    #define F77_zscal      ZSCAL
    #define F77_csscal      CSSCAL
    #define F77_zdscal      ZDSCAL
    #define F77_cdotu_sub  CDOTUSUB
    #define F77_cdotc_sub  CDOTCSUB
    #define F77_zdotu_sub  ZDOTUSUB
    #define F77_zdotc_sub  ZDOTCSUB
    #define F77_snrm2_sub  SNRM2SUB
    #define F77_sasum_sub  SASUMSUB
    #define F77_dnrm2_sub  DNRM2SUB
    #define F77_dasum_sub  DASUMSUB
    #define F77_scnrm2_sub  SCNRM2SUB
    #define F77_scasum_sub  SCASUMSUB
    #define F77_dznrm2_sub  DZNRM2SUB
    #define F77_dzasum_sub  DZASUMSUB
    #define F77_sdsdot_sub   SDSDOTSUB
 /*
  * Level 2 BLAS
  */
    #define F77_ssymv      SSYMV
    #define F77_ssbmv      SSBMV
    #define F77_sspmv      SSPMV
    #define F77_sger       SGER
    #define F77_ssyr       SSYR
    #define F77_sspr       SSPR
    #define F77_ssyr2      SSYR2
    #define F77_sspr2      SSPR2
    #define F77_dsymv      DSYMV
    #define F77_dsbmv      DSBMV
    #define F77_dspmv      DSPMV
    #define F77_dger       DGER
    #define F77_dsyr       DSYR
    #define F77_dspr       DSPR
    #define F77_dsyr2      DSYR2
    #define F77_dspr2      DSPR2
    #define F77_chemv      CHEMV
    #define F77_chbmv      CHBMV
    #define F77_chpmv      CHPMV
    #define F77_cgeru      CGERU
    #define F77_cgerc      CGERC
    #define F77_cher       CHER
    #define F77_chpr       CHPR
    #define F77_cher2      CHER2
    #define F77_chpr2      CHPR2
    #define F77_zhemv      ZHEMV
    #define F77_zhbmv      ZHBMV
    #define F77_zhpmv      ZHPMV
    #define F77_zgeru      ZGERU
    #define F77_zgerc      ZGERC
    #define F77_zher       ZHER
    #define F77_zhpr       ZHPR
    #define F77_zher2      ZHER2
    #define F77_zhpr2      ZHPR2
    #define F77_sgemv      SGEMV
    #define F77_sgbmv      SGBMV
    #define F77_strmv      STRMV
    #define F77_stbmv      STBMV
    #define F77_stpmv      STPMV
    #define F77_strsv      STRSV
    #define F77_stbsv      STBSV
    #define F77_stpsv      STPSV
    #define F77_dgemv      DGEMV
    #define F77_dgbmv      DGBMV
    #define F77_dtrmv      DTRMV
    #define F77_dtbmv      DTBMV
    #define F77_dtpmv      DTPMV
    #define F77_dtrsv      DTRSV
    #define F77_dtbsv      DTBSV
    #define F77_dtpsv      DTPSV
    #define F77_cgemv      CGEMV
    #define F77_cgbmv      CGBMV
    #define F77_ctrmv      CTRMV
    #define F77_ctbmv      CTBMV
    #define F77_ctpmv      CTPMV
    #define F77_ctrsv      CTRSV
    #define F77_ctbsv      CTBSV
    #define F77_ctpsv      CTPSV
    #define F77_zgemv      ZGEMV
    #define F77_zgbmv      ZGBMV
    #define F77_ztrmv      ZTRMV
    #define F77_ztbmv      ZTBMV
    #define F77_ztpmv      ZTPMV
    #define F77_ztrsv      ZTRSV
    #define F77_ztbsv      ZTBSV
    #define F77_ztpsv      ZTPSV
 /*
  * Level 3 BLAS
  */
    #define F77_chemm      CHEMM
    #define F77_cherk      CHERK
    #define F77_cher2k     CHER2K
    #define F77_zhemm      ZHEMM
    #define F77_zherk      ZHERK
    #define F77_zher2k     ZHER2K
    #define F77_sgemm      SGEMM
    #define F77_ssymm      SSYMM
    #define F77_ssyrk      SSYRK
    #define F77_ssyr2k     SSYR2K
    #define F77_strmm      STRMM
    #define F77_strsm      STRSM
    #define F77_dgemm      DGEMM
    #define F77_dsymm      DSYMM
    #define F77_dsyrk      DSYRK
    #define F77_dsyr2k     DSYR2K
    #define F77_dtrmm      DTRMM
    #define F77_dtrsm      DTRSM
    #define F77_cgemm      CGEMM
    #define F77_csymm      CSYMM
    #define F77_csyrk      CSYRK
    #define F77_csyr2k     CSYR2K
    #define F77_ctrmm      CTRMM
    #define F77_ctrsm      CTRSM
    #define F77_zgemm      ZGEMM
    #define F77_zsymm      ZSYMM
    #define F77_zsyrk      ZSYRK
    #define F77_zsyr2k     ZSYR2K
    #define F77_ztrmm      ZTRMM
    #define F77_ztrsm      ZTRSM
 #elif defined(NOCHANGE)
 /*
  * Level 1 BLAS
  */
 #define F77_xerbla  xerbla
    #define F77_srotg      srotg
    #define F77_srotmg     srotmg
    #define F77_srot       srot
    #define F77_srotm      srotm
    #define F77_drotg      drotg
    #define F77_drotmg     drotmg
    #define F77_drot       drot
    #define F77_drotm      drotm
    #define F77_sswap      sswap
    #define F77_scopy      scopy
    #define F77_saxpy      saxpy
    #define F77_isamax_sub isamaxsub
    #define F77_dswap      dswap
    #define F77_dcopy      dcopy
    #define F77_daxpy      daxpy
    #define F77_idamax_sub idamaxsub
    #define F77_cswap      cswap
    #define F77_ccopy      ccopy
    #define F77_caxpy      caxpy
    #define F77_icamax_sub icamaxsub
    #define F77_zswap      zswap
    #define F77_zcopy      zcopy
    #define F77_zaxpy      zaxpy
    #define F77_izamax_sub izamaxsub
    #define F77_sdot_sub   sdotsub
    #define F77_ddot_sub   ddotsub
    #define F77_dsdot_sub   dsdotsub
    #define F77_sscal      sscal
    #define F77_dscal      dscal
    #define F77_cscal      cscal
    #define F77_zscal      zscal
    #define F77_csscal      csscal
    #define F77_zdscal      zdscal
    #define F77_cdotu_sub  cdotusub
    #define F77_cdotc_sub  cdotcsub
    #define F77_zdotu_sub  zdotusub
    #define F77_zdotc_sub  zdotcsub
    #define F77_snrm2_sub  snrm2sub
    #define F77_sasum_sub  sasumsub
    #define F77_dnrm2_sub  dnrm2sub
    #define F77_dasum_sub  dasumsub
    #define F77_scnrm2_sub  scnrm2sub
    #define F77_scasum_sub  scasumsub
    #define F77_dznrm2_sub  dznrm2sub
    #define F77_dzasum_sub  dzasumsub
    #define F77_sdsdot_sub   sdsdotsub
 /*
  * Level 2 BLAS
  */
    #define F77_ssymv      ssymv
    #define F77_ssbmv      ssbmv
    #define F77_sspmv      sspmv
    #define F77_sger       sger
    #define F77_ssyr       ssyr
    #define F77_sspr       sspr
    #define F77_ssyr2      ssyr2
    #define F77_sspr2      sspr2
    #define F77_dsymv      dsymv
    #define F77_dsbmv      dsbmv
    #define F77_dspmv      dspmv
    #define F77_dger       dger
    #define F77_dsyr       dsyr
    #define F77_dspr       dspr
    #define F77_dsyr2      dsyr2
    #define F77_dspr2      dspr2
    #define F77_chemv      chemv
    #define F77_chbmv      chbmv
    #define F77_chpmv      chpmv
    #define F77_cgeru      cgeru
    #define F77_cgerc      cgerc
    #define F77_cher       cher
    #define F77_chpr       chpr
    #define F77_cher2      cher2
    #define F77_chpr2      chpr2
    #define F77_zhemv      zhemv
    #define F77_zhbmv      zhbmv
    #define F77_zhpmv      zhpmv
    #define F77_zgeru      zgeru
    #define F77_zgerc      zgerc
    #define F77_zher       zher
    #define F77_zhpr       zhpr
    #define F77_zher2      zher2
    #define F77_zhpr2      zhpr2
    #define F77_sgemv      sgemv
    #define F77_sgbmv      sgbmv
    #define F77_strmv      strmv
    #define F77_stbmv      stbmv
    #define F77_stpmv      stpmv
    #define F77_strsv      strsv
    #define F77_stbsv      stbsv
    #define F77_stpsv      stpsv
    #define F77_dgemv      dgemv
    #define F77_dgbmv      dgbmv
    #define F77_dtrmv      dtrmv
    #define F77_dtbmv      dtbmv
    #define F77_dtpmv      dtpmv
    #define F77_dtrsv      dtrsv
    #define F77_dtbsv      dtbsv
    #define F77_dtpsv      dtpsv
    #define F77_cgemv      cgemv
    #define F77_cgbmv      cgbmv
    #define F77_ctrmv      ctrmv
    #define F77_ctbmv      ctbmv
    #define F77_ctpmv      ctpmv
    #define F77_ctrsv      ctrsv
    #define F77_ctbsv      ctbsv
    #define F77_ctpsv      ctpsv
    #define F77_zgemv      zgemv
    #define F77_zgbmv      zgbmv
    #define F77_ztrmv      ztrmv
    #define F77_ztbmv      ztbmv
    #define F77_ztpmv      ztpmv
    #define F77_ztrsv      ztrsv
    #define F77_ztbsv      ztbsv
    #define F77_ztpsv      ztpsv
 /*
  * Level 3 BLAS
  */
    #define F77_chemm      chemm
    #define F77_cherk      cherk
    #define F77_cher2k     cher2k
    #define F77_zhemm      zhemm
    #define F77_zherk      zherk
    #define F77_zher2k     zher2k
    #define F77_sgemm      sgemm
    #define F77_ssymm      ssymm
    #define F77_ssyrk      ssyrk
    #define F77_ssyr2k     ssyr2k
    #define F77_strmm      strmm
    #define F77_strsm      strsm
    #define F77_dgemm      dgemm
    #define F77_dsymm      dsymm
    #define F77_dsyrk      dsyrk
    #define F77_dsyr2k     dsyr2k
    #define F77_dtrmm      dtrmm
    #define F77_dtrsm      dtrsm
    #define F77_cgemm      cgemm
    #define F77_csymm      csymm
    #define F77_csyrk      csyrk
    #define F77_csyr2k     csyr2k
    #define F77_ctrmm      ctrmm
    #define F77_ctrsm      ctrsm
    #define F77_zgemm      zgemm
    #define F77_zsymm      zsymm
    #define F77_zsyrk      zsyrk
    #define F77_zsyr2k     zsyr2k
    #define F77_ztrmm      ztrmm
    #define F77_ztrsm      ztrsm
 #endif

 #ifdef __cplusplus
 extern "C" {
 #endif

    void F77_xerbla(FCHAR, void *);
 /*
  * Level 1 Fortran Prototypes
  */

 /* Single Precision */

    void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
    void F77_srotg(float *,float *,float *,float *);
    void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
    void F77_srotmg(float *,float *,float *,const float *, float *);
    void F77_sswap( FINT, float *, FINT, float *, FINT);
    void F77_scopy( FINT, const float *, FINT, float *, FINT);
    void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
    void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
    void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
    void F77_sscal( FINT, const float *, float *, FINT);
    void F77_snrm2_sub( FINT, const float *, FINT, float *);
    void F77_sasum_sub( FINT, const float *, FINT, float *);
    void F77_isamax_sub( FINT, const float * , FINT, FINT2);

 /* Double Precision */

    void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
    void F77_drotg(double *,double *,double *,double *);
    void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
    void F77_drotmg(double *,double *,double *,const double *, double *);
    void F77_dswap( FINT, double *, FINT, double *, FINT);
    void F77_dcopy( FINT, const double *, FINT, double *, FINT);
    void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
    void F77_dswap( FINT, double *, FINT, double *, FINT);
    void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
    void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
    void F77_dscal( FINT, const double *, double *, FINT);
    void F77_dnrm2_sub( FINT, const double *, FINT, double *);
    void F77_dasum_sub( FINT, const double *, FINT, double *);
    void F77_idamax_sub( FINT, const double * , FINT, FINT2);

 /* Single Complex Precision */

    void F77_cswap( FINT, void *, FINT, void *, FINT);
    void F77_ccopy( FINT, const void *, FINT, void *, FINT);
    void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
    void F77_cswap( FINT, void *, FINT, void *, FINT);
    void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
    void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
    void F77_cscal( FINT, const void *, void *, FINT);
    void F77_icamax_sub( FINT, const void *, FINT, FINT2);
    void F77_csscal( FINT, const float *, void *, FINT);
    void F77_scnrm2_sub( FINT, const void *, FINT, float *);
    void F77_scasum_sub( FINT, const void *, FINT, float *);

 /* Double Complex Precision */

    void F77_zswap( FINT, void *, FINT, void *, FINT);
    void F77_zcopy( FINT, const void *, FINT, void *, FINT);
    void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
    void F77_zswap( FINT, void *, FINT, void *, FINT);
    void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
    void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
    void F77_zdscal( FINT, const double *, void *, FINT);
    void F77_zscal( FINT, const void *, void *, FINT);
    void F77_dznrm2_sub( FINT, const void *, FINT, double *);
    void F77_dzasum_sub( FINT, const void *, FINT, double *);
    void F77_izamax_sub( FINT, const void *, FINT, FINT2);

 /*
  * Level 2 Fortran Prototypes
  */

 /* Single Precision */

    void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *,  const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *,  FINT, const float *, float *, FINT);
    void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
    void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
    void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
    void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
    void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
    void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
    void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
    void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
    void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
    void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *);
    void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT,  float *);
    void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT,  float *, FINT);

 /* Double Precision */

    void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *,  const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *,  FINT, const double *, double *, FINT);
    void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
    void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
    void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
    void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
    void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
    void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
    void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
    void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
    void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
    void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *);
    void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT,  double *);
    void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT,  double *, FINT);

 /* Single Complex Precision */

    void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *,  const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
    void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
    void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
    void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
    void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
    void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
    void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
    void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
    void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *,  FINT);
    void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
    void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
    void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
    void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);

 /* Double Complex Precision */

    void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *,  const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
    void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
    void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
    void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
    void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
    void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
    void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
    void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
    void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
    void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *,  FINT);
    void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
    void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
    void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
    void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);

 /*
  * Level 3 Fortran Prototypes
  */

 /* Single Precision */

    void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
    void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
    void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);

 /* Double Precision */

    void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
    void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
    void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);

 /* Single Complex Precision */

    void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
    void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
    void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
    void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
    void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);

 /* Double Complex Precision */

    void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
    void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
    void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
    void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
    void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);

 #ifdef __cplusplus
 }
 #endif

 #endif /*  CBLAS_F77_H */
F77_ztpmv
void F77_ztpmv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)

F77_dsdot_sub
void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *)

F77_cdotc_sub
void F77_cdotc_sub(FINT, const void *, FINT, const void *, FINT, void *)

F77_chemv
void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_stpmv
void F77_stpmv(FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT)

F77_dnrm2_sub
void F77_dnrm2_sub(FINT, const double *, FINT, double *)

F77_dswap
void F77_dswap(FINT, double *, FINT, double *, FINT)

F77_ctrmm
void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)

F77_ctrsm
void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)

F77_ztbmv
void F77_ztbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)

F77_zdotu_sub
void F77_zdotu_sub(FINT, const void *, FINT, const void *, FINT, void *)

F77_dsyr2k
void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_dscal
void F77_dscal(FINT, const double *, double *, FINT)

F77_scasum_sub
void F77_scasum_sub(FINT, const void *, FINT, float *)

F77_sspr2
void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *)

F77_stbmv
void F77_stbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT)

F77_ctrsv
void F77_ctrsv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)

FCHAR
#define FCHAR
Definition: cblas_f77.h:29

F77_strmm
void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)

FINT2
#define FINT2
Definition: cblas_f77.h:37

F77_dtpsv
void F77_dtpsv(FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT)

F77_stbsv
void F77_stbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT)

F77_cswap
void F77_cswap(FINT, void *, FINT, void *, FINT)

F77_csyrk
void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT)

F77_ctpsv
void F77_ctpsv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)

F77_dspmv
void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT)

F77_ztrmm
void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)

F77_drotm
void F77_drotm(FINT, double *, FINT, double *, FINT, const double *)

F77_strmv
void F77_strmv(FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT)

F77_dtbsv
void F77_dtbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT)

F77_cscal
void F77_cscal(FINT, const void *, void *, FINT)

F77_zgemm
void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_zhbmv
void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_zgbmv
void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_zherk
void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT)

F77_cgerc
void F77_cgerc(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)

F77_drot
void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *)

F77_dspr2
void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *)

F77_zher
void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT)

F77_chpr2
void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *)

F77_scopy
void F77_scopy(FINT, const float *, FINT, float *, FINT)

F77_drotmg
void F77_drotmg(double *, double *, double *, const double *, double *)

F77_dsyr2
void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT)

F77_zhpr
void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *)

F77_cgemm
void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_idamax_sub
void F77_idamax_sub(FINT, const double *, FINT, FINT2)

F77_sswap
void F77_sswap(FINT, float *, FINT, float *, FINT)

F77_cher
void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT)

F77_dtrmv
void F77_dtrmv(FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT)

F77_chemm
void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_ssyr2k
void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_dtrsv
void F77_dtrsv(FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT)

F77_strsm
void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT)

F77_srotg
void F77_srotg(float *, float *, float *, float *)

F77_zher2
void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)

F77_snrm2_sub
void F77_snrm2_sub(FINT, const float *, FINT, float *)

FINT
#define FINT
Definition: cblas_f77.h:36

F77_ctbsv
void F77_ctbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)

F77_sspr
void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *)

F77_dger
void F77_dger(FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT)

F77_ztpsv
void F77_ztpsv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)

F77_ztrsm
void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)

F77_zdscal
void F77_zdscal(FINT, const double *, void *, FINT)

F77_dspr
void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *)

F77_zscal
void F77_zscal(FINT, const void *, void *, FINT)

F77_ztrsv
void F77_ztrsv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)

F77_dsymm
void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_cgbmv
void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_zgemv
void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_zcopy
void F77_zcopy(FINT, const void *, FINT, void *, FINT)

F77_izamax_sub
void F77_izamax_sub(FINT, const void *, FINT, FINT2)

F77_ccopy
void F77_ccopy(FINT, const void *, FINT, void *, FINT)

F77_dtpmv
void F77_dtpmv(FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT)

F77_ddot_sub
void F77_ddot_sub(FINT, const double *, FINT, const double *, FINT, double *)

F77_daxpy
void F77_daxpy(FINT, const double *, const double *, FINT, double *, FINT)

F77_saxpy
void F77_saxpy(FINT, const float *, const float *, FINT, float *, FINT)

F77_cher2k
void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_sgbmv
void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_zswap
void F77_zswap(FINT, void *, FINT, void *, FINT)

F77_ssyrk
void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT)

F77_chpr
void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *)

F77_zgerc
void F77_zgerc(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)

F77_dgemv
void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_ssymv
void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_ctrmv
void F77_ctrmv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)

F77_zhemm
void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_ssbmv
void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_zsyr2k
void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_dsbmv
void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_icamax_sub
void F77_icamax_sub(FINT, const void *, FINT, FINT2)

F77_sger
void F77_sger(FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT)

F77_zsymm
void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_sasum_sub
void F77_sasum_sub(FINT, const float *, FINT, float *)

F77_zgeru
void F77_zgeru(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)

F77_dgemm
void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_srotmg
void F77_srotmg(float *, float *, float *, const float *, float *)

F77_ssymm
void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_csymm
void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_sdsdot_sub
void F77_sdsdot_sub(FINT, const float *, const float *, FINT, const float *, FINT, float *)

F77_sgemv
void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_zaxpy
void F77_zaxpy(FINT, const void *, const void *, FINT, void *, FINT)

F77_csscal
void F77_csscal(FINT, const float *, void *, FINT)

F77_dsyrk
void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT)

F77_ztrmv
void F77_ztrmv(FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT)

F77_strsv
void F77_strsv(FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT)

F77_sgemm
void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_ssyr
void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT)

F77_zsyrk
void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT)

F77_zhpr2
void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *)

F77_ctbmv
void F77_ctbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)

F77_stpsv
void F77_stpsv(FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT)

F77_drotg
void F77_drotg(double *, double *, double *, double *)

F77_dsymv
void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_cgeru
void F77_cgeru(FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)

F77_zher2k
void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_ssyr2
void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT)

F77_sdot_sub
void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *)

F77_cher2
void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT)

F77_srotm
void F77_srotm(FINT, float *, FINT, float *, FINT, const float *)

F77_dtrsm
void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)

F77_dznrm2_sub
void F77_dznrm2_sub(FINT, const void *, FINT, double *)

F77_srot
void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *)

F77_chpmv
void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT)

F77_ctpmv
void F77_ctpmv(FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT)

F77_caxpy
void F77_caxpy(FINT, const void *, const void *, FINT, void *, FINT)

F77_csyr2k
void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT)

F77_cherk
void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT)

F77_dtrmm
void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT)

F77_zhemv
void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_sspmv
void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT)

F77_ztbsv
void F77_ztbsv(FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT)

F77_dsyr
void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT)

F77_dasum_sub
void F77_dasum_sub(FINT, const double *, FINT, double *)

F77_dcopy
void F77_dcopy(FINT, const double *, FINT, double *, FINT)

F77_cdotu_sub
void F77_cdotu_sub(FINT, const void *, FINT, const void *, FINT, void *)

F77_dgbmv
void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT)

F77_chbmv
void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_xerbla
void F77_xerbla(FCHAR, void *)

F77_scnrm2_sub
void F77_scnrm2_sub(FINT, const void *, FINT, float *)

F77_zhpmv
void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT)

F77_cgemv
void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT)

F77_dtbmv
void F77_dtbmv(FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT)

F77_dzasum_sub
void F77_dzasum_sub(FINT, const void *, FINT, double *)

F77_sscal
void F77_sscal(FINT, const float *, float *, FINT)

F77_isamax_sub
void F77_isamax_sub(FINT, const float *, FINT, FINT2)

F77_zdotc_sub
void F77_zdotc_sub(FINT, const void *, FINT, const void *, FINT, void *)