PURE FUNCTION dbcsr_mp_mynode(mp_env) RESULT(mynode) TYPE(dbcsr_mp_obj), INTENT(IN) :: mp_env INTEGER :: mynode mynode = mp_env%mp%mynode END FUNCTION dbcsr_mp_mynode