setroots_2d Subroutine

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

Arguments

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