consistent use of keyword

This commit is contained in:
Martin Diehl 2019-04-03 21:43:00 +00:00
parent 5f462729c7
commit 19b1bc5e76
1 changed files with 1 additions and 1 deletions

View File

@ -167,7 +167,7 @@ program DAMASK_spectral
!--------------------------------------------------------------------------------------------------
! assign mechanics solver depending on selected type
select case (trim(config_numerics%getString('spectralsolver',defaultVal='basic')))
select case (trim(config_numerics%getString('spectral_solver',defaultVal='basic')))
case ('basic')
mech_init => grid_mech_spectral_basic_init
mech_forward => grid_mech_spectral_basic_forward