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

former revision of mesh.f90 caused segmentation fault. probably due to 

string assignment across memory. fixed now...
This commit is contained in:
William Counts 2007-10-24 11:25:58 +00:00
parent f0617b74f6
commit bf35fa4868
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
trunk/mesh.f90
View File

@ -800,7 +800,7 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matc
integer(pInt) i,j integer(pInt) i,j
integer(pInt), dimension (:,:), allocatable :: mesh_MatTex integer(pInt), dimension (:,:), allocatable :: mesh_MatTex
character(len=64) f character(len=64) fmt
allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2))) allocate (mesh_MatTex(mesh_maxValStateVar(1),mesh_maxValStateVar(2)))
mesh_MatTex = 0_pInt mesh_MatTex = 0_pInt
@ -822,11 +822,13 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matc
write (6,*) write (6,*)
write (6,*) "Input Parser: MATERIAL/TEXTURE" write (6,*) "Input Parser: MATERIAL/TEXTURE"
write (6,*) write (6,*)
write (6,*) mesh_maxValStateVar(1), " : maximum material index"
write (6,*) mesh_maxValStateVar(2), " : maximum texture index"
write (6,*)
write (f,"(I3)") 1+mesh_maxValStateVar(2) write (6,*) fmt
f = f//"(I8)"
do i=1,mesh_maxValStateVar(1) ! loop over all (possibly assigned) materials do i=1,mesh_maxValStateVar(1) ! loop over all (possibly assigned) materials
write (6,f) i,mesh_MatTex(i,:) ! loop over all (possibly assigned) textures write (6,fmt) i,mesh_MatTex(i,:) ! loop over all (possibly assigned) textures
enddo enddo
write (6,*) write (6,*)