46 |
integer i |
integer i |
47 |
double precision fdiff, preco |
double precision fdiff, preco |
48 |
|
|
49 |
double precision SDOT |
double precision DDOT |
50 |
external SDOT |
external DDOT |
51 |
|
|
52 |
c ================================================================== |
c ================================================================== |
53 |
|
|
99 |
c----------------------------------------- |
c----------------------------------------- |
100 |
c check whether new direction is a descent one |
c check whether new direction is a descent one |
101 |
c----------------------------------------- |
c----------------------------------------- |
102 |
dotdg = SDOT( nn, dd, 1, gg, 1 ) |
dotdg = DDOT( nn, dd, 1, gg, 1 ) |
103 |
if (dotdg .ge. 0.0) then |
if (dotdg .ge. 0.0) then |
104 |
ifail = 4 |
ifail = 4 |
105 |
goto 999 |
goto 999 |