setroots_1d Subroutine

private subroutine setroots_1d(x, F10, Zr, Fs)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(in),		DIMENSION(:)	::	x
real(kind=r_2),	intent(in)			::	F10
real(kind=r_2),	intent(in)			::	Zr
real(kind=r_2),	intent(out),		DIMENSION(:)	::	Fs