mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-11-04 05:04:00 +01:00
24 lines
344 B
FortranFixed
24 lines
344 B
FortranFixed
|
BEGIN_PROVIDER [ integer, seed_size ]
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! Size of the random seed
|
||
|
END_DOC
|
||
|
call random_seed(size=seed_size)
|
||
|
|
||
|
END_PROVIDER
|
||
|
|
||
|
BEGIN_PROVIDER [ integer, seed, (seed_size) ]
|
||
|
implicit none
|
||
|
BEGIN_DOC
|
||
|
! Random seed
|
||
|
END_DOC
|
||
|
integer :: i
|
||
|
do i=1,seed_size
|
||
|
seed(i) = i
|
||
|
enddo
|
||
|
call random_seed(put=seed)
|
||
|
|
||
|
END_PROVIDER
|
||
|
|
||
|
|