dbcsr_mp_mypcol Function

public pure function dbcsr_mp_mypcol(mp_env) result(mypcol)

Arguments

Type	Intent	Optional	Attributes		Name
type(dbcsr_mp_obj),	intent(in)			::	mp_env

Return Value integer

Source Code

   PURE FUNCTION dbcsr_mp_mypcol(mp_env) RESULT(mypcol)
      TYPE(dbcsr_mp_obj), INTENT(IN)                     :: mp_env
      INTEGER                                            :: mypcol

      mypcol = mp_env%mp%mypcol
   END FUNCTION dbcsr_mp_mypcol