From b0809a8afe264a3534fe5ec7fe2e942396b67d11 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Mon, 28 Aug 2023 17:59:37 -0400 Subject: [PATCH] function is obsolete --- src/phase_mechanical_eigen.f90 | 28 ---------------------------- 1 file changed, 28 deletions(-) diff --git a/src/phase_mechanical_eigen.f90 b/src/phase_mechanical_eigen.f90 index 5bdb57f57..8e0f7209a 100644 --- a/src/phase_mechanical_eigen.f90 +++ b/src/phase_mechanical_eigen.f90 @@ -95,34 +95,6 @@ function kinematics_active(kinematics_label,kinematics_length) result(active_ki end function kinematics_active - -!-------------------------------------------------------------------------------------------------- -!> @brief Checks if a damage kinematic mechanism is active. -!-------------------------------------------------------------------------------------------------- -function kinematics_active2(kinematics_label) result(active_kinematics) - - character(len=*), intent(in) :: kinematics_label !< name of kinematic mechanism - logical, dimension(:), allocatable :: active_kinematics - - type(tDict), pointer :: & - phases, & - phase, & - kinematics_type - integer :: ph - - - phases => config_material%get_dict('phase') - allocate(active_kinematics(phases%length), source = .false.) - do ph = 1, phases%length - phase => phases%get_dict(ph) - kinematics_type => phase%get_dict('damage',defaultVal=emptyDict) - active_kinematics(ph) = kinematics_type%get_asStr('type',defaultVal='n/a') == kinematics_label - end do - - -end function kinematics_active2 - - !-------------------------------------------------------------------------------------------------- !> @brief contains the constitutive equation for calculating the velocity gradient ! ToDo: MD: S is Mi?