/[MITgcm]/MITgcm/lsopt/dostore.F
ViewVC logotype

Diff of /MITgcm/lsopt/dostore.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by heimbach, Tue Feb 5 20:34:33 2002 UTC revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC
# Line 0  Line 1 
1          subroutine dostore( n, x, store, j )
2    c
3    c         arguments
4    c
5          integer n, j
6          double precision    x(n)
7          logical store
8    
9          common /xxstore/ itape, ntape, isize
10          integer itape, ntape, isize
11    
12          if (store) then
13            write( ntape, rec=j ) x
14          else
15            read(  ntape, rec=j ) x
16          endif
17    
18          return
19          end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22