diff --git a/code/DAMASK_spectral_driver.f90 b/code/DAMASK_spectral_driver.f90 index d01de374b..a8f3d0b5d 100644 --- a/code/DAMASK_spectral_driver.f90 +++ b/code/DAMASK_spectral_driver.f90 @@ -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