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

cleaning

This commit is contained in:
Martin Diehl 2018-06-11 00:23:43 +02:00
parent fdd3bd1262
commit 940d9fcbab
2 changed files with 124 additions and 126 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

194
src/list.f90
View File

@ -59,7 +59,7 @@ subroutine add(this,string)
implicit none implicit none
class(tPartitionedStringList), target, intent(in) :: this class(tPartitionedStringList), target, intent(in) :: this
character(len=*), intent(in) :: string character(len=*), intent(in) :: string
type(tPartitionedStringList), pointer :: new, tmp type(tPartitionedStringList), pointer :: new, list_tmp
if (IO_isBlank(string)) return if (IO_isBlank(string)) return
@ -67,11 +67,11 @@ subroutine add(this,string)
new%string%val=IO_lc(trim(string)) new%string%val=IO_lc(trim(string))
new%string%pos=IO_stringPos(trim(string)) new%string%pos=IO_stringPos(trim(string))
tmp => this list_tmp => this
do while (associated(tmp%next)) do while (associated(list_tmp%next))
tmp => tmp%next list_tmp => list_tmp%next
enddo enddo
tmp%next => new list_tmp%next => new
end subroutine add end subroutine add
@ -84,13 +84,13 @@ subroutine show(this)
implicit none implicit none
class(tPartitionedStringList) :: this class(tPartitionedStringList) :: this
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) exit if (.not. associated(list_tmp)) exit
write(6,'(a)') trim(tmp%string%val) write(6,'(a)') trim(list_tmp%string%val)
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end subroutine show end subroutine show
@ -103,15 +103,15 @@ end subroutine show
! subroutine free_all() ! subroutine free_all()
! implicit none ! implicit none
! !
! type(node), pointer :: tmp ! type(node), pointer :: list_tmp
! !
! do ! do
! tmp => first ! list_tmp => first
! !
! if (associated(tmp) .eqv. .FALSE.) exit ! if (associated(list_tmp) .eqv. .FALSE.) exit
! !
! first => first%next ! first => first%next
! deallocate(tmp) ! deallocate(list_tmp)
! end do ! end do
! end subroutine free_all ! end subroutine free_all
@ -126,18 +126,18 @@ logical function keyExists(this,key)
implicit none implicit none
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
keyExists = .false. keyExists = .false.
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) exit if (.not. associated(list_tmp)) exit
if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
keyExists = .true. keyExists = .true.
exit exit
endif endif
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function keyExists end function keyExists
@ -155,18 +155,18 @@ integer(pInt) function countKeyAppearances(this,key)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
integer(pInt) :: i integer(pInt) :: i
countKeyAppearances = 0_pInt countKeyAppearances = 0_pInt
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) exit if (.not. associated(list_tmp)) exit
if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
countKeyAppearances = countKeyAppearances + 1_pInt countKeyAppearances = countKeyAppearances + 1_pInt
endif endif
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function countKeyAppearances end function countKeyAppearances
@ -184,22 +184,22 @@ function strings(this)
implicit none implicit none
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=65536), dimension(:), allocatable :: strings character(len=65536), dimension(:), allocatable :: strings
character(len=65536) :: stringTmp character(len=65536) :: string_tmp
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) then if (.not. associated(list_tmp)) then
if(size(strings) < 0_pInt) call IO_error(142_pInt) if(size(strings) < 0_pInt) call IO_error(142_pInt)
exit exit
endif endif
stringTmp = tmp%string%val string_tmp = list_tmp%string%val
GfortranBug86033: if (.not. allocated(strings)) then GfortranBug86033: if (.not. allocated(strings)) then
allocate(strings(1),source=stringTmp) allocate(strings(1),source=string_tmp)
else GfortranBug86033 else GfortranBug86033
strings = [strings,stringTmp] strings = [strings,string_tmp]
endif GfortranBug86033 endif GfortranBug86033
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function strings end function strings
@ -218,17 +218,17 @@ subroutine getRaw(this,key,string,stringPos)
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
integer(pInt), dimension(:), allocatable, intent(out) :: stringPos integer(pInt), dimension(:), allocatable, intent(out) :: stringPos
character(len=*), intent(out) :: string character(len=*), intent(out) :: string
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) call IO_error(140_pInt,ext_msg=key) if (.not. associated(list_tmp)) call IO_error(140_pInt,ext_msg=key)
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
stringPos = tmp%string%pos stringPos = list_tmp%string%pos
string = tmp%string%val string = list_tmp%string%val
exit exit
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end subroutine getRaw end subroutine getRaw
@ -249,34 +249,34 @@ subroutine getRaws(this,key,string,stringPos)
integer(pInt), dimension(:,:), allocatable, intent(out) :: stringPos integer(pInt), dimension(:,:), allocatable, intent(out) :: stringPos
character(len=65536), dimension(:), allocatable, intent(out) :: string character(len=65536), dimension(:), allocatable, intent(out) :: string
character(len=65536) :: stringTmp character(len=65536) :: string_tmp
integer(pInt) :: posSize integer(pInt) :: posSize
integer(pInt), dimension(:), allocatable :: stringPosFlat integer(pInt), dimension(:), allocatable :: stringPosFlat
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
posSize = -1_pInt posSize = -1_pInt
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) then if (.not. associated(list_tmp)) then
if(posSize < 0_pInt) call IO_error(140_pInt,ext_msg=key) if(posSize < 0_pInt) call IO_error(140_pInt,ext_msg=key)
stringPos = reshape(stringPosFlat,[posSize,size(string)]) stringPos = reshape(stringPosFlat,[posSize,size(string)])
exit exit
endif endif
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (posSize < 0_pInt) then if (posSize < 0_pInt) then
posSize = size(tmp%string%pos) posSize = size(list_tmp%string%pos)
stringPosFlat = tmp%string%pos stringPosFlat = list_tmp%string%pos
allocate(string(1)) allocate(string(1))
string(1) = tmp%string%val string(1) = list_tmp%string%val
else else
if (size(tmp%string%pos) /= posSize) & if (size(list_tmp%string%pos) /= posSize) &
call IO_error(141_pInt,ext_msg=trim(tmp%string%val),el=posSize) call IO_error(141_pInt,ext_msg=trim(list_tmp%string%val),el=posSize)
stringPosFlat = [stringPosFlat,tmp%string%pos] stringPosFlat = [stringPosFlat,list_tmp%string%pos]
stringTmp = tmp%string%val string_tmp = list_tmp%string%val
string = [string,stringTmp] string = [string,string_tmp]
endif endif
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end subroutine getRaws end subroutine getRaws
@ -296,11 +296,11 @@ real(pReal) function getFloat(this,key,defaultVal)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
real(pReal), intent(in), optional :: defaultVal real(pReal), intent(in), optional :: defaultVal
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
tmp => this%next list_tmp => this%next
do do
endOfList: if (.not. associated(tmp)) then endOfList: if (.not. associated(list_tmp)) then
if(present(defaultVal)) then if(present(defaultVal)) then
getFloat = defaultVal getFloat = defaultVal
exit exit
@ -308,12 +308,12 @@ real(pReal) function getFloat(this,key,defaultVal)
call IO_error(140_pInt,ext_msg=key) call IO_error(140_pInt,ext_msg=key)
endif endif
endif endOfList endif endOfList
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key)
getFloat = IO_FloatValue(tmp%string%val,tmp%string%pos,2) getFloat = IO_FloatValue(list_tmp%string%val,list_tmp%string%pos,2)
exit exit
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function getFloat end function getFloat
@ -333,11 +333,11 @@ integer(pInt) function getInt(this,key,defaultVal)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
integer(pInt), intent(in), optional :: defaultVal integer(pInt), intent(in), optional :: defaultVal
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
tmp => this%next list_tmp => this%next
do do
endOfList: if (.not. associated(tmp)) then endOfList: if (.not. associated(list_tmp)) then
if(present(defaultVal)) then if(present(defaultVal)) then
getInt = defaultVal getInt = defaultVal
exit exit
@ -345,12 +345,12 @@ integer(pInt) function getInt(this,key,defaultVal)
call IO_error(140_pInt,ext_msg=key) call IO_error(140_pInt,ext_msg=key)
endif endif
endif endOfList endif endOfList
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key)
getInt = IO_IntValue(tmp%string%val,tmp%string%pos,2) getInt = IO_IntValue(list_tmp%string%val,list_tmp%string%pos,2)
exit exit
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function getInt end function getInt
@ -369,11 +369,11 @@ character(len=65536) function getString(this,key,defaultVal)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
character(len=65536), intent(in), optional :: defaultVal character(len=65536), intent(in), optional :: defaultVal
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
tmp => this%next list_tmp => this%next
do do
endOfList: if (.not. associated(tmp)) then endOfList: if (.not. associated(list_tmp)) then
if(present(defaultVal)) then if(present(defaultVal)) then
getString = defaultVal getString = defaultVal
exit exit
@ -381,12 +381,12 @@ character(len=65536) function getString(this,key,defaultVal)
call IO_error(140_pInt,ext_msg=key) call IO_error(140_pInt,ext_msg=key)
endif endif
endif endOfList endif endOfList
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key)
getString = IO_StringValue(tmp%string%val,tmp%string%pos,2) getString = IO_StringValue(list_tmp%string%val,list_tmp%string%pos,2)
exit exit
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function getString end function getString
@ -401,19 +401,19 @@ function getStrings(this,key)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
integer(pInt) :: i integer(pInt) :: i
tmp => this%next list_tmp => this%next
do do
if (.not. associated(tmp)) then if (.not. associated(list_tmp)) then
if (.not. allocated(getStrings)) allocate(getStrings(0),source=str) if (.not. allocated(getStrings)) allocate(getStrings(0),source=str)
exit exit
endif endif
if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2) print*, "NOT WORKKING" if (list_tmp%string%pos(1) < 2) print*, "NOT WORKKING"
str = IO_StringValue(tmp%string%val,tmp%string%pos,2) str = IO_StringValue(list_tmp%string%val,list_tmp%string%pos,2)
GfortranBug86033: if (.not. allocated(getStrings)) then GfortranBug86033: if (.not. allocated(getStrings)) then
allocate(getStrings(1),source=str) allocate(getStrings(1),source=str)
@ -421,7 +421,7 @@ function getStrings(this,key)
getStrings = [getStrings,str] getStrings = [getStrings,str]
endif GfortranBug86033 endif GfortranBug86033
endif endif
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function end function
@ -442,14 +442,14 @@ function getIntArray(this,key,defaultVal)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
integer(pInt),dimension(:), intent(in), optional :: defaultVal integer(pInt),dimension(:), intent(in), optional :: defaultVal
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
integer(pInt) :: i integer(pInt) :: i
allocate(getIntArray(0)) allocate(getIntArray(0))
tmp => this%next list_tmp => this%next
do do
endOfList: if (.not. associated(tmp)) then endOfList: if (.not. associated(list_tmp)) then
if(present(defaultVal)) then if(present(defaultVal)) then
getIntArray = defaultVal getIntArray = defaultVal
exit exit
@ -457,14 +457,14 @@ function getIntArray(this,key,defaultVal)
call IO_error(140_pInt,ext_msg=key) call IO_error(140_pInt,ext_msg=key)
endif endif
endif endOfList endif endOfList
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key)
do i = 2_pInt, tmp%string%pos(1) do i = 2_pInt, list_tmp%string%pos(1)
getIntArray = [getIntArray,IO_IntValue(tmp%string%val,tmp%string%pos,i)] getIntArray = [getIntArray,IO_IntValue(list_tmp%string%val,list_tmp%string%pos,i)]
enddo enddo
exit exit
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function getIntArray end function getIntArray
@ -485,14 +485,14 @@ function getFloatArray(this,key,defaultVal)
class(tPartitionedStringList), intent(in) :: this class(tPartitionedStringList), intent(in) :: this
character(len=*), intent(in) :: key character(len=*), intent(in) :: key
real(pReal),dimension(:), intent(in), optional :: defaultVal real(pReal),dimension(:), intent(in), optional :: defaultVal
type(tPartitionedStringList), pointer :: tmp type(tPartitionedStringList), pointer :: list_tmp
integer(pInt) :: i integer(pInt) :: i
allocate(getFloatArray(0)) allocate(getFloatArray(0))
tmp => this%next list_tmp => this%next
do do
endOfList: if (.not. associated(tmp)) then endOfList: if (.not. associated(list_tmp)) then
if(present(defaultVal)) then if(present(defaultVal)) then
getFloatArray = defaultVal getFloatArray = defaultVal
exit exit
@ -500,14 +500,14 @@ function getFloatArray(this,key,defaultVal)
call IO_error(140_pInt,ext_msg=key) call IO_error(140_pInt,ext_msg=key)
endif endif
endif endOfList endif endOfList
foundKey: if (trim(IO_stringValue(tmp%string%val,tmp%string%pos,1))==trim(key)) then foundKey: if (trim(IO_stringValue(list_tmp%string%val,list_tmp%string%pos,1))==trim(key)) then
if (tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key)
do i = 2_pInt, tmp%string%pos(1) do i = 2_pInt, list_tmp%string%pos(1)
getFloatArray = [getFloatArray,IO_FloatValue(tmp%string%val,tmp%string%pos,i)] getFloatArray = [getFloatArray,IO_FloatValue(list_tmp%string%val,list_tmp%string%pos,i)]
enddo enddo
exit exit
endif foundKey endif foundKey
tmp => tmp%next list_tmp => list_tmp%next
end do end do
end function getFloatArray end function getFloatArray

