3 |
c |
c |
4 |
c arguments |
c arguments |
5 |
c |
c |
6 |
integer n, is, m, jmin, jmax, ifail |
integer n, is, m, jmin, jmax, ifail, rectmp |
7 |
double precision fc, gnorm0 |
double precision fc, gnorm0 |
8 |
logical cold |
logical cold |
9 |
c---- |
c---- |
17 |
isize = is |
isize = is |
18 |
cold = .true. |
cold = .true. |
19 |
|
|
20 |
|
print *, 'pathei: in instore ' |
21 |
|
|
22 |
cc one record = two arrays of real*(isize) |
cc one record = two arrays of real*(isize) |
23 |
|
|
24 |
open( itape |
open( itape |
40 |
$ ' opening direct access with recl = ',n,' * ',isize |
$ ' opening direct access with recl = ',n,' * ',isize |
41 |
print* |
print* |
42 |
|
|
43 |
|
rectmp = n * isize |
44 |
|
cph( |
45 |
|
print *, 'pathei rectmp ', rectmp, n, isize |
46 |
|
cph) |
47 |
|
|
48 |
open( ntape |
open( ntape |
49 |
$ , file = 'OPWARMD' |
$ , file = 'OPWARMD' |
50 |
$ , status = 'unknown' |
$ , status = 'unknown' |
51 |
$ , form = 'unformatted' |
$ , form = 'unformatted' |
52 |
$ , access = 'direct' |
$ , access = 'direct' |
53 |
$ , recl = n * isize |
$ , recl = rectmp |
54 |
$ ) |
$ ) |
55 |
|
|
56 |
return |
return |