27 |
c ================================================================== |
c ================================================================== |
28 |
c |
c |
29 |
|
|
30 |
#include <blas1.h> |
#include "blas1.h" |
31 |
|
|
32 |
implicit none |
implicit none |
33 |
|
|
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 |