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

corrected formating error in output from mesh

This commit is contained in:
Franz Roters 2007-10-26 13:39:54 +00:00
parent 909ebf2cd0
commit d2471ab479
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

@ -825,7 +825,7 @@ matchFace: do j = 1,FE_NfaceNodes(-neighbor,t) ! count over nodes on matc
write (6,*) mesh_maxValStateVar(2), " : maximum texture index" write (6,*) mesh_maxValStateVar(2), " : maximum texture index"
write (6,*) write (6,*)
write (6,*) fmt write (fmt,"(a,i3,a,a)") "(",1+mesh_maxValStateVar(1),"(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,fmt) 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