mirror of https://gitlab.com/QEF/q-e.git
mp_count_nodes is now compatible with gfortran 4.7
This commit is contained in:
parent
837629de78
commit
152e589b7e
|
@ -74,9 +74,9 @@ CONTAINS
|
|||
#endif
|
||||
!
|
||||
CALL mp_start( nproc, mpime, world_comm )
|
||||
#if !defined(__GFORTRAN__) || ((__GNUC__>4) || ((__GNUC__==4) && (__GNUC_MINOR__>=8)))
|
||||
!
|
||||
CALL mp_count_nodes ( nnode, color, key, world_comm )
|
||||
#endif
|
||||
!
|
||||
!
|
||||
! ... meta_ionode is true if this processor is the root processor
|
||||
! ... of the world group - "ionode_world" would be a better name
|
||||
|
|
|
@ -2237,8 +2237,7 @@ SUBROUTINE mp_circular_shift_left_c2d( buf, itag, gid )
|
|||
RETURN
|
||||
END SUBROUTINE mp_circular_shift_left_c2d
|
||||
!
|
||||
|
||||
#if !defined(__GFORTRAN__) || ((__GNUC__>4) || ((__GNUC__==4) && (__GNUC_MINOR__>=8)))
|
||||
!
|
||||
!------------------------------------------------------------------------------!
|
||||
!..mp_count_nodes
|
||||
SUBROUTINE mp_count_nodes(num_nodes, color, key, group)
|
||||
|
@ -2352,7 +2351,6 @@ SUBROUTINE mp_count_nodes(num_nodes, color, key, group)
|
|||
#endif
|
||||
RETURN
|
||||
END SUBROUTINE mp_count_nodes
|
||||
#endif
|
||||
!
|
||||
FUNCTION mp_get_comm_null( )
|
||||
IMPLICIT NONE
|
||||
|
|
Loading…
Reference in New Issue