1: !
  2: !  Tests random number generation routines from Fortran.
  3: !
  4: #include <petsc/finclude/petscsys.h>
  5: program main
  6:   use petscsys
  7:   implicit none

  9:   PetscErrorCode ierr
 10:   PetscRandom r
 11:   PetscScalar rand

 13:   PetscCallA(PetscInitialize(ierr))

 15:   PetscCallA(PetscRandomCreate(PETSC_COMM_WORLD, r, ierr))
 16:   PetscCallA(PetscRandomSetFromOptions(r, ierr))
 17:   PetscCallA(PetscRandomGetValue(r, rand, ierr))
 18:   print *, 'Random value:', rand
 19:   PetscCallA(PetscRandomDestroy(r, ierr))
 20:   PetscCallA(PetscFinalize(ierr))
 21: end

 23: !
 24: !/*TEST
 25: !
 26: !   test:
 27: !      requires: !complex
 28: !
 29: !TEST*/