Commit 47c2c3a8 authored by Stefan Rost's avatar Stefan Rost

changed gw=1 behaviour to readuce number of fleur calls

parent 23827ece
......@@ -410,8 +410,10 @@ CONTAINS
CALL writeBasis(input,noco,kpts,atoms,sym,cell,enpara,vTot,vCoul,vx,mpi,DIMENSION,&
results,eig_id,oneD,sphhar,stars,vacuum)
END IF
IF (input%gw.EQ.2) THEN
CALL juDFT_end("GW data written. Fleur ends.",mpi%irank)
END IF
END IF
CALL enpara%mix(mpi,atoms,vacuum,input,vTot%mt(:,0,:,:),vtot%vacz)
field2 = field
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment