Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC | revision 1.3 by heimbach, Thu Sep 9 15:51:26 2004 UTC | |
---|---|---|
# | Line 3 c | Line 3 c |
3 | c arguments | c arguments |
4 | c | c |
5 | integer n, j | integer n, j |
6 | double precision x(n) | cph double precision x(n) |
7 | real*4 x(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( | |
14 | print *, 'pathei in dostore ', | |
15 | & store, n, ntape, j | |
16 | cph) | |
17 | if (store) then | if (store) then |
18 | write( ntape, rec=j ) x | write( ntape, rec=j ) x |
19 | else | else |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |