MITgcm/lsopt/dostore.F

4cee17c1be Patr*0001       subroutine dostore( n, x, store, j )
                0002 c
                0003 c         arguments
                0004 c
f7e8e52ac8 Patr*0005       integer n, i, j
bb46d94cfc Andr*0006       double precision    x(n)
f7e8e52ac8 Patr*0007       real*4 tmpx(n)
4cee17c1be Patr*0008       logical store
                0009
                0010       common /xxstore/ itape, ntape, isize
                0011       integer itape, ntape, isize
                0012
60c4531875 Patr*0013 cph(
f7e8e52ac8 Patr*0014 cph      print *, 'pathei in dostore ',
                0015 cph     &   store, n, ntape, j
60c4531875 Patr*0016 cph)
f7e8e52ac8 Patr*0017
4cee17c1be Patr*0018       if (store) then
f7e8e52ac8 Patr*0019         do i = 1, n
                0020           tmpx(i) = x(i)
                0021         enddo
                0022         write( ntape, rec=j ) tmpx
4cee17c1be Patr*0023       else
f7e8e52ac8 Patr*0024         read(  ntape, rec=j ) tmpx
                0025         do i = 1, n
                0026           x(i) = tmpx(i)
                0027         enddo
4cee17c1be Patr*0028       endif
                0029
                0030       return
                0031       end