Commit 5ede2ed0 authored by ccavazzoni's avatar ccavazzoni

forgot to commit function


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8713 c92efa57-630b-4861-b058-cf58834340f0
parent d0eddbe9
......@@ -2222,6 +2222,27 @@ SUBROUTINE mp_circular_shift_left_d2d( buf, itag, gid )
RETURN
END SUBROUTINE mp_circular_shift_left_d2d
FUNCTION mp_get_comm_null( )
IMPLICIT NONE
INTEGER :: mp_get_comm_null
#if defined(__MPI)
mp_get_comm_null = MPI_COMM_NULL
#else
mp_get_comm_null = 0
#endif
END FUNCTION mp_get_comm_null
FUNCTION mp_get_comm_self( )
IMPLICIT NONE
INTEGER :: mp_get_comm_self
#if defined(__MPI)
mp_get_comm_self = MPI_COMM_SELF
#else
mp_get_comm_self = 0
#endif
END FUNCTION mp_get_comm_self
!------------------------------------------------------------------------------!
END MODULE mp
!------------------------------------------------------------------------------!
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment