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