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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/mesh.f90
View File

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