From 1f7f7d36fa783914a49b45e2654960f5a2215f37 Mon Sep 17 00:00:00 2001 From: Daniel Wortmann 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