1 |
heimbach |
1.2 |
subroutine dostore( n, x, store, j ) |
2 |
|
|
c |
3 |
|
|
c arguments |
4 |
|
|
c |
5 |
heimbach |
1.5 |
integer n, i, j |
6 |
molod |
1.4 |
double precision x(n) |
7 |
heimbach |
1.5 |
real*4 tmpx(n) |
8 |
heimbach |
1.2 |
logical store |
9 |
|
|
|
10 |
|
|
common /xxstore/ itape, ntape, isize |
11 |
|
|
integer itape, ntape, isize |
12 |
|
|
|
13 |
heimbach |
1.3 |
cph( |
14 |
heimbach |
1.5 |
cph print *, 'pathei in dostore ', |
15 |
|
|
cph & store, n, ntape, j |
16 |
heimbach |
1.3 |
cph) |
17 |
heimbach |
1.5 |
|
18 |
heimbach |
1.2 |
if (store) then |
19 |
heimbach |
1.5 |
do i = 1, n |
20 |
|
|
tmpx(i) = x(i) |
21 |
|
|
enddo |
22 |
|
|
write( ntape, rec=j ) tmpx |
23 |
heimbach |
1.2 |
else |
24 |
heimbach |
1.5 |
read( ntape, rec=j ) tmpx |
25 |
|
|
do i = 1, n |
26 |
|
|
x(i) = tmpx(i) |
27 |
|
|
enddo |
28 |
heimbach |
1.2 |
endif |
29 |
|
|
|
30 |
|
|
return |
31 |
|
|
end |