From 35266bd513dc84f5476dfb589f218dcf1408833c Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Tue, 10 Apr 2007 11:22:06 +0000 Subject: [PATCH] added nreg to limit number of Jacobi regularizations --- trunk/prec.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/trunk/prec.f90 b/trunk/prec.f90 index 95e8314b8..d9d42098e 100644 --- a/trunk/prec.f90 +++ b/trunk/prec.f90 @@ -10,8 +10,10 @@ ! *** Numerical parameters *** ! *** How frequently the jacobian is recalculated *** integer (pInt), parameter :: ijaco = 5_pInt -! *** Maximum number of internal cutbacks in time step *** - integer(pInt), parameter :: ncut=7_pInt +! *** Maximum number of internal cutbacks in time step *** + integer(pInt), parameter :: ncut=7_pInt +! *** Maximum number of regularization attempts for Jacobi inversion *** + integer(pInt), parameter :: nreg=1_pInt ! *** Perturbation of strain array for numerical calculation of FEM Jacobi matrix *** real(pReal), parameter :: pert_e=1.0e-5_pReal ! *** Maximum number of iterations in outer (statevariables) loop ***