--- MITgcm/optim/blas1.h	2002/02/05 20:34:34	1.1
+++ MITgcm/optim/blas1.h	2002/11/15 04:03:25	1.2
@@ -0,0 +1,17 @@
+
+#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