Parent Directory | Revision Log | Revision Graph
[Gael Forget] calling routines use "double precision"
1 | heimbach | 1.2 | subroutine dostore( n, x, store, j ) |
2 | c | ||
3 | c arguments | ||
4 | c | ||
5 | integer n, j | ||
6 | molod | 1.4 | double precision x(n) |
7 | cgf real*4 x(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 | print *, 'pathei in dostore ', | ||
15 | & store, n, ntape, j | ||
16 | cph) | ||
17 | heimbach | 1.2 | 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 |