3 |
c |
c |
4 |
c arguments |
c arguments |
5 |
c |
c |
6 |
integer n, is, m, jmin, jmax, ifail, rectmp |
integer n, is, m, jmin, jmax, ifail |
7 |
double precision fc, gnorm0 |
double precision fc, gnorm0 |
8 |
logical cold |
logical cold |
9 |
|
integer*8 rectmp, tmp1, tmp2 |
10 |
c---- |
c---- |
11 |
c |
c |
12 |
common /xxstore/ itape, ntape, isize |
common /xxstore/ itape, ntape, isize |
41 |
$ ' opening direct access with recl = ',n,' * ',isize |
$ ' opening direct access with recl = ',n,' * ',isize |
42 |
print* |
print* |
43 |
|
|
44 |
rectmp = n * isize |
tmp1 = n |
45 |
|
tmp2 = isize |
46 |
|
rectmp = tmp1*tmp2 |
47 |
cph( |
cph( |
48 |
print *, 'pathei rectmp ', rectmp, n, isize |
print *, 'pathei rectmp ', rectmp, n, isize |
49 |
cph) |
cph) |