From a6864bf599783abdb9f93b59d4b8eb9020a3287a Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 13 Feb 2012 12:41:44 +0000 Subject: [PATCH] added missing 'dotF' --- code/DAMASK_spectral.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/DAMASK_spectral.f90 b/code/DAMASK_spectral.f90 index 620885073..c4716b62f 100644 --- a/code/DAMASK_spectral.f90 +++ b/code/DAMASK_spectral.f90 @@ -247,7 +247,7 @@ program DAMASK_spectral positions = IO_stringPos(line,maxNchunksLoadcase) do j = 1_pInt,maxNchunksLoadcase select case (IO_lc(IO_stringValue(line,positions,j))) - case('fdot','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 bc(loadcase)%velGradApplied = & (IO_lc(IO_stringValue(line,positions,j)) == 'l'.or. & ! in case of given L, set flag to true IO_lc(IO_stringValue(line,positions,j)) == 'velocitygrad'.or.&