dbcsr_make_null_mp Subroutine

private subroutine dbcsr_make_null_mp(mp_env, group)

Arguments

TypeIntentOptionalAttributesName
type(dbcsr_mp_obj), intent(out) :: mp_env
integer, intent(in), optional :: group

Contents

Source Code


Source Code

   SUBROUTINE dbcsr_make_null_mp(mp_env, group)
      TYPE(dbcsr_mp_obj), INTENT(out)                    :: mp_env
      INTEGER, INTENT(in), OPTIONAL                      :: group

      INTEGER                                            :: mynode, numnodes

      IF (PRESENT(group)) THEN
         CALL mp_environ(numnodes, mynode, group)
         CALL dbcsr_mp_new(mp_env, group, &
                           RESHAPE((/1/), (/1, 1/)), &
                           mynode, numnodes, &
                           myprow=0, mypcol=0)
      ELSE
         CALL dbcsr_mp_new(mp_env, MP_COMM_NULL, &
                           RESHAPE((/1/), (/1, 1/)), &
                           0, 1, &
                           myprow=0, mypcol=0)
      END IF
   END SUBROUTINE dbcsr_make_null_mp