destroy_block_c_sp Subroutine

private subroutine destroy_block_c_sp(block)

Arguments

Type	Intent	Optional	Attributes		Name
type(block_nd_c_sp),	intent(inout)			::	block