Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |