--- MITgcm/lsopt/dostore.F	2002/11/15 04:03:24	1.2
+++ MITgcm/lsopt/dostore.F	2004/09/09 15:51:26	1.3
@@ -3,12 +3,17 @@
 c         arguments
 c
       integer n, j
-      double precision    x(n)
+cph      double precision    x(n)
+      real*4 x(n) 
       logical store
 
       common /xxstore/ itape, ntape, isize
       integer itape, ntape, isize
 
+cph(
+      print *, 'pathei in dostore ', 
+     &   store, n, ntape, j
+cph)
       if (store) then
         write( ntape, rec=j ) x
       else