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

D3 updated to the new convention on the record lenghts. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@10168 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2013-04-19 13:48:26 +00:00
parent 56e540e8e3
commit 1863022f1e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
PHonon/D3/d3_init.f90
View File

@ -52,8 +52,14 @@ SUBROUTINE d3_init
ENDIF
!
! uses the same initialization routines as the phonon program
! Temporary: Note that now phq_init uses buffers so the size of the
! records must be declared 1/2 of davcio (please fix me or use buffers in
! d3)
!
lrwfc=lrwfc/2
CALL phq_init
lrwfc=lrwfc*2
CALL write_igk
!
! the fourier components of the local potential at q+G for q=0