corrected spelling in subroutine "material_parseTexture"

2009-04-28 09:45:52 +00:00 · 2009-04-28 09:45:52 +00:00 · d052a69574
parent 5063842f1b
commit d052a69574
1 changed files with 1 additions and 1 deletions
--- a/trunk/material.f90
+++ b/trunk/material.f90
@ -398,7 +398,7 @@ subroutine material_parseTexture(file,myPart)
         do i = 2,12,2
           tag = IO_lc(IO_stringValue(line,positions,i))
           select case (tag)
-             case('aplha1')
+             case('alpha1')
                 texture_Fiber(1,fiber,section) = IO_floatValue(line,positions,i+1)*inRad
             case('alpha2')
                 texture_Fiber(2,fiber,section) = IO_floatValue(line,positions,i+1)*inRad