Commit f8cd0f91 authored by Daniel Wortmann's avatar Daniel Wortmann

More changes needed for on the fly generation of starting density

parent 91b74196
......@@ -173,10 +173,10 @@
& )
ENDIF
!
IF (.NOT.l_opti) THEN
!IF (.NOT.l_opti) THEN
CALL inpeig(&
& atoms,cell,input,oneD%odd%d1,kpts,enpara)
ENDIF
!ENDIF
!
!-----> prepare dimensions for charge density fft-box in pwden.f
!
......
......@@ -263,7 +263,9 @@
oneD%odd%nq2 = oneD%odd%n2d
!-odim
!+t3e
l_opti = .FALSE.
INQUIRE(file="cdn1",exist=l_opti)
if (noco%l_noco) INQUIRE(file="rhomat_inp",exist=l_opti)
l_opti=.not.l_opti
IF ((sliceplot%iplot).OR.(input%strho).OR.(input%swsp).OR.&
& (input%lflip).OR.(obsolete%l_f2u).OR.(obsolete%l_u2f).OR.(input%l_bmt)) l_opti = .TRUE.
......
......@@ -144,6 +144,7 @@ CONTAINS
ENDIF
IF (strho) THEN
strho=input%total
input%total = .FALSE.
!
CALL timestart("generation of start-density")
......@@ -156,6 +157,7 @@ CONTAINS
& obsolete,&
& oneD)
!
input%total=strho
CALL timestart("generation of start-density")
END IF
IF (mpi%irank == 0) THEN
......
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