From 909ebf2cd042e4eb196baa0a016c12f6c4ec9836 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Wed, 24 Oct 2007 15:24:49 +0000 Subject: [PATCH] removed unused variables corrected allocation error in constitutive_dislo.f90 --- trunk/constitutive_dislo.f90 | 4 ++-- trunk/mesh.f90 | 7 +++---- 2 files changed, 5 insertions(+), 6 deletions(-) diff --git a/trunk/constitutive_dislo.f90 b/trunk/constitutive_dislo.f90 index a6a75ad72..d74c55a16 100644 --- a/trunk/constitutive_dislo.f90 +++ b/trunk/constitutive_dislo.f90 @@ -572,7 +572,7 @@ implicit none !* Definition of variables integer(pInt) e,i,j,k,l,m,o,g,s integer(pInt) matID,texID -real(pReal) K_inter,x,y +real(pReal) x,y integer(pInt), dimension(:,:,:), allocatable :: hybridIA_population integer(pInt), dimension(texture_maxN) :: Ncomponents,Nsym,multiplicity,sumVolfrac,ODFmap,sampleCount real(pReal), dimension(3,4*(1+texture_maxNGauss+texture_maxNfiber)) :: Euler @@ -644,7 +644,7 @@ allocate(constitutive_state_old(constitutive_maxNstatevars,constitutive_maxNgrai constitutive_state_old=0.0_pReal allocate(constitutive_state_new(constitutive_maxNstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) constitutive_state_new=0.0_pReal -allocate(constitutive_Pforest(material_maxNslip,constitutive_material_maxNslip,material_maxN)) +allocate(constitutive_Pforest(material_maxNslip,material_maxNslip,material_maxN)) constitutive_Pforest=0.0_pReal allocate(constitutive_Pparallel(material_maxNslip,material_maxNslip,material_maxN)) constitutive_Pparallel=0.0_pReal diff --git a/trunk/mesh.f90 b/trunk/mesh.f90 index 6515e58de..90de6b4df 100644 --- a/trunk/mesh.f90 +++ b/trunk/mesh.f90 @@ -334,7 +334,7 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements use IO implicit none - integer(pInt) unit,i,pos(41),mesh_NelemInSet + integer(pInt) unit,i,pos(41) character*300 line 610 FORMAT(A300) @@ -437,7 +437,7 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements implicit none - integer unit, i,elem_set + integer unit, elem_set character*300 line integer(pInt), dimension (9) :: pos ! count plus 4 entities on a line @@ -615,7 +615,6 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements integer(pInt), dimension(133) :: pos integer(pInt), dimension(1+mesh_NcpElems) :: contInts character*300 line - logical :: loadcaseInit = .FALSE. allocate (mesh_element (4+mesh_maxNnodes,mesh_NcpElems)) ; mesh_element = 0_pInt @@ -798,7 +797,7 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matc use prec, only: pInt implicit none - integer(pInt) i,j + integer(pInt) i integer(pInt), dimension (:,:), allocatable :: mesh_MatTex character(len=64) fmt allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2)))