InitPRTObject Subroutine

public subroutine InitPRTObject(prt)

allocate(cnp_allom_prt) prt => cnp_allom_prt

Arguments

Type	Intent	Optional	Attributes		Name
class(prt_vartypes),			pointer	::	prt