last version did not compile: fixed small typo in mesh_init

This commit is contained in:
Christoph Kords 2013-04-19 12:59:45 +00:00
parent 4bc5e6717b
commit 55bc741d1d
1 changed files with 5 additions and 5 deletions

View File

@ -612,11 +612,11 @@ subroutine mesh_init(ip,el)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! write description file for constitutive phase output ! write description file for constitutive phase output
call IO_write_jobFile(fileunit,'mesh') call IO_write_jobFile(fileUnit,'mesh')
write(fileunit,'(a,i)') 'maxNCellNodes ', mesh_maxNcellNodes write(fileUnit,'(a,1x,i)') 'maxNcellnodes ', mesh_maxNcellnodes
write(fileunit,'(a,i)') 'maxNips ', mesh_maxNips write(fileUnit,'(a,1x,i)') 'maxNips ', mesh_maxNips
write(fileunit,'(a,i)') 'maxNCellNodes ', mesh_maxNcpElems write(fileUnit,'(a,1x,i)') 'maxNcpElems', mesh_NcpElems
close(fileunit) close(fileUnit)
end subroutine mesh_init end subroutine mesh_init