get_OMa_OMb Subroutine

private subroutine get_OMa_OMb(del1, OMa, OMb)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=pr),	intent(in)			::	del1(:)
real(kind=pr),	intent(out)			::	OMa(size(del1))
real(kind=pr),	intent(out)			::	OMb(size(del1))

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=pr),	private		::	d1(size(del1))
real(kind=pr),	private		::	y(size(del1))