From 32ee3a4a663dcc261a8433d085ead24739b7e4c6 Mon Sep 17 00:00:00 2001 From: Pratheek Shanthraj Date: Wed, 26 Nov 2014 00:04:06 +0000 Subject: [PATCH] corrected constitutive_getVacancyPotentialDrivingForce function --- code/constitutive.f90 | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/code/constitutive.f90 b/code/constitutive.f90 index d548c79aa..bb114a5eb 100644 --- a/code/constitutive.f90 +++ b/code/constitutive.f90 @@ -1799,17 +1799,10 @@ real(pReal) function constitutive_getVacancyPotentialDrivingForce(ipc, ip, el) ipc, & !< grain number ip, & !< integration point number el !< element number - real(pReal), dimension(3,3) :: & - constitutive_getVacancyMobility33 - real(pReal), dimension(:), allocatable :: & - accumulatedSlip - integer(pInt) :: & - nSlip select case(phase_vacancy(material_phase(ipc,ip,el))) case (LOCAL_VACANCY_generation_ID) - call constitutive_getAccumulatedSlip(nSlip,accumulatedSlip,ipc,ip,el) - constitutive_getVacancyMobility33 = & + constitutive_getVacancyPotentialDrivingForce = & vacancy_generation_getVacancyPotentialDrivingForce(constitutive_getDamage(ipc, ip, el), & ipc,ip,el)