2015-05-28 22:32:23 +05:30
|
|
|
!--------------------------------------------------------------------------------------------------
|
2016-02-29 18:56:06 +05:30
|
|
|
!> @author Luv Sharma, Max-Planck-Institut für Eisenforschung GmbH
|
|
|
|
|
!> @author Pratheek Shanthraj, Max-Planck-Institut für Eisenforschung GmbH
|
2015-05-28 22:32:23 +05:30
|
|
|
!> @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
|
2019-05-28 15:36:21 +05:30
|
|
|
|
2015-05-28 22:32:23 +05:30
|
|
|
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-01-26 01:01:12 +05:30
|
|
|
|
2021-02-13 23:11:30 +05:30
|
|
|
logical, dimension(:), allocatable :: myKinematics
|
2015-05-28 22:32:23 +05:30
|
|
|
|
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
|
