Commit c43fd697 authored by Frank Freimuth's avatar Frank Freimuth

Update fleur_init.F90

parent 31f4bf1f
......@@ -37,7 +37,7 @@
USE m_types_xcpot_inbuild
USE m_mpi_bc_xcpot
input%eig66(1)=.FALSE.
#ifdef CPP_MPI
USE m_mpi_bc_all, ONLY : mpi_bc_all
#ifndef CPP_OLDINTEL
......@@ -115,7 +115,7 @@
#endif
!call juDFT_check_para()
CALL field%init(input)
input%eig66(1)=.FALSE.
input%gw = -1
input%gw_neigd = 0
!-t3e
......
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