scnc
/
quantum-espresso
mirror of https://gitlab.com/QEF/q-e.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

mp_count_nodes is now compatible with gfortran 4.7

This commit is contained in:
Pietro Bonfa 2018-02-13 09:08:59 +01:00
parent 837629de78
commit 152e589b7e
2 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Modules/mp_world.f90
View File

@ -74,9 +74,9 @@ CONTAINS
#endif #endif
! !
CALL mp_start( nproc, mpime, world_comm ) 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 ) CALL mp_count_nodes ( nnode, color, key, world_comm )
#endif !
! !
! ... meta_ionode is true if this processor is the root processor ! ... meta_ionode is true if this processor is the root processor
! ... of the world group - "ionode_world" would be a better name ! ... of the world group - "ionode_world" would be a better name

4
UtilXlib/mp.f90
View File

@ -2237,8 +2237,7 @@ SUBROUTINE mp_circular_shift_left_c2d( buf, itag, gid )
RETURN RETURN
END SUBROUTINE mp_circular_shift_left_c2d END SUBROUTINE mp_circular_shift_left_c2d
! !
!
#if !defined(__GFORTRAN__) || ((__GNUC__>4) || ((__GNUC__==4) && (__GNUC_MINOR__>=8)))
!------------------------------------------------------------------------------! !------------------------------------------------------------------------------!
!..mp_count_nodes !..mp_count_nodes
SUBROUTINE mp_count_nodes(num_nodes, color, key, group) SUBROUTINE mp_count_nodes(num_nodes, color, key, group)
@ -2352,7 +2351,6 @@ SUBROUTINE mp_count_nodes(num_nodes, color, key, group)
#endif #endif
RETURN RETURN
END SUBROUTINE mp_count_nodes END SUBROUTINE mp_count_nodes
#endif
! !
FUNCTION mp_get_comm_null( ) FUNCTION mp_get_comm_null( )
IMPLICIT NONE IMPLICIT NONE