223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

added nreg to limit number of Jacobi regularizations

This commit is contained in:
Philip Eisenlohr 2007-04-10 11:22:06 +00:00
parent 84eeddc6ba
commit 35266bd513
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/prec.f90
View File

@ -12,6 +12,8 @@
integer (pInt), parameter :: ijaco = 5_pInt integer (pInt), parameter :: ijaco = 5_pInt
! *** Maximum number of internal cutbacks in time step *** ! *** Maximum number of internal cutbacks in time step ***
integer(pInt), parameter :: ncut=7_pInt 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 *** ! *** Perturbation of strain array for numerical calculation of FEM Jacobi matrix ***
real(pReal), parameter :: pert_e=1.0e-5_pReal real(pReal), parameter :: pert_e=1.0e-5_pReal
! *** Maximum number of iterations in outer (statevariables) loop *** ! *** Maximum number of iterations in outer (statevariables) loop ***