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	ou.wang	1.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