ecco_v4_release3_optimization/optim/blas1.h


#ifndef BLAS1_H
#define BLAS1_H

#ifdef IS_DOUBLE
# define SDOT    ddot
# define SNRM2   dnrm2
# define SSUM    dsum
# define SSCAL   dscal
#else
# define SDOT    sdot
# define SNRM2   snrm2
# define SSUM    ssum
# define SSCAL   sscal
#endif

#endif
1
2	#ifndef BLAS1_H
3	#define BLAS1_H
4
5	#ifdef IS_DOUBLE
6	# define SDOT ddot
7	# define SNRM2 dnrm2
8	# define SSUM dsum
9	# define SSCAL dscal
10	#else
11	# define SDOT sdot
12	# define SNRM2 snrm2
13	# define SSUM ssum
14	# define SSCAL sscal
15	#endif
16
17	#endif