rstrct Interface

interface
public function rstrct(uf)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=DP),	intent(in),		DIMENSION(:,:)	::	uf

Return Value real(kind=DP), DIMENSION((size(uf,1)+1)/2,(size(uf,1)+1)/2)