From f400cdac5b7bba041e182f97f0e6847ba345d315 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 13 Aug 2009 13:27:14 +0000 Subject: [PATCH] corrected paramter check for phenopowerlaw --- code/constitutive_phenopowerlaw.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/constitutive_phenopowerlaw.f90 b/code/constitutive_phenopowerlaw.f90 index d121ad1c8..743b64bcd 100644 --- a/code/constitutive_phenopowerlaw.f90 +++ b/code/constitutive_phenopowerlaw.f90 @@ -314,8 +314,10 @@ subroutine constitutive_phenopowerlaw_init(file) if (any(constitutive_phenopowerlaw_tau0_twin(:,i) < 0.0_pReal .and. & constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(210) - if (constitutive_phenopowerlaw_gdot0_twin(i) <= 0.0_pReal) call IO_error(211) - if (constitutive_phenopowerlaw_n_twin(i) <= 0.0_pReal) call IO_error(212) + if (constitutive_phenopowerlaw_gdot0_twin(i) <= 0.0_pReal) .and. & + constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(211) + if (constitutive_phenopowerlaw_n_twin(i) <= 0.0_pReal) .and. & + constitutive_phenopowerlaw_Ntwin(:,i) > 0)) call IO_error(212) enddo