From ca760f9ca18828731b6a1e4bf7cef821a9cbd8e2 Mon Sep 17 00:00:00 2001 From: Eureka Pai Kulyadi Date: Fri, 6 Sep 2019 15:47:02 -0400 Subject: [PATCH] added text lines --- src/grid/DAMASK_grid.f90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/grid/DAMASK_grid.f90 b/src/grid/DAMASK_grid.f90 index edf26af19..0bec7606c 100644 --- a/src/grid/DAMASK_grid.f90 +++ b/src/grid/DAMASK_grid.f90 @@ -118,6 +118,7 @@ program DAMASK_spectral ! assign mechanics solver depending on selected type select case (trim(config_numerics%getString('spectral_solver',defaultVal='basic'))) case ('basic') + write(6,'(a)') ' Basic solution algorithm' mech_init => grid_mech_spectral_basic_init mech_forward => grid_mech_spectral_basic_forward mech_solution => grid_mech_spectral_basic_solution @@ -125,6 +126,7 @@ program DAMASK_spectral case ('polarisation') if(iand(debug_level(debug_spectral),debug_levelBasic)/= 0) & call IO_warning(42, ext_msg='debug Divergence') + write(6,'(a)') ' Polarisation solution algorithm' mech_init => grid_mech_spectral_polarisation_init mech_forward => grid_mech_spectral_polarisation_forward mech_solution => grid_mech_spectral_polarisation_solution @@ -132,6 +134,7 @@ program DAMASK_spectral case ('fem') if(iand(debug_level(debug_spectral),debug_levelBasic)/= 0) & call IO_warning(42, ext_msg='debug Divergence') + write(6,'(a)') ' FEM solution algorithm' mech_init => grid_mech_FEM_init mech_forward => grid_mech_FEM_forward mech_solution => grid_mech_FEM_solution