Euler Subroutine

public subroutine Euler(DerivFunction, Y, Ymask, dx, x, param_array, Yout)

Arguments

Type

Intent

Optional

Attributes

Name

private function DerivFunction(Y, Ymask, x, param_array) result(dYdx)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in),		dimension(:)	::	Y
logical,	intent(in),		dimension(:)	::	Ymask
real(kind=r8),	intent(in)			::	x
real(kind=r8),	intent(in),		dimension(:)	::	param_array

Return Value real(kind=r8), dimension(lbound(Y,dim=1):ubound(Y,dim=1))

real(kind=r8),

intent(in),

dimension(:)

::

Y

logical,

intent(in),

dimension(:)

::

Ymask

real(kind=r8),

intent(in)

::

dx

real(kind=r8),

intent(in)

::

x

real(kind=r8),

intent(in),

dimension(:)

::

param_array

real(kind=r8),

intent(inout),

dimension(:)

::

Yout