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

Not sure the calculation of dynamical matrices for supercells works, 

but for sure, it wasn't working


git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@5353 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
giannozz 2009-01-20 21:00:18 +00:00
parent 8c4826bb19
commit 7969940a5d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
PH/matdyn.f90
View File

@ -240,7 +240,7 @@ PROGRAM matdyn
!!!
nax_blk = nat_blk
!!!
ALLOCATE ( tau (3, nat), ityp(nat), itau_blk(nat_blk) )
ALLOCATE ( tau (3, nat), ityp(nat), itau_blk(nat) )
!
IF (readtau) THEN
CALL read_tau &
@ -280,7 +280,7 @@ PROGRAM matdyn
!
READ (5,*) nq
ALLOCATE ( q(3,nq) )
ALLOCATE( tetra(0,0) )
ALLOCATE( tetra(1,1) )
DO n = 1,nq
READ (5,*) (q(i,n),i=1,3)
END DO