subroutine alpaqa_setulb_c |
( |
integer(c_int), intent(in), value |
n, |
|
|
integer(c_int), intent(in), value |
m, |
|
|
real(c_double), dimension(n), intent(inout) |
x, |
|
|
real(c_double), dimension(n), intent(in) |
l, |
|
|
real(c_double), dimension(n), intent(in) |
u, |
|
|
integer(c_int), dimension(n), intent(in) |
nbd, |
|
|
real(c_double), intent(inout) |
f, |
|
|
real(c_double), dimension(n), intent(inout) |
g, |
|
|
real(c_double), intent(in), value |
factr, |
|
|
real(c_double), intent(in), value |
pgtol, |
|
|
real(c_double), dimension(2*m*n + 5*n + 11*m*m + 8*m), intent(out) |
wa, |
|
|
integer(c_int), dimension(3*n), intent(out) |
iwa, |
|
|
character(c_char), dimension(60), intent(inout) |
task, |
|
|
integer(c_int), intent(in), value |
iprint, |
|
|
character(c_char), dimension(60), intent(inout) |
csave, |
|
|
logical(c_bool), dimension(4), intent(inout) |
lsave, |
|
|
integer(c_int), dimension(44), intent(inout) |
isave, |
|
|
real(c_double), dimension(29), intent(inout) |
dsave |
|
) |
| |