Parent Directory | Revision Log | Revision Graph
[Gael Forget] calling routines use "double precision"
1 | subroutine dostore( n, x, store, j ) |
2 | c |
3 | c arguments |
4 | c |
5 | integer n, j |
6 | double precision x(n) |
7 | cgf real*4 x(n) |
8 | logical store |
9 | |
10 | common /xxstore/ itape, ntape, isize |
11 | integer itape, ntape, isize |
12 | |
13 | cph( |
14 | print *, 'pathei in dostore ', |
15 | & store, n, ntape, j |
16 | cph) |
17 | if (store) then |
18 | write( ntape, rec=j ) x |
19 | else |
20 | read( ntape, rec=j ) x |
21 | endif |
22 | |
23 | return |
24 | end |
ViewVC Help | |
Powered by ViewVC 1.1.22 |