gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RANDOM: Replace explicit calls to get_parameter_*() with unified one.

Browse Source 
Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2019-01-28 21:30:07 -02:00
parent c877fa6481
commit 49208321b6
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/random.F90
View File

@ -84,7 +84,7 @@ module random
! obtain required variables from other modules
!
use parameters, only : get_parameter_string
use parameters, only : get_parameter
! declare all variables as implicit
!
@ -118,7 +118,7 @@ module random
! obtain the generator type
!
call get_parameter_string("gentype", gentype)
call get_parameter("gentype", gentype)
! calculate the number of seeds
!