append_cylinder2SpaObj Subroutine

public subroutine append_cylinder2SpaObj(cylArray, spaObjArray, attr_pos, loc_cylinder)

This routine single cylinder from object table

Arguments

Type	Intent	Optional	Attributes		Name
type(grw_cylinderarray_type),	intent(inout)			::	cylArray	growing array of cylinders
type(grw_spatialObjArray_type),	intent(inout)			::	spaObjArray	growing array of geometrical objects.
integer,	intent(in)			::	attr_pos	Position of the attribute to connect this object to.
type(tem_cylinder_type),	intent(in)			::	loc_cylinder