| File |
Line number |
Procedure |
Code |
|
./lsopt/lsline.F |
137 |
LSLINE |
if (fdiff .gt. tact*xpara1*dotdg) then |
|
./lsopt/lsline.F |
138 |
LSLINE |
td = tact |
|
./lsopt/lsline.F |
176 |
LSLINE |
tg = tact |
|
./lsopt/lsline.F |
180 |
LSLINE |
told = tact |
|
./lsopt/lsline.F |
181 |
LSLINE |
left = (1.0+barmin)*tact |
|
./lsopt/lsline.F |
182 |
LSLINE |
right = 10.0*tact |
|
./lsopt/lsline.F |
183 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
185 |
LSLINE |
if (tact.ge.tmax) then |
|
./lsopt/lsline.F |
187 |
LSLINE |
tact = tmax |
|
./lsopt/lsline.F |
192 |
LSLINE |
& 'td, tg, tact, ifail = ', td, tg, tact, ifail |
|
./lsopt/lsline.F |
205 |
LSLINE |
told = tact |
|
./lsopt/lsline.F |
206 |
LSLINE |
call CUBIC( tact, fnew, fp, ta, fa, fpa, left, right ) |
|
./lsopt/lsline.F |
208 |
LSLINE |
if (tact.gt.left .and. tact.lt.right) then |
|
./lsopt/lsline.F |
216 |
LSLINE |
& 'td, tg, tact, ifail = ', td, tg, tact, ifail |
|
./lsopt/lsline.F |
239 |
LSLINE |
z = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
268 |
LSLINE |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsline.F |
56 |
LSLINE |
double precision ff, dotdg, tmin, tmax, tact, epsx |
|
./lsopt/lsline.F |
7 |
LSLINE |
& , tmin, tmax, tact, epsx |
|
./lsopt/lsopt_top.F |
108 |
LSOPT_TOP |
tact = 1.0 |
|
./lsopt/lsopt_top.F |
377 |
LSOPT_TOP |
print iform, iiter, tact, ifunc, ff, gnorm0 |
|
./lsopt/lsopt_top.F |
424 |
LSOPT_TOP |
& , tmin, tmax, tact, epsx |
|
./lsopt/lsopt_top.F |
441 |
LSOPT_TOP |
& , tmin, tmax, tact, epsx |
|
./lsopt/lsopt_top.F |
461 |
LSOPT_TOP |
print iform, iiter, tact, ifunc, ff, gnorm |
|
./lsopt/lsopt_top.F |
462 |
LSOPT_TOP |
$ , DNRM2( nn, xx, 1 ), tact*DNRM2( nn, dd, 1 ) |
|
./lsopt/lsopt_top.F |
491 |
LSOPT_TOP |
xdiff(i) = tact*dd(i) |
|
./lsopt/lsopt_top.F |
606 |
LSOPT_TOP |
& , tmin, tmax, tact, epsx |
|
./lsopt/lsopt_top.F |
81 |
LSOPT_TOP |
double precision r1, tmin, tmax, tact, gnorm, gnorm0, eps1 |
|
./lsopt/lsupdxx.F |
123 |
LSUPDXX |
tact = 1.0 |
|
./lsopt/lsupdxx.F |
125 |
LSUPDXX |
if (tact.le.tmin) then |
|
./lsopt/lsupdxx.F |
126 |
LSUPDXX |
tact = tmin |
|
./lsopt/lsupdxx.F |
127 |
LSUPDXX |
if (tact.gt.tmax) then |
|
./lsopt/lsupdxx.F |
132 |
LSUPDXX |
if (tact .gt. tmax) then |
|
./lsopt/lsupdxx.F |
133 |
LSUPDXX |
tact = tmax |
|
./lsopt/lsupdxx.F |
141 |
LSUPDXX |
xdiff(i) = xx(i) + tact*dd(i) |
|
./lsopt/lsupdxx.F |
40 |
LSUPDXX |
double precision tmin, tmax, tact, epsx |
|
./lsopt/lsupdxx.F |
7 |
LSUPDXX |
& , tmin, tmax, tact, epsx |