Commit 9525c2e9 authored by Daniel Wortmann's avatar Daniel Wortmann

Separated off code for old inp-files+Bugfixes

parent 5589f8b8
......@@ -5,7 +5,7 @@ init/bravais.f
init/brzone.f
init/convn_dim.f
init/divi.f
init/first_glance.f
init/old_inp/first_glance.f
init/fulstar.f
init/gtest.f
init/ifft235.f
......@@ -32,15 +32,15 @@ init/compile_descr.F90
init/kpoints.f90
init/apws_dim.f90
init/checks.F90
init/dimen7.F90
init/dimens.F90
init/old_inp/dimen7.F90
init/old_inp/dimens.F90
init/efield.f90
init/gen_bz.F90
init/gen_map.f90
init/gkptwgt.f90
init/inped.F90
init/old_inp/inped.F90
init/inpeig.f90
init/inpeig_dim.f90
init/old_inp/inpeig_dim.f90
init/julia.f90
init/mapatom.F90
init/od_mapatom.F90
......@@ -49,10 +49,11 @@ init/parawrite.f90
init/prp_qfft.f90
init/prp_xcfft.f90
init/setlomap.F90
init/setup.f90
init/old_inp/setup.f90
init/stepf.F90
init/strgn.f90
init/brzone2.f90
init/postprocessInput.F90
init/initParallelProcesses.F90
init/old_inp/fleur_init_old.F90
)
This diff is collapsed.
This diff is collapsed.
......@@ -38,12 +38,13 @@ MODULE m_types_enpara
PUBLIC:: t_enpara
CONTAINS
SUBROUTINE init(this,atoms,jspins)
SUBROUTINE init(this,atoms,jspins,l_defaults)
USE m_types_setup
USE m_constants
CLASS(t_enpara),INTENT(inout):: this
TYPE(t_atoms),INTENT(IN) :: atoms
INTEGER,INTENT(IN) :: jspins
LOGICAL,INTENT(IN),OPTIONAL :: l_defaults
INTEGER :: n,i,jsp,l
......@@ -69,6 +70,9 @@ CONTAINS
ALLOCATE(this%qn_el(0:3,atoms%ntype,jspins))
ALLOCATE(this%qn_ello(atoms%nlod,atoms%ntype,jspins))
IF (PRESENT(l_defaults)) THEN
IF (.NOT.l_defaults) RETURN
ENDIF
!Set most simple defaults
DO jsp=1,jspins
DO n = 1,atoms%ntype
......
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