calculate_marching_squares_config Subroutine

public subroutine calculate_marching_squares_config(z1, z2, z3, z4, level, config)

Calculate marching squares configuration for a cell

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	z1
real(kind=wp),	intent(in)			::	z2
real(kind=wp),	intent(in)			::	z3
real(kind=wp),	intent(in)			::	z4
real(kind=wp),	intent(in)			::	level
integer,	intent(out)			::	config