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

removed some unwanted open statements when writing out the sizeState

This commit is contained in:
Martin Diehl 2012-06-05 13:13:33 +00:00
parent 01522cf6f2
commit 4b6800b89a
2 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/constitutive.f90
View File

@ -381,7 +381,6 @@ endif
!$OMP END PARALLEL DO
!----- write out state size file----------------
open(777)
call IO_write_jobBinaryFile(777,'sizeStateConst', size(constitutive_sizeState))
write (777,rec=1) constitutive_sizeState
close(777)

1
code/homogenization.f90
View File

@ -195,7 +195,6 @@ end forall
!$OMP END PARALLEL DO
!---write state size file out---------------------------------------
open(777)
call IO_write_jobBinaryFile(777,'sizeStateHomog',size(homogenization_sizeState))
write (777,rec=1) homogenization_sizeState
close(777)