#ifndef ATLAS_F77_LVLS #define ATLAS_F77_LVLS #include "atlas_f77.h" #if defined( StringSunStyle ) #define F77_CHAR_DECL F77_CHAR /* input character*1 */ #define F77_1_CHAR , F77_INTEGER #define F77_2_CHAR F77_1_CHAR F77_1_CHAR #define F77_3_CHAR F77_2_CHAR F77_1_CHAR #define F77_4_CHAR F77_3_CHAR F77_1_CHAR #elif defined( StringCrayStyle ) #define F77_CHAR_DECL F77_CHAR /* input character*1 */ #elif defined( StringStructVal ) #define F77_CHAR_DECL F77_CHAR /* input character*1 */ #elif defined( StringStructPtr ) #define F77_CHAR_DECL F77_CHAR * /* input character*1 */ #endif #ifndef F77_1_CHAR #define F77_1_CHAR #define F77_2_CHAR #define F77_3_CHAR #define F77_4_CHAR #endif #ifndef F77_CHAR_DECL #define F77_CHAR_DECL F77_CHAR * /* input character*1 */ #endif #define F77_INT_DECL const F77_INTEGER * /* input integer */ #ifdef TREAL #define F77_SIN_DECL const TYPE * /* input scalar */ #define F77_SINOUT_DECL TYPE * /* input/output scalar */ #define F77_RIN_DECL const TYPE * /* input real scalar */ #define F77_RINOUT_DECL TYPE * /* input/output real scalar */ #else #define F77_SIN_DECL const TYPE * /* input scalar */ #define F77_SINOUT_DECL TYPE * /* input/output scalar */ #define F77_RIN_DECL const TYPE * /* input real scalar */ #define F77_RINOUT_DECL TYPE * /* input/output real scalar */ #endif #define F77_VIN_DECL const TYPE * /* input vector */ #define F77_VINOUT_DECL TYPE * /* input/output matrix */ #define F77_MIN_DECL const TYPE * /* input matrix */ #define F77_MINOUT_DECL TYPE * /* input/output matrix */ #if defined( CRAY ) #define F77_VOID_FUN extern fortran void /* subroutine */ #define F77_INT_FUN extern fortran int /* integer function */ #define F77_TYPE_FUN extern fortran TYPE /* real function */ #define F77_DBLE_FUN extern fortran double /* dble function */ #else #define F77_VOID_FUN extern void /* subroutine */ #define F77_INT_FUN extern int /* integer function */ #define F77_TYPE_FUN extern TYPE /* real function */ #define F77_DBLE_FUN extern double /* dble function */ #endif #if defined( NoChange ) /* * These defines set up the naming scheme required to have a FORTRAN * routine called by a C routine with the following FORTRAN to C inter- * face: * * FORTRAN DECLARATION C CALL * SUBROUTINE DGEMM(...) dgemm(...) */ #if defined( SREAL ) #define F77rotg srotg #define F77rotmg srotmg #define F77nrm2 swrapnrm2 #define F77asum swrapasum #define F77amax isamax #define F77scal sscal #define F77axpy saxpy #define F77axpby fatlas_saxpby #define F77set fatlas_sset #define F77copy scopy #define F77swap sswap #define F77rot srot #define F77rotm srotm #define F77dot swrapdot #define F77dsdot dswrapdot #define F77sdsdot sdswrapdot #define F77gemv sgemv #define F77gbmv sgbmv #define F77sbmv ssbmv #define F77spmv sspmv #define F77symv ssymv #define F77tbmv stbmv #define F77tpmv stpmv #define F77trmv strmv #define F77tbsv stbsv #define F77tpsv stpsv #define F77trsv strsv #define F77ger sger #define F77spr sspr #define F77syr ssyr #define F77spr2 sspr2 #define F77syr2 ssyr2 #define F77gemm sgemm #define F77symm ssymm #define F77syrk ssyrk #define F77syr2k ssyr2k #define F77trmm strmm #define F77trsm strsm #elif defined( DREAL ) #define F77rotg drotg #define F77rotmg drotmg #define F77nrm2 dwrapnrm2 #define F77asum dwrapasum #define F77amax idamax #define F77scal dscal #define F77axpy daxpy #define F77axpby fatlas_daxpby #define F77set fatlas_dset #define F77copy dcopy #define F77swap dswap #define F77rot drot #define F77rotm drotm #define F77dot dwrapdot #define F77gemv dgemv #define F77gbmv dgbmv #define F77sbmv dsbmv #define F77spmv dspmv #define F77symv dsymv #define F77tbmv dtbmv #define F77tpmv dtpmv #define F77trmv dtrmv #define F77tbsv dtbsv #define F77tpsv dtpsv #define F77trsv dtrsv #define F77ger dger #define F77spr dspr #define F77syr dsyr #define F77spr2 dspr2 #define F77syr2 dsyr2 #define F77gemm dgemm #define F77symm dsymm #define F77syrk dsyrk #define F77syr2k dsyr2k #define F77trmm dtrmm #define F77trsm dtrsm #elif defined( SCPLX ) #define F77rotg crotg #define F77nrm2 scwrapnrm2 #define F77asum scwrapasum #define F77amax icamax #define F77scal cscal #define F77rscal csscal #define F77axpy caxpy #define F77axpby fatlas_caxpby #define F77set fatlas_cset #define F77copy ccopy #define F77swap cswap #define F77rot csrot #define F77dotc cwrapdotc #define F77dotu cwrapdotu #define F77gbmv cgbmv #define F77gemv cgemv #define F77hbmv chbmv #define F77hpmv chpmv #define F77hemv chemv #define F77tbmv ctbmv #define F77tpmv ctpmv #define F77trmv ctrmv #define F77tbsv ctbsv #define F77tpsv ctpsv #define F77trsv ctrsv #define F77gerc cgerc #define F77geru cgeru #define F77hpr chpr #define F77her cher #define F77hpr2 chpr2 #define F77her2 cher2 #define F77gemm cgemm #define F77hemm chemm #define F77herk cherk #define F77her2k cher2k #define F77symm csymm #define F77syrk csyrk #define F77syr2k csyr2k #define F77trmm ctrmm #define F77trsm ctrsm #elif defined( DCPLX ) #define F77rotg zrotg #define F77nrm2 dzwrapnrm2 #define F77asum dzwrapasum #define F77amax izamax #define F77scal zscal #define F77rscal zdscal #define F77axpy zaxpy #define F77axpby fatlas_zaxpby #define F77set fatlas_zset #define F77copy zcopy #define F77swap zswap #define F77rot zdrot #define F77dotc zwrapdotc #define F77dotu zwrapdotu #define F77gbmv zgbmv #define F77gemv zgemv #define F77hbmv zhbmv #define F77hpmv zhpmv #define F77hemv zhemv #define F77tbmv ztbmv #define F77tpmv ztpmv #define F77trmv ztrmv #define F77tbsv ztbsv #define F77tpsv ztpsv #define F77trsv ztrsv #define F77gerc zgerc #define F77geru zgeru #define F77hpr zhpr #define F77her zher #define F77hpr2 zhpr2 #define F77her2 zher2 #define F77gemm zgemm #define F77hemm zhemm #define F77herk zherk #define F77her2k zher2k #define F77symm zsymm #define F77syrk zsyrk #define F77syr2k zsyr2k #define F77trmm ztrmm #define F77trsm ztrsm #endif #elif defined( UpCase ) /* * These defines set up the naming scheme required to have a FORTRAN * routine called by a C routine with the following FORTRAN to C inter- * face: * * FORTRAN DECLARATION C CALL * SUBROUTINE DGEMM(...) DGEMM(...) */ #if defined( SREAL ) #define F77rotg SROTG #define F77rotmg SROTMG #define F77nrm2 SWRAPNRM2 #define F77asum SWRAPASUM #define F77amax ISAMAX #define F77scal SSCAL #define F77axpy SAXPY #define F77axpby FATLAS_SAXPBY #define F77set FATLAS_SSET #define F77copy SCOPY #define F77swap SSWAP #define F77rot SROT #define F77rotm SROTM #define F77dot SWRAPDOT #define F77dsdot DSWRAPDOT #define F77sdsdot SDSWRAPDOT #define F77gemv SGEMV #define F77gbmv SGBMV #define F77sbmv SSBMV #define F77spmv SSPMV #define F77symv SSYMV #define F77tbmv STBMV #define F77tpmv STPMV #define F77trmv STRMV #define F77tbsv STBSV #define F77tpsv STPSV #define F77trsv STRSV #define F77ger SGER #define F77spr SSPR #define F77syr SSYR #define F77spr2 SSPR2 #define F77syr2 SSYR2 #define F77gemm SGEMM #define F77symm SSYMM #define F77syrk SSYRK #define F77syr2k SSYR2K #define F77trmm STRMM #define F77trsm STRSM #elif defined( DREAL ) #define F77rotg DROTG #define F77rotmg DROTMG #define F77nrm2 DWRAPNRM2 #define F77asum DWRAPASUM #define F77amax IDAMAX #define F77scal DSCAL #define F77axpy DAXPY #define F77axpby FATLAS_DAXPBY #define F77set FATLAS_DSET #define F77copy DCOPY #define F77swap DSWAP #define F77rot DROT #define F77rotm DROTM #define F77dot DWRAPDOT #define F77gemv DGEMV #define F77gbmv DGBMV #define F77sbmv DSBMV #define F77spmv DSPMV #define F77symv DSYMV #define F77tbmv DTBMV #define F77tpmv DTPMV #define F77trmv DTRMV #define F77tbsv DTBSV #define F77tpsv DTPSV #define F77trsv DTRSV #define F77ger DGER #define F77spr DSPR #define F77syr DSYR #define F77spr2 DSPR2 #define F77syr2 DSYR2 #define F77gemm DGEMM #define F77symm DSYMM #define F77syrk DSYRK #define F77syr2k DSYR2K #define F77trmm DTRMM #define F77trsm DTRSM #elif defined( SCPLX ) #define F77rotg CROTG #define F77nrm2 SCWRAPNRM2 #define F77asum SCWRAPASUM #define F77amax ICAMAX #define F77scal CSCAL #define F77rscal CSSCAL #define F77axpy CAXPY #define F77axpby FATLAS_CAXPBY #define F77set FATLAS_CSET #define F77copy CCOPY #define F77swap CSWAP #define F77rot CSROT #define F77dotc CWRAPDOTC #define F77dotu CWRAPDOTU #define F77gbmv CGBMV #define F77gemv CGEMV #define F77hbmv CHBMV #define F77hpmv CHPMV #define F77hemv CHEMV #define F77tbmv CTBMV #define F77tpmv CTPMV #define F77trmv CTRMV #define F77tbsv CTBSV #define F77tpsv CTPSV #define F77trsv CTRSV #define F77gerc CGERC #define F77geru CGERU #define F77hpr CHPR #define F77her CHER #define F77hpr2 CHPR2 #define F77her2 CHER2 #define F77gemm CGEMM #define F77hemm CHEMM #define F77herk CHERK #define F77her2k CHER2K #define F77symm CSYMM #define F77syrk CSYRK #define F77syr2k CSYR2K #define F77trmm CTRMM #define F77trsm CTRSM #elif defined( DCPLX ) #define F77rotg ZROTG #define F77nrm2 DZWRAPNRM2 #define F77asum DZWRAPASUM #define F77amax IZAMAX #define F77scal ZSCAL #define F77rscal ZDSCAL #define F77axpy ZAXPY #define F77axpby FATLAS_ZAXPBY #define F77set FATLAS_ZSET #define F77copy ZCOPY #define F77swap ZSWAP #define F77rot ZDROT #define F77dotc ZWRAPDOTC #define F77dotu ZWRAPDOTU #define F77gbmv ZGBMV #define F77gemv ZGEMV #define F77hbmv ZHBMV #define F77hpmv ZHPMV #define F77hemv ZHEMV #define F77tbmv ZTBMV #define F77tpmv ZTPMV #define F77trmv ZTRMV #define F77tbsv ZTBSV #define F77tpsv ZTPSV #define F77trsv ZTRSV #define F77gerc ZGERC #define F77geru ZGERU #define F77hpr ZHPR #define F77her ZHER #define F77hpr2 ZHPR2 #define F77her2 ZHER2 #define F77gemm ZGEMM #define F77hemm ZHEMM #define F77herk ZHERK #define F77her2k ZHER2K #define F77symm ZSYMM #define F77syrk ZSYRK #define F77syr2k ZSYR2K #define F77trmm ZTRMM #define F77trsm ZTRSM #endif #elif defined( Add_ ) || defined( Add__ ) /* * These defines set up the naming scheme required to have a FORTRAN * routine called by a C routine with the following FORTRAN to C inter- * face: * * FORTRAN DECLARATION C CALL * SUBROUTINE DGEMM(...) dgemm_(...) */ #if defined( SREAL ) #define F77rotg srotg_ #define F77rotmg srotmg_ #define F77nrm2 swrapnrm2_ #define F77asum swrapasum_ #define F77amax isamax_ #define F77scal sscal_ #define F77axpy saxpy_ #ifdef Add_ #define F77axpby fatlas_saxpby_ #define F77set fatlas_sset_ #else #define F77axpby fatlas_saxpby__ #define F77set fatlas_sset__ #endif #define F77copy scopy_ #define F77swap sswap_ #define F77rot srot_ #define F77rotm srotm_ #define F77dot swrapdot_ #define F77dsdot dswrapdot_ #define F77sdsdot sdswrapdot_ #define F77gemv sgemv_ #define F77gbmv sgbmv_ #define F77sbmv ssbmv_ #define F77spmv sspmv_ #define F77symv ssymv_ #define F77tbmv stbmv_ #define F77tpmv stpmv_ #define F77trmv strmv_ #define F77tbsv stbsv_ #define F77tpsv stpsv_ #define F77trsv strsv_ #define F77ger sger_ #define F77spr sspr_ #define F77syr ssyr_ #define F77spr2 sspr2_ #define F77syr2 ssyr2_ #define F77gemm sgemm_ #define F77symm ssymm_ #define F77syrk ssyrk_ #define F77syr2k ssyr2k_ #define F77trmm strmm_ #define F77trsm strsm_ #elif defined( DREAL ) #define F77rotg drotg_ #define F77rotmg drotmg_ #define F77nrm2 dwrapnrm2_ #define F77asum dwrapasum_ #define F77amax idamax_ #define F77scal dscal_ #define F77axpy daxpy_ #ifdef Add_ #define F77axpby fatlas_daxpby_ #define F77set fatlas_dset_ #else #define F77axpby fatlas_daxpby__ #define F77set fatlas_dset__ #endif #define F77copy dcopy_ #define F77swap dswap_ #define F77rot drot_ #define F77rotm drotm_ #define F77dot dwrapdot_ #define F77gemv dgemv_ #define F77gbmv dgbmv_ #define F77sbmv dsbmv_ #define F77spmv dspmv_ #define F77symv dsymv_ #define F77tbmv dtbmv_ #define F77tpmv dtpmv_ #define F77trmv dtrmv_ #define F77tbsv dtbsv_ #define F77tpsv dtpsv_ #define F77trsv dtrsv_ #define F77ger dger_ #define F77spr dspr_ #define F77syr dsyr_ #define F77spr2 dspr2_ #define F77syr2 dsyr2_ #define F77gemm dgemm_ #define F77symm dsymm_ #define F77syrk dsyrk_ #define F77syr2k dsyr2k_ #define F77trmm dtrmm_ #define F77trsm dtrsm_ #elif defined( SCPLX ) #define F77rotg crotg_ #define F77nrm2 scwrapnrm2_ #define F77asum scwrapasum_ #define F77amax icamax_ #define F77scal cscal_ #define F77rscal csscal_ #define F77axpy caxpy_ #ifdef Add_ #define F77axpby fatlas_caxpby_ #define F77set fatlas_cset_ #else #define F77axpby fatlas_caxpby__ #define F77set fatlas_cset__ #endif #define F77copy ccopy_ #define F77swap cswap_ #define F77rot csrot_ #define F77dotc cwrapdotc_ #define F77dotu cwrapdotu_ #define F77gbmv cgbmv_ #define F77gemv cgemv_ #define F77hbmv chbmv_ #define F77hpmv chpmv_ #define F77hemv chemv_ #define F77tbmv ctbmv_ #define F77tpmv ctpmv_ #define F77trmv ctrmv_ #define F77tbsv ctbsv_ #define F77tpsv ctpsv_ #define F77trsv ctrsv_ #define F77gerc cgerc_ #define F77geru cgeru_ #define F77hpr chpr_ #define F77her cher_ #define F77hpr2 chpr2_ #define F77her2 cher2_ #define F77gemm cgemm_ #define F77hemm chemm_ #define F77herk cherk_ #define F77her2k cher2k_ #define F77symm csymm_ #define F77syrk csyrk_ #define F77syr2k csyr2k_ #define F77trmm ctrmm_ #define F77trsm ctrsm_ #elif defined( DCPLX ) #define F77rotg zrotg_ #define F77nrm2 dzwrapnrm2_ #define F77asum dzwrapasum_ #define F77amax izamax_ #define F77scal zscal_ #define F77rscal zdscal_ #define F77axpy zaxpy_ #ifdef Add_ #define F77axpby fatlas_zaxpby_ #define F77set fatlas_zset_ #else #define F77axpby fatlas_zaxpby__ #define F77set fatlas_zset__ #endif #define F77copy zcopy_ #define F77swap zswap_ #define F77rot zdrot_ #define F77dotc zwrapdotc_ #define F77dotu zwrapdotu_ #define F77gbmv zgbmv_ #define F77gemv zgemv_ #define F77hbmv zhbmv_ #define F77hpmv zhpmv_ #define F77hemv zhemv_ #define F77tbmv ztbmv_ #define F77tpmv ztpmv_ #define F77trmv ztrmv_ #define F77tbsv ztbsv_ #define F77tpsv ztpsv_ #define F77trsv ztrsv_ #define F77gerc zgerc_ #define F77geru zgeru_ #define F77hpr zhpr_ #define F77her zher_ #define F77hpr2 zhpr2_ #define F77her2 zher2_ #define F77gemm zgemm_ #define F77hemm zhemm_ #define F77herk zherk_ #define F77her2k zher2k_ #define F77symm zsymm_ #define F77syrk zsyrk_ #define F77syr2k zsyr2k_ #define F77trmm ztrmm_ #define F77trsm ztrsm_ #endif #endif #ifdef TREAL F77_VOID_FUN F77rotg ( F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL ); F77_VOID_FUN F77rotmg ( F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL, F77_SIN_DECL, F77_VINOUT_DECL ); #else F77_VOID_FUN F77rotg ( F77_SINOUT_DECL, F77_SIN_DECL, F77_SINOUT_DECL, F77_SINOUT_DECL ); #endif F77_VOID_FUN F77nrm2 ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_RINOUT_DECL ); F77_VOID_FUN F77asum ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_RINOUT_DECL ); F77_INT_FUN F77amax ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL ); F77_VOID_FUN F77scal ( F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); #ifdef TCPLX F77_VOID_FUN F77rscal ( F77_INT_DECL, F77_RIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); #endif void F77set ( F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); void F77axpby ( F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77axpy ( F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77copy ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77swap ( F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77rot ( F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_SIN_DECL ); #ifdef TREAL F77_VOID_FUN F77rotm ( F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL, F77_VIN_DECL ); #endif #ifdef TREAL F77_VOID_FUN F77dot ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SINOUT_DECL ); #ifdef SREAL F77_VOID_FUN F77dsdot ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, double * ); F77_VOID_FUN F77sdsdot ( F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SINOUT_DECL ); #endif #else F77_VOID_FUN F77dotc ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SINOUT_DECL ); F77_VOID_FUN F77dotu ( F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SINOUT_DECL ); #endif F77_VOID_FUN F77gbmv ( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77gemv ( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); #ifdef TREAL F77_VOID_FUN F77ger ( F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77sbmv ( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77spmv ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77symv ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77spr ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL F77_1_CHAR ); F77_VOID_FUN F77syr ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77spr2 ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL F77_1_CHAR ); F77_VOID_FUN F77syr2 ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_1_CHAR ); #else F77_VOID_FUN F77gerc ( F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77geru ( F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL ); F77_VOID_FUN F77hbmv ( F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77hpmv ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77hemv ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77hpr ( F77_CHAR_DECL, F77_INT_DECL, F77_RIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL F77_1_CHAR ); F77_VOID_FUN F77her ( F77_CHAR_DECL, F77_INT_DECL, F77_RIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_1_CHAR ); F77_VOID_FUN F77hpr2 ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL F77_1_CHAR ); F77_VOID_FUN F77her2 ( F77_CHAR_DECL, F77_INT_DECL, F77_SIN_DECL, F77_VIN_DECL, F77_INT_DECL, F77_VIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_1_CHAR ); #endif F77_VOID_FUN F77tbmv ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_3_CHAR ); F77_VOID_FUN F77tpmv ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_MIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_3_CHAR ); F77_VOID_FUN F77trmv ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_3_CHAR ); F77_VOID_FUN F77tbsv ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_3_CHAR ); F77_VOID_FUN F77tpsv ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_MIN_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_3_CHAR ); F77_VOID_FUN F77trsv ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_VINOUT_DECL, F77_INT_DECL F77_3_CHAR ); F77_VOID_FUN F77gemm ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77hemm ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77her2k ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_RIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77herk ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_RIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_RIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77symm ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77syr2k ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77syrk ( F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_2_CHAR ); F77_VOID_FUN F77trmm ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_4_CHAR ); F77_VOID_FUN F77trsm ( F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_CHAR_DECL, F77_INT_DECL, F77_INT_DECL, F77_SIN_DECL, F77_MIN_DECL, F77_INT_DECL, F77_MINOUT_DECL, F77_INT_DECL F77_4_CHAR ); #endif