m_size_func Function

private pure function m_size_func(this) result(size)

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(comm_t),	intent(in)			::	this

Return Value integer

Source Code

   pure function m_size_func(this) result(size)
      class(comm_t), intent(in) :: this
      integer :: size
      size = this%m_size
   end function m_size_func