FEMDomaintoDEMDomain_from_FEMDomain Subroutine

public subroutine FEMDomaintoDEMDomain_from_FEMDomain(ret, femdomain)

$OMP parallel do private(center,j,x,r) reduction(+:radius,num_dup)

$OMP end parallel do

Arguments

Type	Intent	Optional	Attributes		Name
type(DEMDomain_),	intent(out)			::	ret
type(FEMDomain_),	intent(in)			::	femdomain