| File |
Line number |
Procedure |
Code |
|
./optim/optim_sub.F |
122 |
OPTIM_SUB |
& , dd, gold, xdiff |
|
./optim/optim_sub.F |
49 |
OPTIM_SUB |
_RL xdiff(nn) |
|
./optim/optim_sub.F |
55 |
OPTIM_SUB |
_RL xdiff(1) |
|
./optim/optim_sub.F |
60 |
OPTIM_SUB |
pointer (pxdiff,xdiff) |
|
./optim/optim_sub.F |
68 |
OPTIM_SUB |
_RL xdiff(nmax) |
|
./lsopt/dgscale.F |
24 |
DGSCALE |
double precision gold(nn), xdiff(nn), diag(nn) |
|
./lsopt/dgscale.F |
2 |
DGSCALE |
subroutine DGSCALE( nn, gold, xdiff, diag, rmin ) |
|
./lsopt/dgscale.F |
57 |
DGSCALE |
den = den + xdiff(i)*xdiff(i) / diag(i) |
|
./lsopt/dgscale.F |
62 |
DGSCALE |
$ (1./diag(i)+gold(i)**2-(xdiff(i)/diag(i))**2/den) |
|
./lsopt/hessupd.F |
101 |
HESSUPD |
dd(i) = dd(i) + r*xdiff(i) |
|
./lsopt/hessupd.F |
2 |
HESSUPD |
subroutine HESSUPD( nn, mupd, dd, jmin, jmax, xdiff, lphprint ) |
|
./lsopt/hessupd.F |
38 |
HESSUPD |
double precision dd(nn), alpha(100), xdiff(nn) |
|
./lsopt/hessupd.F |
72 |
HESSUPD |
call DOSTORE( nn, xdiff, .false., 2*jp+3 ) |
|
./lsopt/hessupd.F |
73 |
HESSUPD |
r = DDOT( nn, dd, 1, xdiff,1 ) |
|
./lsopt/hessupd.F |
74 |
HESSUPD |
call DOSTORE( nn, xdiff, .false., 2*jp+2 ) |
|
./lsopt/hessupd.F |
77 |
HESSUPD |
dd(i) = dd(i) - r*xdiff(i) |
|
./lsopt/hessupd.F |
85 |
HESSUPD |
call DOSTORE( nn, xdiff, .false., 3 ) |
|
./lsopt/hessupd.F |
87 |
HESSUPD |
dd(i) = dd(i)*xdiff(i) |
|
./lsopt/hessupd.F |
97 |
HESSUPD |
call DOSTORE( nn, xdiff, .false., 2*jp+2 ) |
|
./lsopt/hessupd.F |
98 |
HESSUPD |
r = alpha(jp) - DDOT( nn, dd,1 , xdiff, 1 ) |
|
./lsopt/hessupd.F |
99 |
HESSUPD |
call DOSTORE( nn, xdiff, .false., 2*jp+3 ) |
|
./lsopt/lsline.F |
129 |
LSLINE |
call SIMUL( indic, nn, xdiff, fnew, gg ) |
|
./lsopt/lsline.F |
161 |
LSLINE |
xx(i) = xdiff(i) |
|
./lsopt/lsline.F |
240 |
LSLINE |
if ((z.ne.xx(i)) .and. (z.ne.xdiff(i))) go to 950 |
|
./lsopt/lsline.F |
268 |
LSLINE |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
57 |
LSLINE |
double precision xx(nn), dd(nn), gg(nn), xdiff(nn) |
|
./lsopt/lsline.F |
8 |
LSLINE |
& , dd, gg, xx, xdiff |
|
./lsopt/lsopt_top.F |
269 |
LSOPT_TOP |
xdiff(i) = 1. |
|
./lsopt/lsopt_top.F |
277 |
LSOPT_TOP |
call DOSTORE( nn, xdiff, .true., 3 ) |
|
./lsopt/lsopt_top.F |
423 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
442 |
LSOPT_TOP |
& , dd, gg, xx, xdiff |
|
./lsopt/lsopt_top.F |
491 |
LSOPT_TOP |
xdiff(i) = tact*dd(i) |
|
./lsopt/lsopt_top.F |
501 |
LSOPT_TOP |
ys = DDOT( nn, gold, 1, xdiff, 1 ) |
|
./lsopt/lsopt_top.F |
543 |
LSOPT_TOP |
call DSCAL( nn, r1, xdiff, 1 ) |
|
./lsopt/lsopt_top.F |
551 |
LSOPT_TOP |
call DOSTORE( nn, xdiff, .true., 2*jmax+3 ) |
|
./lsopt/lsopt_top.F |
557 |
LSOPT_TOP |
call DGSCALE( nn, gold, xdiff, dd, rmin ) |
|
./lsopt/lsopt_top.F |
5 |
LSOPT_TOP |
$ , dd, gold, xdiff |
|
./lsopt/lsopt_top.F |
605 |
LSOPT_TOP |
& , gg, dd, xx, xdiff |
|
./lsopt/lsopt_top.F |
610 |
LSOPT_TOP |
call OPTIM_WRITE_CONTROL( nn, xdiff ) |
|
./lsopt/lsopt_top.F |
61 |
LSOPT_TOP |
double precision dd(nn), gold(nn), xdiff(nn) |
|
./lsopt/lsupdxx.F |
141 |
LSUPDXX |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsupdxx.F |
39 |
LSUPDXX |
double precision gg(nn), dd(nn), xx(nn), xdiff(nn) |
|
./lsopt/lsupdxx.F |
6 |
LSUPDXX |
& , gg, dd, xx, xdiff |
|
./lsopt/lsupdxx.F |
90 |
LSUPDXX |
call HESSUPD( nn, nupdate, dd, jmin, jmax, xdiff, |