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