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

iotk removed from CP as well. make.depend updated.

This commit is contained in:
Paolo Giannozzi 2018-08-18 09:02:36 +02:00
parent 97310ee405
commit ab3e8d2f4b
6 changed files with 11 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
CPV/src/make.depend
View File

@ -930,7 +930,6 @@ printout_base.o : ../../Modules/kind.o
printout_base.o : ../../Modules/mp_global.o
printout_base.o : ../../Modules/mp_images.o
printout_base.o : ../../UtilXlib/mp.o
printout_base.o : ../../iotk/src/iotk_module.o
problem_size.o : ../../Modules/electrons_base.o
problem_size.o : ../../Modules/fft_base.o
problem_size.o : ../../Modules/gvecw.o

26
CPV/src/printout_base.f90
View File

@ -374,7 +374,6 @@ CONTAINS
!
! ... a counter indicating the last successful printout iteration is saved
!
USE iotk_module
USE io_global, ONLY: ionode, ionode_id
USE io_files, ONLY : iunpun, create_directory, restart_dir
USE mp, ONLY: mp_bcast
@ -396,10 +395,10 @@ CONTAINS
!
IF ( ionode ) THEN
!
filename = TRIM( dirname ) // 'print_counter.xml'
filename = TRIM( dirname ) // 'print_counter'
!
CALL iotk_open_write( iunpun, FILE = filename, &
& ROOT = "PRINT_COUNTER", IERR = ierr )
OPEN( UNIT = iunpun, FILE = filename, FORM = 'formatted', &
STATUS = 'unknown', IOSTAT = ierr )
!
END IF
!
@ -410,11 +409,9 @@ CONTAINS
!
IF ( ionode ) THEN
!
CALL iotk_write_begin( iunpun, "LAST_SUCCESSFUL_PRINTOUT" )
CALL iotk_write_dat( iunpun, "STEP", iter )
CALL iotk_write_end( iunpun, "LAST_SUCCESSFUL_PRINTOUT" )
WRITE ( iunpun, '("LAST SUCCESSFUL PRINTOUT AT STEP:",/,i5 )' ) iter
!
CALL iotk_close_write( iunpun )
CLOSE ( iunpun, STATUS = 'keep' )
!
END IF
!
@ -429,7 +426,6 @@ CONTAINS
! ... the counter indicating the last successful printout iteration
! ... is read here
!
USE iotk_module
USE io_global, ONLY: ionode, ionode_id
USE io_files, ONLY : iunpun, restart_dir
USE mp, ONLY: mp_bcast
@ -449,9 +445,10 @@ CONTAINS
!
IF ( ionode ) THEN
!
filename = TRIM( dirname ) // 'print_counter.xml'
filename = TRIM( dirname ) // 'print_counter'
!
CALL iotk_open_read( iunpun, FILE = filename, IERR = ierr )
OPEN( UNIT = iunpun, FILE = filename, FORM = 'formatted', &
STATUS = 'old', IOSTAT = ierr )
!
IF ( ierr > 0 ) THEN
!
@ -459,11 +456,10 @@ CONTAINS
!
ELSE
!
CALL iotk_scan_begin( iunpun, "LAST_SUCCESSFUL_PRINTOUT" )
CALL iotk_scan_dat( iunpun, "STEP", nprint_nfi )
CALL iotk_scan_end( iunpun, "LAST_SUCCESSFUL_PRINTOUT" )
READ ( iunpun, * )
READ ( iunpun, * ) nprint_nfi
!
CALL iotk_close_read( iunpun )
CLOSE ( iunpun, STATUS = 'keep' )
!
END IF
!

1
GWW/bse/make.depend
View File

@ -261,7 +261,6 @@ read_export.o : ../../Modules/wavefunctions.o
read_export.o : ../../PW/src/ldaU.o
read_export.o : ../../PW/src/pwcom.o
read_export.o : ../../UtilXlib/mp.o
read_export.o : ../../iotk/src/iotk_module.o
rotate_wannier.o : ../../Modules/cell_base.o
rotate_wannier.o : ../../Modules/constants.o
rotate_wannier.o : ../../Modules/io_files.o

1
GWW/pw4gww/make.depend
View File

@ -304,7 +304,6 @@ pw4gww.o : ../../PW/src/ldaU.o
pw4gww.o : ../../PW/src/pwcom.o
pw4gww.o : ../../PW/src/scf_mod.o
pw4gww.o : ../../UtilXlib/mp.o
pw4gww.o : ../../iotk/src/iotk_module.o
pw4gww.o : exchange_custom.o
realus.o : ../../Modules/cell_base.o
realus.o : ../../Modules/control_flags.o

1
GWW/simple/make.depend
View File

@ -104,7 +104,6 @@ read_export.o : ../../Modules/wavefunctions.o
read_export.o : ../../PW/src/ldaU.o
read_export.o : ../../PW/src/pwcom.o
read_export.o : ../../UtilXlib/mp.o
read_export.o : ../../iotk/src/iotk_module.o
simple.o : ../../Modules/cell_base.o
simple.o : ../../Modules/constants.o
simple.o : ../../Modules/environment.o

3
PW/src/make.depend
View File

@ -1403,7 +1403,6 @@ potinit.o : ../../Modules/noncol.o
potinit.o : ../../Modules/paw_variables.o
potinit.o : ../../Modules/recvec.o
potinit.o : ../../Modules/uspp.o
potinit.o : ../../Modules/wavefunctions.o
potinit.o : ../../UtilXlib/mp.o
potinit.o : atomic_wfc_mod.o
potinit.o : io_rho_xml.o
@ -1629,8 +1628,6 @@ realus.o : pwcom.o
realus.o : scf_mod.o
remove_atomic_rho.o : ../../Modules/cell_base.o
remove_atomic_rho.o : ../../Modules/control_flags.o
remove_atomic_rho.o : ../../Modules/fft_base.o
remove_atomic_rho.o : ../../Modules/fft_rho.o
remove_atomic_rho.o : ../../Modules/io_base.o
remove_atomic_rho.o : ../../Modules/io_files.o
remove_atomic_rho.o : ../../Modules/io_global.o