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

keyword "table" appeared more than once -- restricted interpretation to header

This commit is contained in:
William Counts 2007-09-28 14:56:26 +00:00
parent 892f33591c
commit 7bc27e02ca
1 changed files with 22 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
trunk/mesh.f90
View File

@ -47,6 +47,7 @@
integer(pInt), dimension(:,:,:,:), allocatable :: mesh_ipNeighborhood integer(pInt), dimension(:,:,:,:), allocatable :: mesh_ipNeighborhood
real(pReal), allocatable :: mesh_node (:,:) real(pReal), allocatable :: mesh_node (:,:)
integer(pInt) :: hypoelasticTableStyle = 0
integer(pInt), parameter :: FE_Nelemtypes = 2 integer(pInt), parameter :: FE_Nelemtypes = 2
integer(pInt), parameter :: FE_maxNnodes = 8 integer(pInt), parameter :: FE_maxNnodes = 8
integer(pInt), parameter :: FE_maxNips = 8 integer(pInt), parameter :: FE_maxNips = 8
@ -135,7 +136,6 @@
implicit none implicit none
integer(pInt), parameter :: fileUnit = 222 integer(pInt), parameter :: fileUnit = 222
integer(pInt), parameter :: hypoelasticTableStyle = 0
mesh_Nelems = 0_pInt mesh_Nelems = 0_pInt
mesh_NcpElems = 0_pInt mesh_NcpElems = 0_pInt
@ -293,12 +293,12 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements
select case ( IO_lc(IO_Stringvalue(line,pos,1))) select case ( IO_lc(IO_Stringvalue(line,pos,1)))
case('table') case('table')
hypoelasticTableStyle = IO_IntValue (line,pos,5) if (pos(1) == 6) hypoelasticTableStyle = IO_IntValue (line,pos,5) ! only recognize header entry for "table"
case('sizing') case('sizing')
mesh_Nelems = IO_IntValue (line,pos,3) mesh_Nelems = IO_IntValue (line,pos,3)
mesh_Nnodes = IO_IntValue (line,pos,4) mesh_Nnodes = IO_IntValue (line,pos,4)
case('hypoelastic') case('hypoelastic')
do i=1,4+hypoTableStyle do i=1,4+hypoelasticTableStyle
read (unit,610,END=620) line read (unit,610,END=620) line
end do end do
pos = IO_stringPos(line,20) pos = IO_stringPos(line,20)