From 6fd473eaa77d354038d96e41ee70fddd30a359d3 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Thu, 26 Apr 2007 11:42:16 +0000 Subject: [PATCH] scatter was not transformed to rad when read from material file --- trunk/constitutive.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/trunk/constitutive.f90 b/trunk/constitutive.f90 index 57ee1acf3..16e32b1c6 100644 --- a/trunk/constitutive.f90 +++ b/trunk/constitutive.f90 @@ -560,7 +560,7 @@ do while(.true.) case('phi2') texture_Gauss(3,gaussCount,section)=IO_floatValue(line,positions,i+1)*inRad case('scatter') - texture_Gauss(4,gaussCount,section)=IO_floatValue(line,positions,i+1) + texture_Gauss(4,gaussCount,section)=IO_floatValue(line,positions,i+1)*inRad case('fraction') texture_Gauss(5,gaussCount,section)=IO_floatValue(line,positions,i+1) end select @@ -579,7 +579,7 @@ do while(.true.) case('beta2') texture_fiber(4,fiberCount,section)=IO_floatValue(line,positions,i+1)*inRad case('scatter') - texture_fiber(5,fiberCount,section)=IO_floatValue(line,positions,i+1) + texture_fiber(5,fiberCount,section)=IO_floatValue(line,positions,i+1)*inRad case('fraction') texture_fiber(6,fiberCount,section)=IO_floatValue(line,positions,i+1) end select