From bf24bd83f21c618fff77d576d3ba33a0e1895b1f Mon Sep 17 00:00:00 2001
From: Pratheek Shanthraj
Date: Wed, 18 Jun 2014 13:26:16 +0000
Subject: [PATCH] fixed error check for CoverA ratio
---
code/lattice.f90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/code/lattice.f90 b/code/lattice.f90
index 44ed403fc..ac3af5208 100644
--- a/code/lattice.f90
+++ b/code/lattice.f90
@@ -946,7 +946,7 @@ subroutine lattice_init
enddo
do i = 1_pInt,Nphases
- if (CoverA(i) < 1.0_pReal .or. CoverA(i) > 2.0_pReal &
+ if ((CoverA(i) < 1.0_pReal .or. CoverA(i) > 2.0_pReal) &
.and. lattice_structure(i) == LATTICE_hex_ID) call IO_error(206_pInt) ! checking physical significance of c/a
call lattice_initializeStructure(i, CoverA(i))
enddo