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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
code/DAMASK_spectral_driver.f90
View File

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