DAMASK_EICMD/trunk/prec.f90

33 lines
1.5 KiB
Fortran
Raw Normal View History

!##############################################################
MODULE prec
!##############################################################
implicit none
! *** Precision of real and integer variables ***
integer, parameter :: pReal = 8
2007-03-20 21:28:53 +05:30
integer, parameter :: pInt = 4
! *** Numerical parameters ***
! *** How frequently the jacobian is recalculated ***
integer (pInt), parameter :: ijaco = 1_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 = 500_pInt
! *** Convergence criteria for outer (state variables) loop ***
real(pReal), parameter :: reltol_State = 1.0e-6_pReal
! *** Maximum number of iterations in inner (stress) loop ***
integer(pInt), parameter :: nStress = 1000_pInt
! *** Convergence criteria for inner (stress) loop ***
real(pReal), parameter :: reltol_Stress = 1.0e-6_pReal
! *** Convergence criteria for inner (stress) loop ***
real(pReal), parameter :: abstol_Stress = 1.0e3_pReal
! *** Convergence criteria for inner (stress) loop ***
real(pReal), parameter :: abstol_ResStress = 1.0_pReal
END MODULE prec