get_total_arc_length Subroutine

public subroutine get_total_arc_length(nz, gp, dz, length)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nz
real,	intent(in),		dimension(-nz:)	::	gp
real,	intent(in)			::	dz
real,	intent(out)			::	length