mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-08-25 22:51:50 +02:00
24 lines
344 B
Fortran
24 lines
344 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
|
|
|
|
|