Commit 91b74196 authored by Daniel Wortmann's avatar Daniel Wortmann

Changed behaviour of strho switch. It is now only controlling if FLEUR is...

Changed behaviour of strho switch. It is now only controlling if FLEUR is stopping after generating a
starting density.
parent f85decd1
......@@ -2203,14 +2203,6 @@ SUBROUTINE r_inpXML(&
WRITE(*,*) 'Post processing of input: Small stuff at the end'
input%strho = .FALSE.
IF (.NOT.(input%strho.OR.obsolete%l_f2u.OR.obsolete%l_u2f.OR.sliceplot%iplot)) THEN
IF (noco%l_noco) THEN
INQUIRE (file='rhomat_inp',exist=input%strho) ! if no density (rhoma
ELSE
INQUIRE (file='cdn1',exist=input%strho) ! if no density (cdn1)
END IF
input%strho = .NOT.input%strho ! create a starting density
END IF
l_opti = .FALSE.
IF ((sliceplot%iplot).OR.(input%strho).OR.(input%swsp).OR.&
......
......@@ -263,14 +263,6 @@
oneD%odd%nq2 = oneD%odd%n2d
!-odim
!+t3e
IF (.NOT.(input%strho.OR.obsolete%l_f2u.OR.obsolete%l_u2f.OR.sliceplot%iplot)) THEN
IF (noco%l_noco) THEN
INQUIRE (file='rhomat_inp',exist=input%strho) ! if no density (rhoma
ELSE
INQUIRE (file='cdn1',exist=input%strho) ! if no density (cdn1)
ENDIF
input%strho = .NOT.input%strho ! create a starting density
ENDIF
l_opti = .FALSE.
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.
......
......@@ -85,6 +85,7 @@ CONTAINS
! .. Local Scalars ..
INTEGER :: it
CHARACTER*10 :: cdnfname
LOGICAL :: strho
! ..
it = 1
......@@ -132,7 +133,17 @@ CONTAINS
!
! --->generate starting charge density
!
IF (input%strho) THEN
strho=input%strho
IF (.NOT.(strho.OR.obsolete%l_f2u.OR.obsolete%l_u2f.OR.sliceplot%iplot)) THEN
IF (noco%l_noco) THEN
INQUIRE (file='rhomat_inp',exist=strho) ! if no density (rhoma
ELSE
INQUIRE (file='cdn1',exist=strho) ! if no density (cdn1)
ENDIF
strho = .NOT.strho ! create a starting density
ENDIF
IF (strho) THEN
input%total = .FALSE.
!
CALL timestart("generation of start-density")
......
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