mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-07-23 03:07:47 +02: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
|
||
|
|
|
||
|
|
|