Parent Directory | Revision Log | Revision Graph
Committing fixes from quite a while ago.
1 | subroutine dostore( n, x, store, j ) |
2 | c |
3 | c arguments |
4 | c |
5 | integer n, i, j |
6 | double precision x(n) |
7 | real*4 tmpx(n) |
8 | logical store |
9 | |
10 | common /xxstore/ itape, ntape, isize |
11 | integer itape, ntape, isize |
12 | |
13 | cph( |
14 | cph print *, 'pathei in dostore ', |
15 | cph & store, n, ntape, j |
16 | cph) |
17 | |
18 | if (store) then |
19 | do i = 1, n |
20 | tmpx(i) = x(i) |
21 | enddo |
22 | write( ntape, rec=j ) tmpx |
23 | else |
24 | read( ntape, rec=j ) tmpx |
25 | do i = 1, n |
26 | x(i) = tmpx(i) |
27 | enddo |
28 | endif |
29 | |
30 | return |
31 | end |
ViewVC Help | |
Powered by ViewVC 1.1.22 |