00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040 typedef int integer;
00041 typedef bool logical;
00042 typedef int ftnlen;
00043 typedef char *address;
00044
00045 #define maxMACRO(a,b) (a >= b ? a : b)
00046 #define minMACRO(a,b) (a <= b ? a : b)
00047 #define absMACRO(x) (x >= 0 ? x : (-x))
00048
00049 #if 0
00050
00051 template<typename A>
00052 A maxMACRO(const A& a, const A&b) { return a >= b ? a : b; }
00053 maxMACRO(f(a), b)
00054 #endif
00055
00056
00057 #include <math.h>
00058
00059
00060 #include "template_blas_basicmath.h"
00061
00062
00063 logical template_blas_lsame(const char *ca, const char *cb);
00064 int template_blas_erbla(const char *srname, integer *info);
00065 void template_blas_s_cat(char *lp, char *rpp[], ftnlen rnp[], ftnlen *np, ftnlen ll);
00066
00067 #include "template_blas_axpy.h"
00068 #include "template_blas_scal.h"
00069 #include "template_blas_dot.h"
00070 #include "template_blas_spr.h"
00071 #include "template_blas_spr2.h"
00072 #include "template_blas_gemv.h"
00073 #include "template_blas_gemm.h"
00074 #include "template_blas_trmm.h"
00075 #include "template_blas_trsm.h"
00076 #include "template_blas_syrk.h"
00077 #include "template_blas_syr2.h"
00078 #include "template_blas_syr2k.h"
00079 #include "template_blas_symv.h"
00080 #include "template_blas_symm.h"
00081 #include "template_blas_tpsv.h"
00082 #include "template_blas_tpmv.h"
00083 #include "template_blas_spmv.h"
00084 #include "template_blas_trsv.h"
00085 #include "template_blas_trmv.h"
00086 #include "template_blas_swap.h"
00087 #include "template_blas_nrm2.h"
00088 #include "template_blas_copy.h"
00089 #include "template_blas_ger.h"
00090 #include "template_blas_idamax.h"
00091 #include "template_blas_rot.h"
00092 #include "template_blas_asum.h"