add_patch Subroutine

public subroutine add_patch(pi, ci, ptype, wtcol)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(inout)			::	pi
integer,	intent(in)			::	ci
integer,	intent(in)			::	ptype
real(kind=r8),	intent(in)			::	wtcol