corrected formating error in output from mesh

2007-10-26 13:39:54 +00:00 · 2007-10-26 13:39:54 +00:00 · d2471ab479
parent 909ebf2cd0
commit d2471ab479
1 changed files with 1 additions and 1 deletions
--- a/trunk/mesh.f90
+++ b/trunk/mesh.f90
@ -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,*)

- 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
   write (6,fmt) i,mesh_MatTex(i,:) ! loop over all (possibly assigned) textures
 enddo