56
src/material.f90
View File

@ -889,14 +889,13 @@ subroutine material_parseTexture
inRad, & inRad, &
math_sampleRandomOri, & math_sampleRandomOri, &
math_I3, & math_I3, &
math_det33, & math_det33
math_inv33
implicit none implicit none
integer(pInt) :: section, gauss, fiber, j, t, i integer(pInt) :: section, gauss, fiber, j, t, i
character(len=256), dimension(:), allocatable :: bla character(len=65536), dimension(:), allocatable :: lines
integer(pInt), dimension(:), allocatable :: chunkPos integer(pInt), dimension(:), allocatable :: chunkPos
character(len=65536) :: line, tag character(len=65536) :: tag
allocate(texture_ODFfile(material_Ntexture)); texture_ODFfile='' allocate(texture_ODFfile(material_Ntexture)); texture_ODFfile=''
allocate(texture_symmetry(material_Ntexture), source=1_pInt) allocate(texture_symmetry(material_Ntexture), source=1_pInt)
@ -920,18 +919,17 @@ subroutine material_parseTexture
section = t section = t
gauss = 0_pInt gauss = 0_pInt
fiber = 0_pInt fiber = 0_pInt
bla = textureConfig(t)%getStringsRaw() lines = textureConfig(t)%getStringsRaw()
lines: do i=1_pInt, size(bla) do i=1_pInt, size(lines)
line = bla(i)
chunkPos = IO_stringPos(line) chunkPos = IO_stringPos(lines(i))
tag = IO_stringValue(line,chunkPos,1_pInt) ! extract key tag = IO_stringValue(lines(i),chunkPos,1_pInt) ! extract key
textureType: select case(tag) textureType: select case(tag)
case ('axes', 'rotation') textureType case ('axes', 'rotation') textureType
do j = 1_pInt, 3_pInt ! look for "x", "y", and "z" entries do j = 1_pInt, 3_pInt ! look for "x", "y", and "z" entries
tag = IO_stringValue(line,chunkPos,j+1_pInt) tag = IO_stringValue(lines(i),chunkPos,j+1_pInt)
select case (tag) select case (tag)
case('x', '+x') case('x', '+x')
texture_transformation(j,1:3,t) = [ 1.0_pReal, 0.0_pReal, 0.0_pReal] ! original axis is now +x-axis texture_transformation(j,1:3,t) = [ 1.0_pReal, 0.0_pReal, 0.0_pReal] ! original axis is now +x-axis
@ -954,10 +952,10 @@ subroutine material_parseTexture
call IO_error(157_pInt,t) call IO_error(157_pInt,t)
case ('hybridia') textureType case ('hybridia') textureType
texture_ODFfile(t) = IO_stringValue(line,chunkPos,2_pInt) texture_ODFfile(t) = IO_stringValue(lines(i),chunkPos,2_pInt)
case ('symmetry') textureType case ('symmetry') textureType
tag = IO_stringValue(line,chunkPos,2_pInt) tag = IO_stringValue(lines(i),chunkPos,2_pInt)
select case (tag) select case (tag)
case('orthotropic') case('orthotropic')
texture_symmetry(t) = 4_pInt texture_symmetry(t) = 4_pInt
@ -971,54 +969,54 @@ subroutine material_parseTexture
gauss = gauss + 1_pInt gauss = gauss + 1_pInt
texture_Gauss(1:3,gauss,t) = math_sampleRandomOri() texture_Gauss(1:3,gauss,t) = math_sampleRandomOri()
do j = 2_pInt,4_pInt,2_pInt do j = 2_pInt,4_pInt,2_pInt
tag = IO_stringValue(line,chunkPos,j) tag = IO_stringValue(lines(i),chunkPos,j)
select case (tag) select case (tag)
case('scatter') case('scatter')
texture_Gauss(4,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Gauss(4,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('fraction') case('fraction')
texture_Gauss(5,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt) texture_Gauss(5,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)
end select end select
enddo enddo
case ('(gauss)') textureType case ('(gauss)') textureType
gauss = gauss + 1_pInt gauss = gauss + 1_pInt
do j = 2_pInt,10_pInt,2_pInt do j = 2_pInt,10_pInt,2_pInt
tag = IO_stringValue(line,chunkPos,j) tag = IO_stringValue(lines(i),chunkPos,j)
select case (tag) select case (tag)
case('phi1') case('phi1')
texture_Gauss(1,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Gauss(1,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('phi') case('phi')
texture_Gauss(2,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Gauss(2,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('phi2') case('phi2')
texture_Gauss(3,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Gauss(3,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('scatter') case('scatter')
texture_Gauss(4,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Gauss(4,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('fraction') case('fraction')
texture_Gauss(5,gauss,t) = IO_floatValue(line,chunkPos,j+1_pInt) texture_Gauss(5,gauss,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)
end select end select
enddo enddo
case ('(fiber)') textureType case ('(fiber)') textureType
fiber = fiber + 1_pInt fiber = fiber + 1_pInt
do j = 2_pInt,12_pInt,2_pInt do j = 2_pInt,12_pInt,2_pInt
tag = IO_stringValue(line,chunkPos,j) tag = IO_stringValue(lines(i),chunkPos,j)
select case (tag) select case (tag)
case('alpha1') case('alpha1')
texture_Fiber(1,fiber,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Fiber(1,fiber,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('alpha2') case('alpha2')
texture_Fiber(2,fiber,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Fiber(2,fiber,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('beta1') case('beta1')
texture_Fiber(3,fiber,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Fiber(3,fiber,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('beta2') case('beta2')
texture_Fiber(4,fiber,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Fiber(4,fiber,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('scatter') case('scatter')
texture_Fiber(5,fiber,t) = IO_floatValue(line,chunkPos,j+1_pInt)*inRad texture_Fiber(5,fiber,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)*inRad
case('fraction') case('fraction')
texture_Fiber(6,fiber,t) = IO_floatValue(line,chunkPos,j+1_pInt) texture_Fiber(6,fiber,t) = IO_floatValue(lines(i),chunkPos,j+1_pInt)
end select end select
enddo enddo
end select textureType end select textureType
enddo lines enddo
enddo enddo
end subroutine material_parseTexture end subroutine material_parseTexture