--- MITgcm/lsopt/lsline.F	2002/11/15 04:03:24	1.2
+++ MITgcm/lsopt/lsline.F	2002/12/06 01:42:25	1.3
@@ -85,8 +85,8 @@
       double precision    z, test, barr
       double precision    left, right, told
 
-      external SDOT
-      double precision     SDOT
+      external DDOT
+      double precision     DDOT
 
 c----------------------------------
 c check parameters
@@ -128,7 +128,7 @@
 c------------------------------------
          call simul( indic, nn, xdiff, fnew, gg )
 
-         fp = SDOT( nn, dd, 1, gg, 1 )
+         fp = DDOT( nn, dd, 1, gg, 1 )
          fdiff = fnew - ff
 
 c-----------------------------------------