mirror of
https://github.com/TREX-CoE/irpjast.git
synced 2024-08-25 06:31:46 +02:00
Random file
This commit is contained in:
parent
1f8e639e0c
commit
bcd9d7491a
23
random.irp.f
Normal file
23
random.irp.f
Normal file
@ -0,0 +1,23 @@
|
||||
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
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user