DAMASK_EICMD/src/phase_mechanical_eigen_clea...

31 lines
1.2 KiB
Fortran
Raw Normal View History

!--------------------------------------------------------------------------------------------------
!> @author Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH
!> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH
!> @brief material subroutine incorporating kinematics resulting from opening of cleavage planes
!> @details to be done
!--------------------------------------------------------------------------------------------------
2021-02-13 23:27:41 +05:30
submodule(phase:eigen) cleavageopening
contains
!--------------------------------------------------------------------------------------------------
!> @brief module initialization
!> @details reads in material parameters, allocates arrays, and does sanity checks
!--------------------------------------------------------------------------------------------------
2021-04-06 15:48:48 +05:30
module function damage_anisobrittle_init() result(myKinematics)
2021-02-13 23:11:30 +05:30
logical, dimension(:), allocatable :: myKinematics
2021-02-13 23:11:30 +05:30
myKinematics = kinematics_active2('anisobrittle')
if(count(myKinematics) == 0) return
2021-02-13 23:27:41 +05:30
print'(/,a)', ' <<<+- phase:mechanical:eigen:cleavageopening init -+>>>'
2021-02-13 23:11:30 +05:30
print'(a,i2)', ' # phases: ',count(myKinematics); flush(IO_STDOUT)
2020-08-15 19:32:10 +05:30
2021-04-06 15:48:48 +05:30
end function damage_anisobrittle_init
2020-02-28 14:34:38 +05:30
2020-02-29 14:50:38 +05:30
2021-01-27 01:13:30 +05:30
end submodule cleavageopening