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

oops, first compile, then commit ... 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@2835 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2006-02-17 11:14:12 +00:00
parent 7250e6c371
commit f22bfd34c2
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Modules/xml_io_base.f90
View File

@ -19,6 +19,7 @@ MODULE xml_io_base
USE kinds, ONLY : DP
USE io_files, ONLY : tmp_dir, prefix, iunpun, xmlpun
USE io_global, ONLY : ionode, ionode_id, stdout
USE mp, ONLY : mp_bcast
!
IMPLICIT NONE
!
@ -39,7 +40,7 @@ MODULE xml_io_base
SUBROUTINE create_directory( dirname )
!------------------------------------------------------------------------
!
USE mp, ONLY : mp_barrier, mp_bcast
USE mp, ONLY : mp_barrier
USE mp_global, ONLY : mpime
!
CHARACTER(LEN=*), INTENT(IN) :: dirname
@ -214,7 +215,6 @@ MODULE xml_io_base
!------------------------------------------------------------------------
!
USE io_global, ONLY : ionode, ionode_id
USE mp, ONLY : mp_bcast
!
IMPLICIT NONE
!
@ -866,7 +866,7 @@ MODULE xml_io_base
!
USE io_files, ONLY : rhounit
USE io_global, ONLY : ionode, ionode_id
USE mp, ONLY : mp_sum, mp_get, mp_bcast, mp_max
USE mp, ONLY : mp_sum, mp_get, mp_max
USE mp_global, ONLY : mpime, nproc, root, me_pool, my_pool_id, &
nproc_pool, intra_pool_comm, root_pool, my_image_id
!
@ -984,7 +984,7 @@ MODULE xml_io_base
!
USE io_files, ONLY : rhounit
USE io_global, ONLY : ionode, ionode_id
USE mp, ONLY : mp_sum, mp_put, mp_bcast, mp_max
USE mp, ONLY : mp_sum, mp_put, mp_max
USE mp_global, ONLY : mpime, nproc, root, me_pool, my_pool_id, &
nproc_pool, intra_pool_comm, root_pool, my_image_id
!