--- MITgcm/lsopt/dostore.F	2002/02/05 20:34:33	1.1
+++ MITgcm/lsopt/dostore.F	2002/11/15 04:03:24	1.2
@@ -0,0 +1,19 @@
+      subroutine dostore( n, x, store, j )
+c
+c         arguments
+c
+      integer n, j
+      double precision    x(n)
+      logical store
+
+      common /xxstore/ itape, ntape, isize
+      integer itape, ntape, isize
+
+      if (store) then
+        write( ntape, rec=j ) x
+      else
+        read(  ntape, rec=j ) x
+      endif
+
+      return
+      end