TREX/irpjast
1
0
Fork 0
mirror of https://github.com/TREX-CoE/irpjast.git synced 2024-08-25 14:41:48 +02:00
Code Issues Projects Releases Wiki Activity

Random file

Browse Source
This commit is contained in:
Anthony Scemama 2020-12-02 15:35:06 +01:00
parent 1f8e639e0c
commit bcd9d7491a
1 changed files with 23 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
random.irp.f Normal file
View 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