simplified load case parsing

This commit is contained in:
Martin Diehl 2012-11-29 13:26:17 +00:00
parent e1f7693bd7
commit 57fed66a8e
1 changed files with 4 additions and 6 deletions

View File

@ -153,13 +153,11 @@ program DAMASK_spectral_Driver
select case (IO_lc(IO_stringValue(line,positions,i)))
case('fdot','dotf','l','velocitygrad','velgrad','velocitygradient') ! assign values for the deformation BC matrix
temp_valueVector = 0.0_pReal
if (IO_lc(IO_stringValue(line,positions,i)) == 'l'.or. & ! in case of given L, set flag to true
IO_lc(IO_stringValue(line,positions,i)) == 'velocitygrad'.or.&
IO_lc(IO_stringValue(line,positions,i)) == 'velgrad'.or.&
IO_lc(IO_stringValue(line,positions,i)) == 'velocitygradient') then
loadCases(currentLoadCase)%deformation%myType = 'l'
else
if (IO_lc(IO_stringValue(line,positions,i)) == 'fdot'.or. & ! in case of Fdot, set type to fdot
IO_lc(IO_stringValue(line,positions,i)) == 'dotf') then
loadCases(currentLoadCase)%deformation%myType = 'fdot'
else
loadCases(currentLoadCase)%deformation%myType = 'l'
endif
forall (j = 1_pInt:9_pInt) temp_maskVector(j) = IO_stringValue(line,positions,i+j) /= '*'
do j = 1_pInt,9_pInt