From 017563e0615e073c11e19a29089685d915952170 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 31 Aug 2018 09:14:16 +0200 Subject: [PATCH] one more loop not needed --- src/DAMASK_spectral.f90 | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/src/DAMASK_spectral.f90 b/src/DAMASK_spectral.f90 index 73f047860..92012dcfa 100644 --- a/src/DAMASK_spectral.f90 +++ b/src/DAMASK_spectral.f90 @@ -223,18 +223,7 @@ program DAMASK_spectral field = field + 1 loadCases(currentLoadCase)%ID(field) = FIELD_DAMAGE_ID endif damageActive - enddo -!-------------------------------------------------------------------------------------------------- -! reading the load case and assign values to the allocated data structure - currentLoadCase = 0_pInt - rewind(FILEUNIT) - do - read(fileUnit, '(A)', iostat=myStat) line - if ( myStat /= 0_pInt) exit - if (IO_isBlank(line)) cycle ! skip empty lines - currentLoadCase = currentLoadCase + 1_pInt - chunkPos = IO_stringPos(line) do i = 1_pInt, chunkPos(1) select case (IO_lc(IO_stringValue(line,chunkPos,i))) case('fdot','dotf','l','velocitygrad','velgrad','velocitygradient','f') ! assign values for the deformation BC matrix @@ -303,8 +292,10 @@ program DAMASK_spectral enddo loadCases(currentLoadCase)%rotation = math_plain9to33(temp_valueVector) end select - enddo; enddo - close(FILEUNIT) + enddo + enddo + + close(fileUnit) !-------------------------------------------------------------------------------------------------- ! consistency checks and output of load case