consistent use of keyword
This commit is contained in:
parent
5f462729c7
commit
19b1bc5e76
|
@ -167,7 +167,7 @@ program DAMASK_spectral
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
! assign mechanics solver depending on selected type
|
! 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')
|
case ('basic')
|
||||||
mech_init => grid_mech_spectral_basic_init
|
mech_init => grid_mech_spectral_basic_init
|
||||||
mech_forward => grid_mech_spectral_basic_forward
|
mech_forward => grid_mech_spectral_basic_forward
|
||||||
|
|
Loading…
Reference in New Issue