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