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

Remove < and > character from input file section when writing pseudopotentials 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@9415 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2012-09-10 06:04:36 +00:00
parent 511efb67f5
commit 436c072a70
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/cell_base.f90
View File

@ -69,10 +69,8 @@
INTEGER :: iforceh(3,3) = 1 ! if iforceh( i, j ) = 0 then h( i, j )
! is not allowed to move
LOGICAL :: fix_volume = .FALSE. ! True if cell volume is kept fixed
! 2DSHAPE
LOGICAL :: fix_area = .FALSE. ! True for cell_dofree='2Dshape' to keep area constant
! 2DSHAPE
LOGICAL :: fix_volume = .FALSE.! True if cell volume is kept fixed
LOGICAL :: fix_area = .FALSE. ! True if area in xy plane is kept constant
REAL(DP) :: wmass = 0.0_DP ! cell fictitious mass
REAL(DP) :: press = 0.0_DP ! external pressure

4
Modules/write_upf_v2.f90
View File

@ -203,9 +203,9 @@ CONTAINS
WRITE (u,'("<PP_INPUTFILE>")')
REWIND (unit=u_input)
10 READ (u_input, '(A)',end=20,err=25) line
WRITE (u, '(A)') TRIM(line)
WRITE (u, '(A)') TRIM(CHECK(line))
GO TO 10
25 CALL infomsg('write_upf_v2::write_inputfile', 'reading input data')
25 CALL infomsg('write_upf_v2::write_inputfile', 'problem writing input data')
20 WRITE (u,'("</PP_INPUTFILE>")')
ELSE
CALL infomsg('write_upf_v2::write_inputfile', 'input file not open')