From 9a64f3dd85656f962e43fdd327b38363ea2d1772 Mon Sep 17 00:00:00 2001
From: Christoph	Kords <c.kords@mpie.de>
Date: Mon, 30 May 2011 09:09:19 +0000
Subject: [PATCH] * comments are now recognized by IO even when they do not
 appear at the beginning of the line * no need for the zero entries in the
 material.config anymore

---
 code/IO.f90                 |  3 +++
 code/config/material.config | 24 ++++++++++++------------
 2 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/code/IO.f90 b/code/IO.f90
index 55501a112..3a98e478d 100644
--- a/code/IO.f90
+++ b/code/IO.f90
@@ -676,6 +676,9 @@ endfunction
  do while (verify(line(right+1:),sep)>0)
    left  = right + verify(line(right+1:),sep)
    right = left + scan(line(left:),sep) - 2
+   if ( line(left:left) == '#' ) then
+     exit
+   endif
    if ( IO_stringPos(1)<N ) then
      IO_stringPos(1+IO_stringPos(1)*2+1) = left
      IO_stringPos(1+IO_stringPos(1)*2+2) = right
diff --git a/code/config/material.config b/code/config/material.config
index ff925a417..77e534ff6 100644
--- a/code/config/material.config
+++ b/code/config/material.config
@@ -221,25 +221,25 @@ constitution		        nonlocal
 (output)                d_upper_screw
 
 lattice_structure       fcc
-Nslip                   12 0 0 0                       # number of slip systems
+Nslip                   12                       # number of slip systems
 
 c11                     106.75e9                 # elastic constants
 c12                     60.41e9
 c44                     28.34e9
 
-burgers                 2.86e-10 0 0 0                 # Burgers vector in m
-rhoSglEdgePos0          0.25e10 0 0 0                  # Initial positive edge single dislocation density per slip system in m/m**3
-rhoSglEdgeNeg0          0.25e10 0 0 0                  # Initial negative edge single dislocation density per slip system in m/m**3
-rhoSglScrewPos0         0.25e10 0 0 0                  # Initial positive screw single dislocation density per slip system in m/m**3
-rhoSglScrewNeg0         0.25e10 0 0 0                  # Initial negative screw single dislocation density per slip system in m/m**3
-rhoDipEdge0             1e8 0 0 0                      # Initial edge dipole dislocation density in m/m**3
-rhoDipScrew0            1e8 0 0 0                      # Initial screw dipole dislocation density in m/m**3
+burgers                 2.86e-10                 # Burgers vector in m
+rhoSglEdgePos0          0.25e10                  # Initial positive edge single dislocation density per slip system in m/m**3
+rhoSglEdgeNeg0          0.25e10                  # Initial negative edge single dislocation density per slip system in m/m**3
+rhoSglScrewPos0         0.25e10                  # Initial positive screw single dislocation density per slip system in m/m**3
+rhoSglScrewNeg0         0.25e10                  # Initial negative screw single dislocation density per slip system in m/m**3
+rhoDipEdge0             1e8                      # Initial edge dipole dislocation density in m/m**3
+rhoDipScrew0            1e8                      # Initial screw dipole dislocation density in m/m**3
 rhoSglScatter           0                        # standard deviation of scatter in initial single dislocation density
 r                       1e-3                     # cutoff radius for dislocation stress in m
 vs                      3500                     # maximum dislocation velocity (velocity of sound) in m/s
-dDipMinEdge             2e-9 0 0 0                     # minimum distance for stable edge dipoles in m
-dDipMinScrew            2e-9 0 0 0                     # minimum distance for stable screw dipoles in m
-lambda0                 80 0 0 0                       # prefactor for mean free path 
+dDipMinEdge             2e-9                     # minimum distance for stable edge dipoles in m
+dDipMinScrew            2e-9                     # minimum distance for stable screw dipoles in m
+lambda0                 80                       # prefactor for mean free path 
 atomicVolume            1.7e-29                  # atomic volume in m**3
 Dsd0                    1e-4                     # prefactor for self-diffusion coefficient in m**2/s
 Qsd                     2.3e-19                  # activation enthalpy for seld-diffusion in J
@@ -395,4 +395,4 @@ symmetry    orthotropic # or monoclinic
 (fiber)     alpha1 123 alpha2 123 beta1 12 beta2 45 scatter 15 fraction 0.333  
 
 [random single crystals]
-(random) scatter 0.000 fraction 1.000
\ No newline at end of file
+(random) scatter 0.000 fraction 1.000