85 |
double precision z, test, barr |
double precision z, test, barr |
86 |
double precision left, right, told |
double precision left, right, told |
87 |
|
|
88 |
external SDOT |
external DDOT |
89 |
double precision SDOT |
double precision DDOT |
90 |
|
|
91 |
c---------------------------------- |
c---------------------------------- |
92 |
c check parameters |
c check parameters |
128 |
c------------------------------------ |
c------------------------------------ |
129 |
call simul( indic, nn, xdiff, fnew, gg ) |
call simul( indic, nn, xdiff, fnew, gg ) |
130 |
|
|
131 |
fp = SDOT( nn, dd, 1, gg, 1 ) |
fp = DDOT( nn, dd, 1, gg, 1 ) |
132 |
fdiff = fnew - ff |
fdiff = fnew - ff |
133 |
|
|
134 |
c----------------------------------------- |
c----------------------------------------- |