From 5a4a7393b9c5b647434994bc5a64a64da69b355f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 28 Apr 2020 19:17:34 +0200 Subject: [PATCH] statements belong together --- src/lattice.f90 | 1 - 1 file changed, 1 deletion(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 120c58a15..b1e286f97 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -2304,7 +2304,6 @@ subroutine unitTest system = reshape([1.0_pReal+r(1),0.0_pReal,0.0_pReal, 0.0_pReal,1.0_pReal+r(2),0.0_pReal],[6,1]) CoSy = buildCoordinateSystem([1],[1],system,'fcc',0.0_pReal) - if(any(dNeq(CoSy(1:3,1:3,1),math_I3))) & call IO_error(0)