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

scatter was not transformed to rad when read from material file

This commit is contained in:
Franz Roters 2007-04-26 11:42:16 +00:00
parent 1fd722e4cf
commit 6fd473eaa7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/constitutive.f90
View File

@ -560,7 +560,7 @@ do while(.true.)
case('phi2') case('phi2')
texture_Gauss(3,gaussCount,section)=IO_floatValue(line,positions,i+1)*inRad texture_Gauss(3,gaussCount,section)=IO_floatValue(line,positions,i+1)*inRad
case('scatter') 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') case('fraction')
texture_Gauss(5,gaussCount,section)=IO_floatValue(line,positions,i+1) texture_Gauss(5,gaussCount,section)=IO_floatValue(line,positions,i+1)
end select end select
@ -579,7 +579,7 @@ do while(.true.)
case('beta2') case('beta2')
texture_fiber(4,fiberCount,section)=IO_floatValue(line,positions,i+1)*inRad texture_fiber(4,fiberCount,section)=IO_floatValue(line,positions,i+1)*inRad
case('scatter') 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') case('fraction')
texture_fiber(6,fiberCount,section)=IO_floatValue(line,positions,i+1) texture_fiber(6,fiberCount,section)=IO_floatValue(line,positions,i+1)
end select end select