From 3b113f6a62aecdc1b67f9cc8b3a702dd53f8aa0f Mon Sep 17 00:00:00 2001
From: Pratheek Shanthraj
Date: Wed, 13 Nov 2013 19:38:25 +0000
Subject: [PATCH] more errors :)
---
code/DAMASK_spectral_solverBasicPETSc.f90 | 4 ----
1 file changed, 4 deletions(-)
diff --git a/code/DAMASK_spectral_solverBasicPETSc.f90 b/code/DAMASK_spectral_solverBasicPETSc.f90
index d1b986fd8..2f90cc088 100644
--- a/code/DAMASK_spectral_solverBasicPETSc.f90
+++ b/code/DAMASK_spectral_solverBasicPETSc.f90
@@ -472,8 +472,6 @@ subroutine BasicPETSC_formResidual(in,x_scal,f_scal,dummy,ierr)
use homogenization, only: &
materialpoint_heat, &
materialpoint_P
- use constitutive, only: &
- crystallite_damage
implicit none
DMDALocalInfo, dimension(DMDA_LOCAL_INFO_SIZE) :: &
@@ -548,8 +546,6 @@ subroutine BasicPETSC_formResidual(in,x_scal,f_scal,dummy,ierr)
if(params%phaseFieldData(i)%label == 'fracture') &
residual_F = residual_F * spread(x_scal(9+i,1:grid(1),1:grid(2),1:grid(3)),dim=1,ncopies=9)
enddo
- write(6,'(/,a,/,3(3(f12.7,1x)/))',advance='no') ' stress (MPa) =', &
- math_transpose33(sum(sum(sum(residual_F,dim=4),dim=3),dim=2)*wgt/1e6)
!--------------------------------------------------------------------------------------------------
! stress BC handling