From 020e697b7468abca06ae78eeee42fb0db8e43a04 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 1 Oct 2014 20:36:00 +0000 Subject: [PATCH] small polishing --- code/lattice.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index aba0365ea..f705cf707 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -942,9 +942,8 @@ subroutine lattice_init call IO_error(0_pInt,ext_msg = 'LATTICE_maxNslip') if (LATTICE_maxNtwin /= maxval([LATTICE_fcc_Ntwin,LATTICE_bcc_Ntwin,LATTICE_hex_Ntwin])) & call IO_error(0_pInt,ext_msg = 'LATTICE_maxNtwin') - if (LATTICE_maxNtrans /= maxval([LATTICE_fcc_Ntrans,LATTICE_bcc_Ntrans,LATTICE_hex_Ntrans])) then + if (LATTICE_maxNtrans /= maxval([LATTICE_fcc_Ntrans,LATTICE_bcc_Ntrans,LATTICE_hex_Ntrans])) & call IO_error(0_pInt,ext_msg = 'LATTICE_maxNtrans') - endif if (LATTICE_maxNnonSchmid /= maxval([lattice_fcc_NnonSchmid,lattice_bcc_NnonSchmid,& lattice_hex_NnonSchmid])) call IO_error(0_pInt,ext_msg = 'LATTICE_maxNnonSchmid')