2003-01-20 05:58:50 +08:00
|
|
|
!
|
2009-08-02 01:48:59 +08:00
|
|
|
! Copyright (C) 2001-2006 Quantum ESPRESSO group
|
2003-01-20 05:58:50 +08:00
|
|
|
! This file is distributed under the terms of the
|
|
|
|
! GNU General Public License. See the file `License'
|
|
|
|
! in the root directory of the present distribution,
|
|
|
|
! or http://www.gnu.org/copyleft/gpl.txt .
|
|
|
|
!
|
2005-06-28 23:50:30 +08:00
|
|
|
!----------------------------------------------------------------------------
|
2006-03-11 06:27:28 +08:00
|
|
|
SUBROUTINE punch( what )
|
2005-06-28 23:50:30 +08:00
|
|
|
!----------------------------------------------------------------------------
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
2005-10-07 02:16:17 +08:00
|
|
|
! ... This routine is called at the end of the run to save to a file
|
|
|
|
! ... the information needed for further processing (phonon etc.)
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
2004-09-27 17:11:56 +08:00
|
|
|
USE io_global, ONLY : stdout
|
2007-01-29 18:40:07 +08:00
|
|
|
USE io_files, ONLY : prefix, iunpun
|
2006-06-30 23:07:17 +08:00
|
|
|
USE pw_restart, ONLY : pw_writefile
|
2006-04-05 21:15:37 +08:00
|
|
|
USE a2F, ONLY : la2F, a2Fsave
|
2004-09-27 17:11:56 +08:00
|
|
|
!
|
|
|
|
IMPLICIT NONE
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
2006-03-11 06:27:28 +08:00
|
|
|
CHARACTER(LEN=*) :: what
|
2003-01-20 05:58:50 +08:00
|
|
|
!
|
|
|
|
!
|
2005-12-18 05:21:19 +08:00
|
|
|
WRITE( UNIT = stdout, FMT = '(/,5X,"Writing output data file ",A)' ) &
|
2006-03-14 00:38:03 +08:00
|
|
|
TRIM( prefix ) // '.save'
|
2005-12-18 05:21:19 +08:00
|
|
|
!
|
2005-12-13 22:45:35 +08:00
|
|
|
iunpun = 4
|
2005-06-28 23:50:30 +08:00
|
|
|
!
|
2006-03-11 06:27:28 +08:00
|
|
|
CALL pw_writefile( TRIM( what ) )
|
2004-09-27 17:11:56 +08:00
|
|
|
!
|
2006-04-05 21:15:37 +08:00
|
|
|
IF ( la2F ) CALL a2Fsave()
|
2005-12-13 22:45:35 +08:00
|
|
|
!
|
2004-09-27 17:11:56 +08:00
|
|
|
RETURN
|
|
|
|
!
|
|
|
|
END SUBROUTINE punch
|