223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

removed unused variables 

corrected allocation error in constitutive_dislo.f90
This commit is contained in:
Franz Roters 2007-10-24 15:24:49 +00:00
parent 20693b9d38
commit 909ebf2cd0
2 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/constitutive_dislo.f90
View File

@ -572,7 +572,7 @@ implicit none
!* Definition of variables !* Definition of variables
integer(pInt) e,i,j,k,l,m,o,g,s integer(pInt) e,i,j,k,l,m,o,g,s
integer(pInt) matID,texID integer(pInt) matID,texID
real(pReal) K_inter,x,y real(pReal) x,y
integer(pInt), dimension(:,:,:), allocatable :: hybridIA_population integer(pInt), dimension(:,:,:), allocatable :: hybridIA_population
integer(pInt), dimension(texture_maxN) :: Ncomponents,Nsym,multiplicity,sumVolfrac,ODFmap,sampleCount integer(pInt), dimension(texture_maxN) :: Ncomponents,Nsym,multiplicity,sumVolfrac,ODFmap,sampleCount
real(pReal), dimension(3,4*(1+texture_maxNGauss+texture_maxNfiber)) :: Euler 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 constitutive_state_old=0.0_pReal
allocate(constitutive_state_new(constitutive_maxNstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems)) allocate(constitutive_state_new(constitutive_maxNstatevars,constitutive_maxNgrains,mesh_maxNips,mesh_NcpElems))
constitutive_state_new=0.0_pReal 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 constitutive_Pforest=0.0_pReal
allocate(constitutive_Pparallel(material_maxNslip,material_maxNslip,material_maxN)) allocate(constitutive_Pparallel(material_maxNslip,material_maxNslip,material_maxN))
constitutive_Pparallel=0.0_pReal constitutive_Pparallel=0.0_pReal

7
trunk/mesh.f90
View File

@ -334,7 +334,7 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements
use IO use IO
implicit none implicit none
integer(pInt) unit,i,pos(41),mesh_NelemInSet integer(pInt) unit,i,pos(41)
character*300 line character*300 line
610 FORMAT(A300) 610 FORMAT(A300)
@ -437,7 +437,7 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements
implicit none implicit none
integer unit, i,elem_set integer unit, elem_set
character*300 line character*300 line
integer(pInt), dimension (9) :: pos ! count plus 4 entities on a 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(133) :: pos
integer(pInt), dimension(1+mesh_NcpElems) :: contInts integer(pInt), dimension(1+mesh_NcpElems) :: contInts
character*300 line character*300 line
logical :: loadcaseInit = .FALSE.
allocate (mesh_element (4+mesh_maxNnodes,mesh_NcpElems)) ; mesh_element = 0_pInt 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 use prec, only: pInt
implicit none implicit none
integer(pInt) i,j integer(pInt) i
integer(pInt), dimension (:,:), allocatable :: mesh_MatTex integer(pInt), dimension (:,:), allocatable :: mesh_MatTex
character(len=64) fmt character(len=64) fmt
allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2))) allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2)))