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

removed old debugging statements

This commit is contained in:
Christoph Kords 2010-02-26 12:02:49 +00:00
parent 8c8ed34356
commit 947af80a2e
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/material.f90
View File

@ -93,11 +93,7 @@ subroutine material_init()
call material_parseTexture(fileunit,material_partTexture) call material_parseTexture(fileunit,material_partTexture)
call material_parsePhase(fileunit,material_partPhase) call material_parsePhase(fileunit,material_partPhase)
close(fileunit) close(fileunit)
write(6,*) '<<<+- done -+>>>'; call flush(6)
write(6,*) 'material_Nmicrostructure',material_Nmicrostructure
write(6,*) 'microstructure_crystallite',microstructure_crystallite
write(6,*) 'material_Ncrystallite',material_Ncrystallite
do i = 1,material_Nmicrostructure do i = 1,material_Nmicrostructure
if (microstructure_crystallite(i) < 1 .or. & if (microstructure_crystallite(i) < 1 .or. &
microstructure_crystallite(i) > material_Ncrystallite) call IO_error(150,i) microstructure_crystallite(i) > material_Ncrystallite) call IO_error(150,i)