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

corrected spelling in subroutine "material_parseTexture"

This commit is contained in:
Christoph Kords 2009-04-28 09:45:52 +00:00
parent 5063842f1b
commit d052a69574
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
trunk/material.f90
View File

@ -398,7 +398,7 @@ subroutine material_parseTexture(file,myPart)
do i = 2,12,2 do i = 2,12,2
tag = IO_lc(IO_stringValue(line,positions,i)) tag = IO_lc(IO_stringValue(line,positions,i))
select case (tag) select case (tag)
case('aplha1') case('alpha1')
texture_Fiber(1,fiber,section) = IO_floatValue(line,positions,i+1)*inRad texture_Fiber(1,fiber,section) = IO_floatValue(line,positions,i+1)*inRad
case('alpha2') case('alpha2')
texture_Fiber(2,fiber,section) = IO_floatValue(line,positions,i+1)*inRad texture_Fiber(2,fiber,section) = IO_floatValue(line,positions,i+1)*inRad