From 028bdcff22aed5717f70f63a07a8ee8f5fa3716d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 16 May 2019 22:24:42 +0200 Subject: [PATCH] less compiler complaints --- src/crystallite.f90 | 5 ----- src/damage_local.f90 | 2 +- src/kinematics_cleavage_opening.f90 | 2 +- src/kinematics_slipplane_opening.f90 | 2 +- src/thermal_adiabatic.f90 | 1 - 5 files changed, 3 insertions(+), 9 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 3116345b6..dce93695a 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1125,9 +1125,6 @@ subroutine crystallite_results use config, only: & config_name_phase => phase_name ! anticipate logical name - use material, only: & - material_phase_plasticity_type => phase_plasticity - integer :: p,o real(pReal), allocatable, dimension(:,:,:) :: selected_tensors type(rotation), allocatable, dimension(:) :: selected_rotations @@ -2588,8 +2585,6 @@ logical function stateJump(ipc,ip,el) sourceState, & phase_Nsources, & phaseAt, phasememberAt - use mesh, only: & - mesh_element use constitutive, only: & constitutive_collectDeltaState diff --git a/src/damage_local.f90 b/src/damage_local.f90 index 1ec42f863..2db8cccc1 100644 --- a/src/damage_local.f90 +++ b/src/damage_local.f90 @@ -61,7 +61,7 @@ subroutine damage_local_init config_homogenization - integer :: maxNinstance,homog,instance,o,i + integer :: maxNinstance,homog,instance,i integer :: sizeState integer :: NofMyHomog, h integer(kind(undefined_ID)) :: & diff --git a/src/kinematics_cleavage_opening.f90 b/src/kinematics_cleavage_opening.f90 index 349551d4d..a79dc4042 100644 --- a/src/kinematics_cleavage_opening.f90 +++ b/src/kinematics_cleavage_opening.f90 @@ -71,7 +71,7 @@ subroutine kinematics_cleavage_opening_init() integer, allocatable, dimension(:) :: tempInt real(pReal), allocatable, dimension(:) :: tempFloat - integer :: maxNinstance,p,instance,kinematics + integer :: maxNinstance,p,instance write(6,'(/,a)') ' <<<+- kinematics_'//KINEMATICS_cleavage_opening_LABEL//' init -+>>>' diff --git a/src/kinematics_slipplane_opening.f90 b/src/kinematics_slipplane_opening.f90 index 7a0b2fe99..f29c0e252 100644 --- a/src/kinematics_slipplane_opening.f90 +++ b/src/kinematics_slipplane_opening.f90 @@ -57,7 +57,7 @@ subroutine kinematics_slipplane_opening_init() use lattice - integer :: maxNinstance,p,instance,kinematics + integer :: maxNinstance,p,instance write(6,'(/,a)') ' <<<+- kinematics_'//KINEMATICS_slipplane_opening_LABEL//' init -+>>>' diff --git a/src/thermal_adiabatic.f90 b/src/thermal_adiabatic.f90 index bfc34d1c4..bfd5633d1 100644 --- a/src/thermal_adiabatic.f90 +++ b/src/thermal_adiabatic.f90 @@ -163,7 +163,6 @@ subroutine thermal_adiabatic_getSourceAndItsTangent(Tdot, dTdot_dT, T, ip, el) use material, only: & homogenization_Ngrains, & material_homogenizationAt, & - mappingHomogenization, & phaseAt, & phasememberAt, & thermal_typeInstance, &