Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by heimbach, Tue Feb 5 20:34:34 2002 UTC | revision 1.2 by heimbach, Fri Nov 15 04:03:24 2002 UTC | |
---|---|---|
# | Line 0 | Line 1 |
1 | subroutine outstore( n, fc, gnorm0, m, jmin, jmax ) | |
2 | c | |
3 | c arguments | |
4 | c | |
5 | integer n, m, jmin, jmax | |
6 | double precision fc, gnorm0 | |
7 | c---- | |
8 | c | |
9 | common /xxstore/ itape, ntape, isize | |
10 | integer itape, ntape, isize | |
11 | ||
12 | open( itape | |
13 | $ , file = 'OPWARMI' | |
14 | $ , access = 'sequential' | |
15 | $ , form = 'formatted' ) | |
16 | rewind (itape) | |
17 | ||
18 | write( itape, * ) n, fc, gnorm0, isize, m, jmin, jmax | |
19 | ||
20 | close(itape) | |
21 | ||
22 | return | |
23 | end |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |