From 947af80a2ef6b8720c1e8d62af4f47fb87d0398b Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Fri, 26 Feb 2010 12:02:49 +0000 Subject: [PATCH] removed old debugging statements --- code/material.f90 | 4 ---- 1 file changed, 4 deletions(-) diff --git a/code/material.f90 b/code/material.f90 index 2780690ce..3b89e0fea 100644 --- a/code/material.f90 +++ b/code/material.f90 @@ -93,11 +93,7 @@ subroutine material_init() call material_parseTexture(fileunit,material_partTexture) call material_parsePhase(fileunit,material_partPhase) 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 if (microstructure_crystallite(i) < 1 .or. & microstructure_crystallite(i) > material_Ncrystallite) call IO_error(150,i)