mirror of https://gitlab.com/QEF/q-e.git
Fixed a compilation problem (PWNC).
C.S. git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@1126 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
sbraccia
parent
27ce9dbf84
commit
25321ff763
|
|
@ -25,7 +25,6 @@ MODULE path_base
|
|||
!
|
||||
PRIVATE
|
||||
!
|
||||
PUBLIC :: io_path_start, io_path_stop
|
||||
PUBLIC :: initialize_path
|
||||
PUBLIC :: search_mep
|
||||
!
|
||||
|
|
@ -34,55 +33,6 @@ MODULE path_base
|
|||
! ... module procedures
|
||||
!
|
||||
!-----------------------------------------------------------------------
|
||||
SUBROUTINE io_path_start()
|
||||
!-----------------------------------------------------------------------
|
||||
!
|
||||
USE io_global, ONLY : stdout, io_global_start
|
||||
USE mp_global, ONLY : me_image, my_image_id, root_image
|
||||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
!
|
||||
! ... the I/O node is set again according to the number of parallel
|
||||
! ... images that have been required: for each parallel image there
|
||||
! ... is only one node that does I/O
|
||||
!
|
||||
CALL io_global_start( my_image_id, root_image )
|
||||
!
|
||||
! ... stdout is connected to a file ( different for each image )
|
||||
! ... via unit 17 ( only root_image performes I/O )
|
||||
!
|
||||
IF ( me_image == root_image ) stdout = 17
|
||||
!
|
||||
RETURN
|
||||
!
|
||||
END SUBROUTINE io_path_start
|
||||
!
|
||||
!
|
||||
!-----------------------------------------------------------------------
|
||||
SUBROUTINE io_path_stop()
|
||||
!-----------------------------------------------------------------------
|
||||
!
|
||||
USE io_global, ONLY : stdout, io_global_start
|
||||
USE mp_global, ONLY : mpime, root
|
||||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
!
|
||||
! ... the original I/O node set
|
||||
!
|
||||
CALL io_global_start( mpime, root )
|
||||
!
|
||||
! ... stdout is reconnected to standard output
|
||||
!
|
||||
stdout = 6
|
||||
!
|
||||
RETURN
|
||||
!
|
||||
END SUBROUTINE io_path_stop
|
||||
!
|
||||
!
|
||||
!-----------------------------------------------------------------------
|
||||
SUBROUTINE initialize_path( prog )
|
||||
!-----------------------------------------------------------------------
|
||||
!
|
||||
|
|
|
|||
|
|
@ -20,7 +20,61 @@ MODULE path_io_routines
|
|||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
PRIVATE
|
||||
!
|
||||
PUBLIC :: io_path_start, io_path_stop
|
||||
PUBLIC :: read_restart, write_restart, write_dat_files, write_output
|
||||
!
|
||||
CONTAINS
|
||||
!
|
||||
!-----------------------------------------------------------------------
|
||||
SUBROUTINE io_path_start()
|
||||
!-----------------------------------------------------------------------
|
||||
!
|
||||
USE io_global, ONLY : stdout, io_global_start
|
||||
USE mp_global, ONLY : me_image, my_image_id, root_image
|
||||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
!
|
||||
! ... the I/O node is set again according to the number of parallel
|
||||
! ... images that have been required: for each parallel image there
|
||||
! ... is only one node that does I/O
|
||||
!
|
||||
CALL io_global_start( my_image_id, root_image )
|
||||
!
|
||||
! ... stdout is connected to a file ( different for each image )
|
||||
! ... via unit 17 ( only root_image performes I/O )
|
||||
!
|
||||
IF ( me_image == root_image ) stdout = 17
|
||||
!
|
||||
RETURN
|
||||
!
|
||||
END SUBROUTINE io_path_start
|
||||
!
|
||||
!
|
||||
!-----------------------------------------------------------------------
|
||||
SUBROUTINE io_path_stop()
|
||||
!-----------------------------------------------------------------------
|
||||
!
|
||||
USE io_global, ONLY : stdout, io_global_start
|
||||
USE mp_global, ONLY : mpime, root
|
||||
!
|
||||
IMPLICIT NONE
|
||||
!
|
||||
!
|
||||
! ... the original I/O node set
|
||||
!
|
||||
CALL io_global_start( mpime, root )
|
||||
!
|
||||
! ... stdout is reconnected to standard output
|
||||
!
|
||||
stdout = 6
|
||||
!
|
||||
RETURN
|
||||
!
|
||||
END SUBROUTINE io_path_stop
|
||||
!
|
||||
!
|
||||
!-----------------------------------------------------------------------
|
||||
SUBROUTINE read_restart()
|
||||
|
|
|
|||
|
|
@ -19,8 +19,8 @@ PROGRAM pwscf
|
|||
USE control_flags, ONLY : nstep, istep, conv_elec, conv_ions, lpath
|
||||
USE io_files, ONLY : nd_nmbr, iunpath, tmp_dir
|
||||
USE path_variables, ONLY : conv_path
|
||||
USE path_base, ONLY : io_path_start, io_path_stop, &
|
||||
initialize_path, search_mep
|
||||
USE path_base, ONLY : initialize_path, search_mep
|
||||
USE path_io_routines, ONLY : io_path_start, io_path_stop
|
||||
USE io_global, ONLY : ionode
|
||||
!
|
||||
IMPLICIT NONE
|
||||
|
|
|
|||
|
|
@ -19,7 +19,7 @@ SUBROUTINE stop_pw( flag )
|
|||
USE io_files, ONLY : prefix, iunwfc, iunigk, iunres
|
||||
USE input_parameters, ONLY : deallocate_input_parameters
|
||||
USE path_variables, ONLY : path_deallocation
|
||||
USE path_base, ONLY : io_path_stop
|
||||
USE path_io_routines, ONLY : io_path_stop
|
||||
USE mp, ONLY : mp_barrier, mp_end
|
||||
!
|
||||
IMPLICIT NONE
|
||||
|
|
|
|||
Loading…
Reference in New Issue