| subroutine twcomputation_loop |
( |
integer(c_int), intent(in) | n, |
|
|
real(kind=c_double), intent(in) | p, |
|
|
real(kind=c_double), dimension(n), intent(in) | phi, |
|
|
real(kind=c_double), dimension(n), intent(in) | y, |
|
|
real(kind=c_double), dimension(n), intent(in) | mu, |
|
|
integer(c_int), intent(in) | verbose, |
|
|
integer(c_int), intent(in) | pdf, |
|
|
real(kind=c_double), dimension(n), intent(out) | funvalue, |
|
|
integer(c_int), dimension(n), intent(out) | exitstatus, |
|
|
real(kind=c_double), dimension(n), intent(out) | relerr, |
|
|
integer(c_int), dimension(n), intent(out) | int_regions ) |