Commit 1f7f7d36 authored by Daniel Wortmann's avatar Daniel Wortmann

Do only continuity checking of starting charge density if vchk=T

This might otherwise take a long time and is serial!
parent 418fb749
...@@ -254,7 +254,7 @@ ...@@ -254,7 +254,7 @@
! !
! Check continuity ! Check continuity
! !
IF (atoms%ntype<100)THEN IF (input%vchk)THEN
DO ispin = 1,input%jspins DO ispin = 1,input%jspins
WRITE (6,'(a8,i2)') 'spin No.',ispin WRITE (6,'(a8,i2)') 'spin No.',ispin
IF (input%film .AND. .NOT.oneD%odi%d1) THEN IF (input%film .AND. .NOT.oneD%odi%d1) 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