MITgcm/lsopt/dostore.F

      subroutine dostore( n, x, store, j )
c
c         arguments
c
      integer n, j
      double precision    x(n)
cgf      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
        read(  ntape, rec=j ) x
      endif

      return
      end
1	heimbach	1.2	subroutine dostore( n, x, store, j )
2			c
3			c arguments
4			c
5			integer n, j
6	molod	1.4	double precision x(n)
7			cgf real*4 x(n)
8	heimbach	1.2	logical store
9
10			common /xxstore/ itape, ntape, isize
11			integer itape, ntape, isize
12
13	heimbach	1.3	cph(
14			print *, 'pathei in dostore ',
15			& store, n, ntape, j
16			cph)
17	heimbach	1.2	if (store) then
18			write( ntape, rec=j ) x
19			else
20			read( ntape, rec=j ) x
21			endif
22
23			return
24			end