swiftnav: cblas_f77.h Source File

Go to the documentation of this file.
00001 /*
00002  * cblas_f77.h
00003  * Written by Keita Teranishi
00004  *
00005  * Updated by Jeff Horner
00006  * Merged cblas_f77.h and cblas_fortran_header.h
00007  */
00008 
00009 #ifndef CBLAS_F77_H
00010 #define CBLAS_F77_H
00011 
00012 #define ADD_
00013 
00014 #ifdef CRAY
00015    #include <fortran.h>
00016    #define F77_CHAR _fcd
00017    #define C2F_CHAR(a) ( _cptofcd( (a), 1 ) )
00018    #define C2F_STR(a, i) ( _cptofcd( (a), (i) ) )
00019    #define F77_STRLEN(a) (_fcdlen)
00020 #endif
00021 
00022 #ifdef WeirdNEC
00023    #define F77_INT long
00024 #endif
00025 
00026 #ifdef  F77_CHAR
00027    #define FCHAR F77_CHAR
00028 #else
00029    #define FCHAR char *
00030 #endif
00031 
00032 #ifdef F77_INT
00033    #define FINT const F77_INT *
00034    #define FINT2 F77_INT *
00035 #else
00036    #define FINT const int *
00037    #define FINT2 int *
00038 #endif
00039 
00040 #if defined(ADD_)
00041 /*
00042  * Level 1 BLAS
00043  */
00044 #define F77_xerbla xerbla_
00045    #define F77_srotg      srotg_
00046    #define F77_srotmg     srotmg_
00047    #define F77_srot       srot_
00048    #define F77_srotm      srotm_
00049    #define F77_drotg      drotg_
00050    #define F77_drotmg     drotmg_
00051    #define F77_drot       drot_
00052    #define F77_drotm      drotm_
00053    #define F77_sswap      sswap_
00054    #define F77_scopy      scopy_
00055    #define F77_saxpy      saxpy_
00056    #define F77_isamax_sub isamaxsub_
00057    #define F77_dswap      dswap_
00058    #define F77_dcopy      dcopy_
00059    #define F77_daxpy      daxpy_
00060    #define F77_idamax_sub idamaxsub_
00061    #define F77_cswap      cswap_
00062    #define F77_ccopy      ccopy_
00063    #define F77_caxpy      caxpy_
00064    #define F77_icamax_sub icamaxsub_
00065    #define F77_zswap      zswap_
00066    #define F77_zcopy      zcopy_
00067    #define F77_zaxpy      zaxpy_
00068    #define F77_izamax_sub izamaxsub_
00069    #define F77_sdot_sub   sdotsub_
00070    #define F77_ddot_sub   ddotsub_
00071    #define F77_dsdot_sub   dsdotsub_
00072    #define F77_sscal      sscal_
00073    #define F77_dscal      dscal_
00074    #define F77_cscal      cscal_
00075    #define F77_zscal      zscal_
00076    #define F77_csscal      csscal_
00077    #define F77_zdscal      zdscal_
00078    #define F77_cdotu_sub  cdotusub_
00079    #define F77_cdotc_sub  cdotcsub_
00080    #define F77_zdotu_sub  zdotusub_
00081    #define F77_zdotc_sub  zdotcsub_
00082    #define F77_snrm2_sub  snrm2sub_
00083    #define F77_sasum_sub  sasumsub_
00084    #define F77_dnrm2_sub  dnrm2sub_
00085    #define F77_dasum_sub  dasumsub_
00086    #define F77_scnrm2_sub  scnrm2sub_
00087    #define F77_scasum_sub  scasumsub_
00088    #define F77_dznrm2_sub  dznrm2sub_
00089    #define F77_dzasum_sub  dzasumsub_
00090    #define F77_sdsdot_sub   sdsdotsub_
00091 /*
00092  * Level 2 BLAS
00093  */
00094    #define F77_ssymv      ssymv_
00095    #define F77_ssbmv      ssbmv_
00096    #define F77_sspmv      sspmv_
00097    #define F77_sger       sger_
00098    #define F77_ssyr       ssyr_
00099    #define F77_sspr       sspr_
00100    #define F77_ssyr2      ssyr2_
00101    #define F77_sspr2      sspr2_
00102    #define F77_dsymv      dsymv_
00103    #define F77_dsbmv      dsbmv_
00104    #define F77_dspmv      dspmv_
00105    #define F77_dger       dger_
00106    #define F77_dsyr       dsyr_
00107    #define F77_dspr       dspr_
00108    #define F77_dsyr2      dsyr2_
00109    #define F77_dspr2      dspr2_
00110    #define F77_chemv      chemv_
00111    #define F77_chbmv      chbmv_
00112    #define F77_chpmv      chpmv_
00113    #define F77_cgeru      cgeru_
00114    #define F77_cgerc      cgerc_
00115    #define F77_cher       cher_
00116    #define F77_chpr       chpr_
00117    #define F77_cher2      cher2_
00118    #define F77_chpr2      chpr2_
00119    #define F77_zhemv      zhemv_
00120    #define F77_zhbmv      zhbmv_
00121    #define F77_zhpmv      zhpmv_
00122    #define F77_zgeru      zgeru_
00123    #define F77_zgerc      zgerc_
00124    #define F77_zher       zher_
00125    #define F77_zhpr       zhpr_
00126    #define F77_zher2      zher2_
00127    #define F77_zhpr2      zhpr2_
00128    #define F77_sgemv      sgemv_
00129    #define F77_sgbmv      sgbmv_
00130    #define F77_strmv      strmv_
00131    #define F77_stbmv      stbmv_
00132    #define F77_stpmv      stpmv_
00133    #define F77_strsv      strsv_
00134    #define F77_stbsv      stbsv_
00135    #define F77_stpsv      stpsv_
00136    #define F77_dgemv      dgemv_
00137    #define F77_dgbmv      dgbmv_
00138    #define F77_dtrmv      dtrmv_
00139    #define F77_dtbmv      dtbmv_
00140    #define F77_dtpmv      dtpmv_
00141    #define F77_dtrsv      dtrsv_
00142    #define F77_dtbsv      dtbsv_
00143    #define F77_dtpsv      dtpsv_
00144    #define F77_cgemv      cgemv_
00145    #define F77_cgbmv      cgbmv_
00146    #define F77_ctrmv      ctrmv_
00147    #define F77_ctbmv      ctbmv_
00148    #define F77_ctpmv      ctpmv_
00149    #define F77_ctrsv      ctrsv_
00150    #define F77_ctbsv      ctbsv_
00151    #define F77_ctpsv      ctpsv_
00152    #define F77_zgemv      zgemv_
00153    #define F77_zgbmv      zgbmv_
00154    #define F77_ztrmv      ztrmv_
00155    #define F77_ztbmv      ztbmv_
00156    #define F77_ztpmv      ztpmv_
00157    #define F77_ztrsv      ztrsv_
00158    #define F77_ztbsv      ztbsv_
00159    #define F77_ztpsv      ztpsv_
00160 /*
00161  * Level 3 BLAS
00162  */
00163    #define F77_chemm      chemm_
00164    #define F77_cherk      cherk_
00165    #define F77_cher2k     cher2k_
00166    #define F77_zhemm      zhemm_
00167    #define F77_zherk      zherk_
00168    #define F77_zher2k     zher2k_
00169    #define F77_sgemm      sgemm_
00170    #define F77_ssymm      ssymm_
00171    #define F77_ssyrk      ssyrk_
00172    #define F77_ssyr2k     ssyr2k_
00173    #define F77_strmm      strmm_
00174    #define F77_strsm      strsm_
00175    #define F77_dgemm      dgemm_
00176    #define F77_dsymm      dsymm_
00177    #define F77_dsyrk      dsyrk_
00178    #define F77_dsyr2k     dsyr2k_
00179    #define F77_dtrmm      dtrmm_
00180    #define F77_dtrsm      dtrsm_
00181    #define F77_cgemm      cgemm_
00182    #define F77_csymm      csymm_
00183    #define F77_csyrk      csyrk_
00184    #define F77_csyr2k     csyr2k_
00185    #define F77_ctrmm      ctrmm_
00186    #define F77_ctrsm      ctrsm_
00187    #define F77_zgemm      zgemm_
00188    #define F77_zsymm      zsymm_
00189    #define F77_zsyrk      zsyrk_
00190    #define F77_zsyr2k     zsyr2k_
00191    #define F77_ztrmm      ztrmm_
00192    #define F77_ztrsm      ztrsm_
00193 #elif defined(UPCASE)
00194 /*
00195  * Level 1 BLAS
00196  */
00197 #define F77_xerbla  XERBLA
00198    #define F77_srotg      SROTG
00199    #define F77_srotmg     SROTMG
00200    #define F77_srot       SROT
00201    #define F77_srotm      SROTM
00202    #define F77_drotg      DROTG
00203    #define F77_drotmg     DROTMG
00204    #define F77_drot       DROT
00205    #define F77_drotm      DROTM
00206    #define F77_sswap      SSWAP
00207    #define F77_scopy      SCOPY
00208    #define F77_saxpy      SAXPY
00209    #define F77_isamax_sub ISAMAXSUB
00210    #define F77_dswap      DSWAP
00211    #define F77_dcopy      DCOPY
00212    #define F77_daxpy      DAXPY
00213    #define F77_idamax_sub IDAMAXSUB
00214    #define F77_cswap      CSWAP
00215    #define F77_ccopy      CCOPY
00216    #define F77_caxpy      CAXPY
00217    #define F77_icamax_sub ICAMAXSUB
00218    #define F77_zswap      ZSWAP
00219    #define F77_zcopy      ZCOPY
00220    #define F77_zaxpy      ZAXPY
00221    #define F77_izamax_sub IZAMAXSUB
00222    #define F77_sdot_sub   SDOTSUB
00223    #define F77_ddot_sub   DDOTSUB
00224    #define F77_dsdot_sub   DSDOTSUB
00225    #define F77_sscal      SSCAL
00226    #define F77_dscal      DSCAL
00227    #define F77_cscal      CSCAL
00228    #define F77_zscal      ZSCAL
00229    #define F77_csscal      CSSCAL
00230    #define F77_zdscal      ZDSCAL
00231    #define F77_cdotu_sub  CDOTUSUB
00232    #define F77_cdotc_sub  CDOTCSUB
00233    #define F77_zdotu_sub  ZDOTUSUB
00234    #define F77_zdotc_sub  ZDOTCSUB
00235    #define F77_snrm2_sub  SNRM2SUB
00236    #define F77_sasum_sub  SASUMSUB
00237    #define F77_dnrm2_sub  DNRM2SUB
00238    #define F77_dasum_sub  DASUMSUB
00239    #define F77_scnrm2_sub  SCNRM2SUB
00240    #define F77_scasum_sub  SCASUMSUB
00241    #define F77_dznrm2_sub  DZNRM2SUB
00242    #define F77_dzasum_sub  DZASUMSUB
00243    #define F77_sdsdot_sub   SDSDOTSUB
00244 /*
00245  * Level 2 BLAS
00246  */
00247    #define F77_ssymv      SSYMV
00248    #define F77_ssbmv      SSBMV
00249    #define F77_sspmv      SSPMV
00250    #define F77_sger       SGER
00251    #define F77_ssyr       SSYR
00252    #define F77_sspr       SSPR
00253    #define F77_ssyr2      SSYR2
00254    #define F77_sspr2      SSPR2
00255    #define F77_dsymv      DSYMV
00256    #define F77_dsbmv      DSBMV
00257    #define F77_dspmv      DSPMV
00258    #define F77_dger       DGER
00259    #define F77_dsyr       DSYR
00260    #define F77_dspr       DSPR
00261    #define F77_dsyr2      DSYR2
00262    #define F77_dspr2      DSPR2
00263    #define F77_chemv      CHEMV
00264    #define F77_chbmv      CHBMV
00265    #define F77_chpmv      CHPMV
00266    #define F77_cgeru      CGERU
00267    #define F77_cgerc      CGERC
00268    #define F77_cher       CHER
00269    #define F77_chpr       CHPR
00270    #define F77_cher2      CHER2
00271    #define F77_chpr2      CHPR2
00272    #define F77_zhemv      ZHEMV
00273    #define F77_zhbmv      ZHBMV
00274    #define F77_zhpmv      ZHPMV
00275    #define F77_zgeru      ZGERU
00276    #define F77_zgerc      ZGERC
00277    #define F77_zher       ZHER
00278    #define F77_zhpr       ZHPR
00279    #define F77_zher2      ZHER2
00280    #define F77_zhpr2      ZHPR2
00281    #define F77_sgemv      SGEMV
00282    #define F77_sgbmv      SGBMV
00283    #define F77_strmv      STRMV
00284    #define F77_stbmv      STBMV
00285    #define F77_stpmv      STPMV
00286    #define F77_strsv      STRSV
00287    #define F77_stbsv      STBSV
00288    #define F77_stpsv      STPSV
00289    #define F77_dgemv      DGEMV
00290    #define F77_dgbmv      DGBMV
00291    #define F77_dtrmv      DTRMV
00292    #define F77_dtbmv      DTBMV
00293    #define F77_dtpmv      DTPMV
00294    #define F77_dtrsv      DTRSV
00295    #define F77_dtbsv      DTBSV
00296    #define F77_dtpsv      DTPSV
00297    #define F77_cgemv      CGEMV
00298    #define F77_cgbmv      CGBMV
00299    #define F77_ctrmv      CTRMV
00300    #define F77_ctbmv      CTBMV
00301    #define F77_ctpmv      CTPMV
00302    #define F77_ctrsv      CTRSV
00303    #define F77_ctbsv      CTBSV
00304    #define F77_ctpsv      CTPSV
00305    #define F77_zgemv      ZGEMV
00306    #define F77_zgbmv      ZGBMV
00307    #define F77_ztrmv      ZTRMV
00308    #define F77_ztbmv      ZTBMV
00309    #define F77_ztpmv      ZTPMV
00310    #define F77_ztrsv      ZTRSV
00311    #define F77_ztbsv      ZTBSV
00312    #define F77_ztpsv      ZTPSV
00313 /*
00314  * Level 3 BLAS
00315  */
00316    #define F77_chemm      CHEMM
00317    #define F77_cherk      CHERK
00318    #define F77_cher2k     CHER2K
00319    #define F77_zhemm      ZHEMM
00320    #define F77_zherk      ZHERK
00321    #define F77_zher2k     ZHER2K
00322    #define F77_sgemm      SGEMM
00323    #define F77_ssymm      SSYMM
00324    #define F77_ssyrk      SSYRK
00325    #define F77_ssyr2k     SSYR2K
00326    #define F77_strmm      STRMM
00327    #define F77_strsm      STRSM
00328    #define F77_dgemm      DGEMM
00329    #define F77_dsymm      DSYMM
00330    #define F77_dsyrk      DSYRK
00331    #define F77_dsyr2k     DSYR2K
00332    #define F77_dtrmm      DTRMM
00333    #define F77_dtrsm      DTRSM
00334    #define F77_cgemm      CGEMM
00335    #define F77_csymm      CSYMM
00336    #define F77_csyrk      CSYRK
00337    #define F77_csyr2k     CSYR2K
00338    #define F77_ctrmm      CTRMM
00339    #define F77_ctrsm      CTRSM
00340    #define F77_zgemm      ZGEMM
00341    #define F77_zsymm      ZSYMM
00342    #define F77_zsyrk      ZSYRK
00343    #define F77_zsyr2k     ZSYR2K
00344    #define F77_ztrmm      ZTRMM
00345    #define F77_ztrsm      ZTRSM
00346 #elif defined(NOCHANGE)
00347 /*
00348  * Level 1 BLAS
00349  */
00350 #define F77_xerbla  xerbla
00351    #define F77_srotg      srotg
00352    #define F77_srotmg     srotmg
00353    #define F77_srot       srot
00354    #define F77_srotm      srotm
00355    #define F77_drotg      drotg
00356    #define F77_drotmg     drotmg
00357    #define F77_drot       drot
00358    #define F77_drotm      drotm
00359    #define F77_sswap      sswap
00360    #define F77_scopy      scopy
00361    #define F77_saxpy      saxpy
00362    #define F77_isamax_sub isamaxsub
00363    #define F77_dswap      dswap
00364    #define F77_dcopy      dcopy
00365    #define F77_daxpy      daxpy
00366    #define F77_idamax_sub idamaxsub
00367    #define F77_cswap      cswap
00368    #define F77_ccopy      ccopy
00369    #define F77_caxpy      caxpy
00370    #define F77_icamax_sub icamaxsub
00371    #define F77_zswap      zswap
00372    #define F77_zcopy      zcopy
00373    #define F77_zaxpy      zaxpy
00374    #define F77_izamax_sub izamaxsub
00375    #define F77_sdot_sub   sdotsub
00376    #define F77_ddot_sub   ddotsub
00377    #define F77_dsdot_sub   dsdotsub
00378    #define F77_sscal      sscal
00379    #define F77_dscal      dscal
00380    #define F77_cscal      cscal
00381    #define F77_zscal      zscal
00382    #define F77_csscal      csscal
00383    #define F77_zdscal      zdscal
00384    #define F77_cdotu_sub  cdotusub
00385    #define F77_cdotc_sub  cdotcsub
00386    #define F77_zdotu_sub  zdotusub
00387    #define F77_zdotc_sub  zdotcsub
00388    #define F77_snrm2_sub  snrm2sub
00389    #define F77_sasum_sub  sasumsub
00390    #define F77_dnrm2_sub  dnrm2sub
00391    #define F77_dasum_sub  dasumsub
00392    #define F77_scnrm2_sub  scnrm2sub
00393    #define F77_scasum_sub  scasumsub
00394    #define F77_dznrm2_sub  dznrm2sub
00395    #define F77_dzasum_sub  dzasumsub
00396    #define F77_sdsdot_sub   sdsdotsub
00397 /*
00398  * Level 2 BLAS
00399  */
00400    #define F77_ssymv      ssymv
00401    #define F77_ssbmv      ssbmv
00402    #define F77_sspmv      sspmv
00403    #define F77_sger       sger
00404    #define F77_ssyr       ssyr
00405    #define F77_sspr       sspr
00406    #define F77_ssyr2      ssyr2
00407    #define F77_sspr2      sspr2
00408    #define F77_dsymv      dsymv
00409    #define F77_dsbmv      dsbmv
00410    #define F77_dspmv      dspmv
00411    #define F77_dger       dger
00412    #define F77_dsyr       dsyr
00413    #define F77_dspr       dspr
00414    #define F77_dsyr2      dsyr2
00415    #define F77_dspr2      dspr2
00416    #define F77_chemv      chemv
00417    #define F77_chbmv      chbmv
00418    #define F77_chpmv      chpmv
00419    #define F77_cgeru      cgeru
00420    #define F77_cgerc      cgerc
00421    #define F77_cher       cher
00422    #define F77_chpr       chpr
00423    #define F77_cher2      cher2
00424    #define F77_chpr2      chpr2
00425    #define F77_zhemv      zhemv
00426    #define F77_zhbmv      zhbmv
00427    #define F77_zhpmv      zhpmv
00428    #define F77_zgeru      zgeru
00429    #define F77_zgerc      zgerc
00430    #define F77_zher       zher
00431    #define F77_zhpr       zhpr
00432    #define F77_zher2      zher2
00433    #define F77_zhpr2      zhpr2
00434    #define F77_sgemv      sgemv
00435    #define F77_sgbmv      sgbmv
00436    #define F77_strmv      strmv
00437    #define F77_stbmv      stbmv
00438    #define F77_stpmv      stpmv
00439    #define F77_strsv      strsv
00440    #define F77_stbsv      stbsv
00441    #define F77_stpsv      stpsv
00442    #define F77_dgemv      dgemv
00443    #define F77_dgbmv      dgbmv
00444    #define F77_dtrmv      dtrmv
00445    #define F77_dtbmv      dtbmv
00446    #define F77_dtpmv      dtpmv
00447    #define F77_dtrsv      dtrsv
00448    #define F77_dtbsv      dtbsv
00449    #define F77_dtpsv      dtpsv
00450    #define F77_cgemv      cgemv
00451    #define F77_cgbmv      cgbmv
00452    #define F77_ctrmv      ctrmv
00453    #define F77_ctbmv      ctbmv
00454    #define F77_ctpmv      ctpmv
00455    #define F77_ctrsv      ctrsv
00456    #define F77_ctbsv      ctbsv
00457    #define F77_ctpsv      ctpsv
00458    #define F77_zgemv      zgemv
00459    #define F77_zgbmv      zgbmv
00460    #define F77_ztrmv      ztrmv
00461    #define F77_ztbmv      ztbmv
00462    #define F77_ztpmv      ztpmv
00463    #define F77_ztrsv      ztrsv
00464    #define F77_ztbsv      ztbsv
00465    #define F77_ztpsv      ztpsv
00466 /*
00467  * Level 3 BLAS
00468  */
00469    #define F77_chemm      chemm
00470    #define F77_cherk      cherk
00471    #define F77_cher2k     cher2k
00472    #define F77_zhemm      zhemm
00473    #define F77_zherk      zherk
00474    #define F77_zher2k     zher2k
00475    #define F77_sgemm      sgemm
00476    #define F77_ssymm      ssymm
00477    #define F77_ssyrk      ssyrk
00478    #define F77_ssyr2k     ssyr2k
00479    #define F77_strmm      strmm
00480    #define F77_strsm      strsm
00481    #define F77_dgemm      dgemm
00482    #define F77_dsymm      dsymm
00483    #define F77_dsyrk      dsyrk
00484    #define F77_dsyr2k     dsyr2k
00485    #define F77_dtrmm      dtrmm
00486    #define F77_dtrsm      dtrsm
00487    #define F77_cgemm      cgemm
00488    #define F77_csymm      csymm
00489    #define F77_csyrk      csyrk
00490    #define F77_csyr2k     csyr2k
00491    #define F77_ctrmm      ctrmm
00492    #define F77_ctrsm      ctrsm
00493    #define F77_zgemm      zgemm
00494    #define F77_zsymm      zsymm
00495    #define F77_zsyrk      zsyrk
00496    #define F77_zsyr2k     zsyr2k
00497    #define F77_ztrmm      ztrmm
00498    #define F77_ztrsm      ztrsm
00499 #endif
00500 
00501 #ifdef __cplusplus
00502 extern "C" {
00503 #endif
00504 
00505    void F77_xerbla(FCHAR, void *);
00506 /*
00507  * Level 1 Fortran Prototypes
00508  */
00509 
00510 /* Single Precision */
00511 
00512    void F77_srot(FINT, float *, FINT, float *, FINT, const float *, const float *);
00513    void F77_srotg(float *,float *,float *,float *);    
00514    void F77_srotm( FINT, float *, FINT, float *, FINT, const float *);
00515    void F77_srotmg(float *,float *,float *,const float *, float *);
00516    void F77_sswap( FINT, float *, FINT, float *, FINT);
00517    void F77_scopy( FINT, const float *, FINT, float *, FINT);
00518    void F77_saxpy( FINT, const float *, const float *, FINT, float *, FINT);
00519    void F77_sdot_sub(FINT, const float *, FINT, const float *, FINT, float *);
00520    void F77_sdsdot_sub( FINT, const float *, const float *, FINT, const float *, FINT, float *);
00521    void F77_sscal( FINT, const float *, float *, FINT);
00522    void F77_snrm2_sub( FINT, const float *, FINT, float *);
00523    void F77_sasum_sub( FINT, const float *, FINT, float *);
00524    void F77_isamax_sub( FINT, const float * , FINT, FINT2);
00525 
00526 /* Double Precision */
00527 
00528    void F77_drot(FINT, double *, FINT, double *, FINT, const double *, const double *);
00529    void F77_drotg(double *,double *,double *,double *);    
00530    void F77_drotm( FINT, double *, FINT, double *, FINT, const double *);
00531    void F77_drotmg(double *,double *,double *,const double *, double *);
00532    void F77_dswap( FINT, double *, FINT, double *, FINT);
00533    void F77_dcopy( FINT, const double *, FINT, double *, FINT);
00534    void F77_daxpy( FINT, const double *, const double *, FINT, double *, FINT);
00535    void F77_dswap( FINT, double *, FINT, double *, FINT);
00536    void F77_dsdot_sub(FINT, const float *, FINT, const float *, FINT, double *);
00537    void F77_ddot_sub( FINT, const double *, FINT, const double *, FINT, double *);
00538    void F77_dscal( FINT, const double *, double *, FINT);
00539    void F77_dnrm2_sub( FINT, const double *, FINT, double *);
00540    void F77_dasum_sub( FINT, const double *, FINT, double *);
00541    void F77_idamax_sub( FINT, const double * , FINT, FINT2);
00542 
00543 /* Single Complex Precision */
00544 
00545    void F77_cswap( FINT, void *, FINT, void *, FINT);
00546    void F77_ccopy( FINT, const void *, FINT, void *, FINT);
00547    void F77_caxpy( FINT, const void *, const void *, FINT, void *, FINT);
00548    void F77_cswap( FINT, void *, FINT, void *, FINT);
00549    void F77_cdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
00550    void F77_cdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
00551    void F77_cscal( FINT, const void *, void *, FINT);
00552    void F77_icamax_sub( FINT, const void *, FINT, FINT2);
00553    void F77_csscal( FINT, const float *, void *, FINT);
00554    void F77_scnrm2_sub( FINT, const void *, FINT, float *);
00555    void F77_scasum_sub( FINT, const void *, FINT, float *);
00556 
00557 /* Double Complex Precision */
00558 
00559    void F77_zswap( FINT, void *, FINT, void *, FINT);
00560    void F77_zcopy( FINT, const void *, FINT, void *, FINT);
00561    void F77_zaxpy( FINT, const void *, const void *, FINT, void *, FINT);
00562    void F77_zswap( FINT, void *, FINT, void *, FINT);
00563    void F77_zdotc_sub( FINT, const void *, FINT, const void *, FINT, void *);
00564    void F77_zdotu_sub( FINT, const void *, FINT, const void *, FINT, void *);
00565    void F77_zdscal( FINT, const double *, void *, FINT);
00566    void F77_zscal( FINT, const void *, void *, FINT);
00567    void F77_dznrm2_sub( FINT, const void *, FINT, double *);
00568    void F77_dzasum_sub( FINT, const void *, FINT, double *);
00569    void F77_izamax_sub( FINT, const void *, FINT, FINT2);
00570 
00571 /*
00572  * Level 2 Fortran Prototypes
00573  */
00574 
00575 /* Single Precision */
00576 
00577    void F77_sgemv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00578    void F77_sgbmv(FCHAR, FINT, FINT, FINT, FINT, const float *,  const float *, FINT, const float *, FINT, const float *, float *, FINT);
00579    void F77_ssymv(FCHAR, FINT, const float *, const float *, FINT, const float *,  FINT, const float *, float *, FINT);
00580    void F77_ssbmv(FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00581    void F77_sspmv(FCHAR, FINT, const float *, const float *, const float *, FINT, const float *, float *, FINT);
00582    void F77_strmv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
00583    void F77_stbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
00584    void F77_strsv( FCHAR, FCHAR, FCHAR, FINT, const float *, FINT, float *, FINT);
00585    void F77_stbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, FINT, float *, FINT);
00586    void F77_stpmv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
00587    void F77_stpsv( FCHAR, FCHAR, FCHAR, FINT, const float *, float *, FINT);
00588    void F77_sger( FINT, FINT, const float *, const float *, FINT, const float *, FINT, float *, FINT);
00589    void F77_ssyr(FCHAR, FINT, const float *, const float *, FINT, float *, FINT);
00590    void F77_sspr(FCHAR, FINT, const float *, const float *, FINT, float *); 
00591    void F77_sspr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT,  float *); 
00592    void F77_ssyr2(FCHAR, FINT, const float *, const float *, FINT, const float *, FINT,  float *, FINT);
00593 
00594 /* Double Precision */
00595 
00596    void F77_dgemv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00597    void F77_dgbmv(FCHAR, FINT, FINT, FINT, FINT, const double *,  const double *, FINT, const double *, FINT, const double *, double *, FINT);
00598    void F77_dsymv(FCHAR, FINT, const double *, const double *, FINT, const double *,  FINT, const double *, double *, FINT);
00599    void F77_dsbmv(FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00600    void F77_dspmv(FCHAR, FINT, const double *, const double *, const double *, FINT, const double *, double *, FINT);
00601    void F77_dtrmv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
00602    void F77_dtbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
00603    void F77_dtrsv( FCHAR, FCHAR, FCHAR, FINT, const double *, FINT, double *, FINT);
00604    void F77_dtbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, FINT, double *, FINT);
00605    void F77_dtpmv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
00606    void F77_dtpsv( FCHAR, FCHAR, FCHAR, FINT, const double *, double *, FINT);
00607    void F77_dger( FINT, FINT, const double *, const double *, FINT, const double *, FINT, double *, FINT);
00608    void F77_dsyr(FCHAR, FINT, const double *, const double *, FINT, double *, FINT);
00609    void F77_dspr(FCHAR, FINT, const double *, const double *, FINT, double *); 
00610    void F77_dspr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT,  double *); 
00611    void F77_dsyr2(FCHAR, FINT, const double *, const double *, FINT, const double *, FINT,  double *, FINT);
00612 
00613 /* Single Complex Precision */
00614 
00615    void F77_cgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00616    void F77_cgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *,  const void *, FINT, const void *, FINT, const void *, void *, FINT);
00617    void F77_chemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00618    void F77_chbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00619    void F77_chpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
00620    void F77_ctrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00621    void F77_ctbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00622    void F77_ctpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
00623    void F77_ctrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00624    void F77_ctbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00625    void F77_ctpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
00626    void F77_cgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00627    void F77_cgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *,  FINT);
00628    void F77_cher(FCHAR, FINT, const float *, const void *, FINT, void *, FINT);
00629    void F77_cher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00630    void F77_chpr(FCHAR, FINT, const float *, const void *, FINT, void *);
00631    void F77_chpr2(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *);
00632 
00633 /* Double Complex Precision */
00634 
00635    void F77_zgemv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00636    void F77_zgbmv(FCHAR, FINT, FINT, FINT, FINT, const void *,  const void *, FINT, const void *, FINT, const void *, void *, FINT);
00637    void F77_zhemv(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00638    void F77_zhbmv(FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT);
00639    void F77_zhpmv(FCHAR, FINT, const void *, const void *, const void *, FINT, const void *, void *, FINT);
00640    void F77_ztrmv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00641    void F77_ztbmv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00642    void F77_ztpmv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *, FINT);
00643    void F77_ztrsv( FCHAR, FCHAR, FCHAR, FINT, const void *, FINT, void *, FINT);
00644    void F77_ztbsv( FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, FINT, void *, FINT);
00645    void F77_ztpsv( FCHAR, FCHAR, FCHAR, FINT, const void *, void *,FINT);
00646    void F77_zgerc( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00647    void F77_zgeru( FINT, FINT, const void *, const void *, FINT, const void *, FINT, void *,  FINT);
00648    void F77_zher(FCHAR, FINT, const double *, const void *, FINT, void *, FINT);
00649    void F77_zher2(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *, FINT);
00650    void F77_zhpr(FCHAR, FINT, const double *, const void *, FINT, void *);
00651    void F77_zhpr2(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *);
00652 
00653 /*
00654  * Level 3 Fortran Prototypes
00655  */
00656 
00657 /* Single Precision */
00658 
00659    void F77_sgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00660    void F77_ssymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00661    void F77_ssyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
00662    void F77_ssyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00663    void F77_strmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00664    void F77_strsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00665 
00666 /* Double Precision */
00667 
00668    void F77_dgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00669    void F77_dsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00670    void F77_dsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
00671    void F77_dsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00672    void F77_dtrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00673    void F77_dtrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00674 
00675 /* Single Complex Precision */
00676 
00677    void F77_cgemm(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00678    void F77_csymm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00679    void F77_chemm(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00680    void F77_csyrk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
00681    void F77_cherk(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT);
00682    void F77_csyr2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00683    void F77_cher2k(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT);
00684    void F77_ctrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00685    void F77_ctrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT);
00686 
00687 /* Double Complex Precision */
00688 
00689    void F77_zgemm(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00690    void F77_zsymm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00691    void F77_zhemm(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00692    void F77_zsyrk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
00693    void F77_zherk(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT);
00694    void F77_zsyr2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00695    void F77_zher2k(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT);
00696    void F77_ztrmm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00697    void F77_ztrsm(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT);
00698 
00699 #ifdef __cplusplus
00700 }
00701 #endif
00702 
00703 #endif /*  CBLAS_F77_H */