From f291166a03105c804bf4a07c05ca42fd0d9ac204 Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Wed, 14 Oct 2020 10:47:52 +0200 Subject: [PATCH] initialisation not needed --- src/grid/DAMASK_grid.f90 | 6 ++---- src/grid/spectral_utilities.f90 | 12 ++++++------ 2 files changed, 8 insertions(+), 10 deletions(-) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index d2e9367f3..82c07d2c5 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -197,7 +197,6 @@ program DAMASK_grid newLoadCase%ID(field) = FIELD_DAMAGE_ID endif damageActive - call newLoadCase%rot%fromEulers(real([0.0,0.0,0.0],pReal)) readMech: do m = 1, step_mech%length select case (step_mech%getKey(m)) case('Fdot','L','F') ! assign values for the deformation BC matrix @@ -236,9 +235,8 @@ program DAMASK_grid newLoadCase%logscale = step_discretization%get_asBool ('log_timestep', defaultVal= .false.) newLoadCase%outputfrequency = step_discretization%get_asInt ('f_out', defaultVal=1) newLoadCase%restartfrequency = step_discretization%get_asInt ('f_restart', defaultVal=huge(0)) - if(step_discretization%contains('R')) then - call newLoadCase%rot%fromAxisAngle(step_discretization%get_asFloats('R'),degrees=.true.) - endif + call newLoadCase%rot%fromAxisAngle(step_discretization%get_asFloats('R', & + defaultVal = real([0.0,0.0,1.0,0.0],pReal)),degrees=.true.) newLoadCase%followFormerTrajectory = .not. load_step%get_asBool('drop_guessing',defaultVal=.false.) ! do not continue to predict deformation along former trajectory diff --git a/src/grid/spectral_utilities.f90 b/src/grid/spectral_utilities.f90 index 5bd61ec29..37c22f58b 100644 --- a/src/grid/spectral_utilities.f90 +++ b/src/grid/spectral_utilities.f90 @@ -91,12 +91,12 @@ module spectral_utilities type(rotation) :: rot !< rotation of BC type(tBoundaryCondition) :: stress, & !< stress BC deformation !< deformation BC (Fdot or L) - real(pReal) :: time = 0.0_pReal !< length of increment - integer :: incs = 0, & !< number of increments - outputfrequency = 1, & !< frequency of result writes - restartfrequency = huge(0) !< frequency of restart writes - logical :: followFormerTrajectory = .true., & !< follow trajectory of former loadcase - logscale = .false. !< logarithmic time inc flag + real(pReal) :: time !< length of increment + integer :: incs, & !< number of increments + outputfrequency, & !< frequency of result writes + restartfrequency !< frequency of restart writes + logical :: followFormerTrajectory, & !< follow trajectory of former loadcase + logscale !< logarithmic time inc flag integer(kind(FIELD_UNDEFINED_ID)), allocatable :: ID(:) end type tLoadCase