From 1f7f7d36fa783914a49b45e2654960f5a2215f37 Mon Sep 17 00:00:00 2001
From: Daniel Wortmann <d.wortmann@fz-juelich.de>
Date: Thu, 15 Dec 2016 10:41:51 +0100
Subject: [PATCH] Do only continuity checking of starting charge density if
 vchk=T This might otherwise take a long time and is serial!

---
 optional/stden.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/optional/stden.f90 b/optional/stden.f90
index 677c2d14..dcf15bc7 100644
--- a/optional/stden.f90
+++ b/optional/stden.f90
@@ -254,7 +254,7 @@
              !
              ! Check continuity
              !
-             IF (atoms%ntype<100)THEN
+             IF (input%vchk)THEN
                 DO ispin = 1,input%jspins
                    WRITE (6,'(a8,i2)') 'spin No.',ispin
                    IF (input%film .AND. .NOT.oneD%odi%d1) THEN
-- 
GitLab