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

Mancava un'allocazione nel caso del postproc con campo E. 

git-svn-id: http://qeforge.qe-forge.org/svn/q-e/trunk/espresso@271 c92efa57-630b-4861-b058-cf58834340f0
This commit is contained in:
dalcorso 2003-07-22 14:27:27 +00:00
parent 09f9816359
commit 82de15edb1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
PW/read_file.f90
View File

@ -70,6 +70,7 @@ subroutine read_file
allocate(tau (3, nat) )
allocate(ityp (nat) )
allocate(force (3, nat) )
if (tefield) allocate(forcefield (3, nat) )
allocate (irt( 48, nat))
allocate (tetra(4, MAX(ntetra,1)))
!
@ -192,6 +193,7 @@ subroutine read_file
allocate(tau (3, nat) )
allocate(ityp (nat) )
allocate(force (3, nat) )
if (tefield) allocate(forcefield (3, nat) )
allocate (irt( 48, nat))
if (ltetra) allocate (tetra(4, ntetra))
!