1
0
mirror of https://github.com/TREX-CoE/irpjast.git synced 2024-11-04 05:04:00 +01:00
irpjast/random.irp.f

24 lines
344 B
FortranFixed
Raw Normal View History

2020-12-02 15:35:06 +01:00
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