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

done with mesh_build_element

This commit is contained in:
William Counts 2007-03-30 14:56:57 +00:00
parent cdf95b0ee3
commit 37a4a4bcdc
1 changed files with 65 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
trunk/mesh.f90
View File

@ -529,10 +529,10 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matching f
implicit none implicit none
integer unit integer unit
integer FE_node,Nnodes,i,j,sv,ele,val integer FE_node,Nnodes,i,j,sv,ele,val,start_ele,end_ele
integer(pInt), dimension (41) :: pos integer(pInt), dimension (41) :: pos
logical not_found logical not_found
character*264 line character*264 line,line2
rewind(unit) rewind(unit)
allocate ( mesh_element (mesh_Nelems,4+mesh_maxNnodes) ) allocate ( mesh_element (mesh_Nelems,4+mesh_maxNnodes) )
@ -571,42 +571,73 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matching f
end if end if
read (unit,610,END=620) line read (unit,610,END=620) line
read(UNIT=line(2:2),FMT='(I)') val val = NINT(IO_fixedNoEFloatValue (line,(/0,20/),1))
read (unit,610,END=620) line line2 = line
pos = IO_stringPos(line,20)
do while( IO_lc(IO_Stringvalue(line,pos,pos(1))).eq.'c' ) do while( line.eq.line2 )
do i=1,pos(1)-1
ele = IO_IntValue(line,pos,i) line2 = line
not_found = .true.
j=1
do while( not_found )
if( mesh_element(j,1).eq.ele )then
not_found = .false.
ele = j
end if
j=j+1
end do
mesh_element(ele,sv+1) = 40
end do
read (unit,610,END=620) line read (unit,610,END=620) line
pos = IO_stringPos(line,20) pos = IO_stringPos(line,20)
end do if ( IO_lc(IO_Stringvalue(line,pos,2)).eq.'to' )then
do i=1,pos(1) start_ele = IO_IntValue(line,pos,1)
ele = IO_IntValue(line,pos,i) end_ele = IO_IntValue(line,pos,3)
not_found = .true. do i=start_ele,end_ele
j=1 not_found = .true.
do while( not_found ) j=1
if( mesh_element(j,1).eq.ele )then do while( not_found )
not_found = .false. if( mesh_element(j,1).eq.i )then
ele = j not_found = .false.
end if ele = i
j=j+1 end if
end do j=j+1
mesh_element(ele,sv+1) = 40 end do
end do mesh_element(ele,sv+1) = val
end do
else
do while( IO_lc(IO_Stringvalue(line,pos,pos(1))).eq.'c' )
do i=1,pos(1)-1
ele = IO_IntValue(line,pos,i)
not_found = .true.
j=1
do while( not_found )
if( mesh_element(j,1).eq.ele )then
not_found = .false.
ele = j
end if
j=j+1
end do
mesh_element(ele,sv+1) = val
end do
read (unit,610,END=620) line
pos = IO_stringPos(line,20)
end do
do i=1,pos(1)
ele = IO_IntValue(line,pos,i)
not_found = .true.
j=1
do while( not_found )
if( mesh_element(j,1).eq.ele )then
not_found = .false.
ele = j
end if
j=j+1
end do
mesh_element(ele,sv+1) = val
end do
end if
read (unit,610,END=620) line ! Garbage line
read (unit,610,END=620) line
end do
end if
pos = IO_stringPos(line,20)
if( (IO_lc(IO_stringValue(line,pos,1)) == 'initial').and. &
(IO_lc(IO_stringValue(line,pos,2)) == 'state') ) then
backspace(unit)
end if end if
end do end do