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

Initialization of check_stop in the phonon code. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@3227 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2006-06-30 08:54:04 +00:00
parent a914e9ea61
commit f561740bc8
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
PH/phonon.f90
View File

@ -37,6 +37,7 @@ PROGRAM phonon
USE output, ONLY : fildyn, fildrho
USE global_version, ONLY : version_number
USE ramanm, ONLY : lraman, elop
USE check_stop, ONLY : check_stop_init
!
IMPLICIT NONE
!
@ -67,6 +68,8 @@ PROGRAM phonon
!
CALL phq_readin()
!
CALL check_stop_init()
!
! ... Checking the status of the calculation
!
iustat = 98