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

33 lines
847 B
Fortran
Raw Normal View History

added version information to all files do NOT edit text like this: $Id: constitutive_phenopowerlaw.f90 406 2009-08-31 14:13:10Z MPIE\f.roters $
2009-08-31 20:39:15 +05:30
!* $Id$
let's see whether this is the thing to do..!?!?
2007-03-20 19:25:22 +05:30
!##############################################################
MODULE prec
!##############################################################
implicit none
added a new module called numerics.f90 which reads in all numerical "parameters" from the file numerics.config (also being added). From now on this file has to be located in the working directory of the FEM-model and has to contain all necessary parameters.
2009-06-15 18:41:21 +05:30
moved all numerical parameters to prec.f90 removed some unused variables
2007-03-29 12:45:12 +05:30
! *** Precision of real and integer variables ***
in crystallite_stressAndItsTangent we now update the state first (explicit integration) and then integrate the stress (implicit integration) also inside the stress integration, it is now possible to define the frequency of the Jacobian update oin the LpLoop through iJacoLpResiduum. The frequency of the Jacobian update for the stiffness in the crystallite loop is controlled by the parameter iJacoStiffness. also updated the corresponding stuctograms in the documentation
2009-06-09 16:35:29 +05:30
integer, parameter :: pReal = selected_real_kind(15,300) ! 15 significant digits, up to 1e+-300
integer, parameter :: pInt = selected_int_kind(9) ! up to +- 1e9
integer, parameter :: pLongInt = 8 ! should be 64bit
some polishing for single precision version. Now only prec and mpie_spectral are needed in different versions
2011-02-25 18:11:46 +05:30
real(pReal), parameter :: tol_math_check = 1.0e-8_pReal
real(pReal), parameter :: tol_gravityNodePos = 1.0e-100_pReal
overhaul to allow for multiphase/homogenization setup.
2009-03-04 17:18:54 +05:30
type :: p_vec
real(pReal), dimension(:), pointer :: p
end type p_vec
let's see whether this is the thing to do..!?!?
2007-03-20 19:25:22 +05:30
added version information to all files do NOT edit text like this: $Id: constitutive_phenopowerlaw.f90 406 2009-08-31 14:13:10Z MPIE\f.roters $
2009-08-31 20:39:15 +05:30
CONTAINS
subroutine prec_init
some polishing for single precision version. Now only prec and mpie_spectral are needed in different versions
2011-02-25 18:11:46 +05:30
implicit none
added version information to all files do NOT edit text like this: $Id: constitutive_phenopowerlaw.f90 406 2009-08-31 14:13:10Z MPIE\f.roters $
2009-08-31 20:39:15 +05:30
write(6,*)
write(6,*) '<<<+- prec init -+>>>'
write(6,*) '$Id$'
write(6,*)
return
end subroutine
let's see whether this is the thing to do..!?!?
2007-03-20 19:25:22 +05:30
END MODULE prec