Commit c6bdc558 authored by dalcorso's avatar dalcorso

disk_io='none' does not write the punch files any more.


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@8753 c92efa57-630b-4861-b058-cf58834340f0
parent c77f6071
......@@ -14,6 +14,7 @@ SUBROUTINE punch( what )
!
USE io_global, ONLY : stdout
USE io_files, ONLY : prefix, iunpun
USE control_flags, ONLY : io_level
USE pw_restart, ONLY : pw_writefile
USE a2F, ONLY : la2F, a2Fsave
!
......@@ -22,6 +23,8 @@ SUBROUTINE punch( what )
CHARACTER(LEN=*) :: what
!
!
IF (io_level < 0 ) RETURN
!
WRITE( UNIT = stdout, FMT = '(/,5X,"Writing output data file ",A)' ) &
TRIM( prefix ) // '.save'
!
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment