--- MITgcm/lsopt/dostore.F	2004/09/09 15:51:26	1.3
+++ MITgcm/lsopt/dostore.F	2005/11/04 21:48:19	1.4
@@ -3,8 +3,8 @@
 c         arguments
 c
       integer n, j
-cph      double precision    x(n)
-      real*4 x(n) 
+      double precision    x(n)
+cgf      real*4 x(n) 
       logical store
 
       common /xxstore/ itape, ntape, isize