midsqu Interface

interface
public subroutine midsqu(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