block_trust_region MEX: remove unused parameter
parent
0442fe785e
commit
b1db895dee
|
@ -56,7 +56,6 @@ contains
|
||||||
integer :: maxiter_actual
|
integer :: maxiter_actual
|
||||||
real(real64) :: factor_actual
|
real(real64) :: factor_actual
|
||||||
integer, parameter :: maxslowiter = 15 ! Maximum number of consecutive iterations with slow progress
|
integer, parameter :: maxslowiter = 15 ! Maximum number of consecutive iterations with slow progress
|
||||||
real(real64), parameter :: macheps = epsilon(x)
|
|
||||||
real(real64) :: delta ! Radius of the trust region
|
real(real64) :: delta ! Radius of the trust region
|
||||||
real(real64), dimension(size(x)) :: fvec ! Current function value
|
real(real64), dimension(size(x)) :: fvec ! Current function value
|
||||||
real(real64) :: fn ! Norm of the current function value
|
real(real64) :: fn ! Norm of the current function value
|
||||||
|
|
Loading…
Reference in New Issue