qromo Interface

interface
public function qromo(func, a, b, choose)

Arguments

Type IntentOptional AttributesName
function func(x)
Arguments
Type IntentOptional AttributesName
real(kind=SP), intent(in), DIMENSION(:):: x
Return Value real(kind=SP), DIMENSION(size(x))
real(kind=SP), intent(in) :: a
real(kind=SP), intent(in) :: b
subroutine choose(funk, aa, bb, s, n)
Arguments
Type IntentOptional AttributesName
function funk(x)
Arguments
Type IntentOptional AttributesName
real(kind=SP), intent(in), DIMENSION(:):: x
Return Value real(kind=SP), DIMENSION(size(x))
real(kind=SP), intent(in) :: aa
real(kind=SP), intent(in) :: bb
real(kind=SP), intent(inout) :: s
integer(kind=I4B), intent(in) :: n

Return Value real(kind=SP)