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

rev 225 had a small syntax error...

This commit is contained in:
Philip Eisenlohr 2008-06-17 11:54:34 +00:00
parent 3676b453ca
commit 6921c57c7d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/mesh.f90
View File

@ -796,7 +796,7 @@ candidate: do i=1,minN ! iterate over lonelyNode's shared elements
do j = 1,FE_Nnodes(FE_mapElemtype(IO_StringValue(line,pos,2))) do j = 1,FE_Nnodes(FE_mapElemtype(IO_StringValue(line,pos,2)))
n = mesh_FEasCP('node',IO_IntValue (line,pos,j+2)) n = mesh_FEasCP('node',IO_IntValue (line,pos,j+2))
if (all(node_seen /= n)) then if (all(node_seen /= n)) then
mesh_sharedElem(1,CP_node) = mesh_sharedElem(1,n) + 1 mesh_sharedElem(1,n) = mesh_sharedElem(1,n) + 1
mesh_sharedElem(1+mesh_sharedElem(1,n),n) = e mesh_sharedElem(1+mesh_sharedElem(1,n),n) = e
end if end if
node_seen(j) = n node_seen(j) = n