From c960f8ed582334f48bd75e39161adead13028e0b Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Wed, 2 Aug 2023 14:20:17 +0200 Subject: [PATCH] space needed to add new option + marc changes --- src/Marc/discretization_Marc.f90 | 4 ++-- src/mesh/FEM_utilities.f90 | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/Marc/discretization_Marc.f90 b/src/Marc/discretization_Marc.f90 index b38e3b2ac..a5094b7fa 100644 --- a/src/Marc/discretization_Marc.f90 +++ b/src/Marc/discretization_Marc.f90 @@ -75,8 +75,8 @@ subroutine discretization_Marc_init print'(/,a)', ' <<<+- discretization_Marc init -+>>>'; flush(6) - num_solver => config_numerics%get_asDict('solver',defaultVal=emptyDict) - num_commercialFEM => num_solver%get_asDict('Marc', defaultVal = emptyDict) + num_solver => config_numerics%get_dict('solver',defaultVal=emptyDict) + num_commercialFEM => num_solver%get_dict('Marc', defaultVal = emptyDict) mesh_unitlength = num_commercialFEM%get_asReal('unit_length',defaultVal=1.0_pREAL) ! set physical extent of a length unit in mesh if (mesh_unitlength <= 0.0_pREAL) call IO_error(301,'unitlength') diff --git a/src/mesh/FEM_utilities.f90 b/src/mesh/FEM_utilities.f90 index d6b0c7b77..9f326673b 100644 --- a/src/mesh/FEM_utilities.f90 +++ b/src/mesh/FEM_utilities.f90 @@ -125,7 +125,7 @@ subroutine FEM_utilities_init(num_mesh) num_mesh%get_asStr('PETSc_options',defaultVal=''), 'mechanical_') call PetscOptionsInsertString(PETSC_NULL_OPTIONS,petsc_options,err_PETSc) CHKERRQ(err_PETSc) - write(petsc_optionsOrder,'(a,i0)') '-mechFE_petscspace_degree ', p_s + write(petsc_optionsOrder,'(a,i0)') ' -mechFE_petscspace_degree ', p_s call PetscOptionsInsertString(PETSC_NULL_OPTIONS,trim(petsc_optionsOrder),err_PETSc) CHKERRQ(err_PETSc)