DAMASK_EICMD/trunk/prec.f90

!##############################################################
 MODULE prec
!##############################################################

 implicit none
!    *** Precision of real and integer variables ***
 integer, parameter :: pReal = 8
 integer, parameter :: pInt  = 4
!    *** 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 :: nCutback = 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 (state variables) loop ***
 integer(pInt), parameter :: nState    = 50_pInt
!    *** Convergence criteria for outer (state variables) loop ***
 real(pReal),   parameter :: tol_State = 1.0e-6_pReal
!    *** Maximum number of iterations in inner (stress) loop ***
 integer(pInt), parameter :: nStress    = 2000_pInt
!    *** Convergence criteria for inner (stress) loop ***
 real(pReal),   parameter :: tol_Stress = 1.0e-6_pReal   
!    *** Factor for maximum stress correction in inner (stress) loop ***
 real(pReal),   parameter :: crite     = 1.0e-1_pReal 

 END MODULE prec