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

reseting value vector when reading in for loadcase file, otherwise NaNs might be in there

This commit is contained in:
Martin Diehl 2012-11-08 20:35:31 +00:00
parent 11264f3fe4
commit c831716b26
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
code/DAMASK_spectral_driver.f90
View File

@ -152,6 +152,7 @@ program DAMASK_spectral_Driver
do i = 1_pInt,maxNchunksLoadcase
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.&