Parent Directory | Revision Log | Revision Graph | Patch
revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC | revision 1.4 by molod, Fri Nov 4 21:48:19 2005 UTC | |
---|---|---|
# | Line 4 c arguments | Line 4 c arguments |
4 | c | c |
5 | integer n, j | integer n, j |
6 | double precision x(n) | double precision x(n) |
7 | cgf 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 |