mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-11-04 05:04:00 +01:00
22 lines
342 B
Fortran
22 lines
342 B
Fortran
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
|