1!
2!  Program to test random number generation routines from fortran.
3!
4      program main
5
6#include <petsc/finclude/petscsys.h>
7       use petscsys
8       implicit none
9
10      PetscErrorCode  ierr
11      PetscRandom     r
12      PetscScalar     rand
13
14      call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
15      if (ierr .ne. 0) then
16         print*, 'Unable to begin PETSc program'
17      endif
18
19      call PetscRandomCreate(PETSC_COMM_WORLD,r,ierr)
20      call PetscRandomSetFromOptions(r,ierr)
21      call PetscRandomGetValue(r,rand,ierr)
22      print*, 'Random value:',rand
23
24      call PetscRandomDestroy(r,ierr)
25      call PetscFinalize(ierr)
26      end
27
28!
29!/*TEST
30!
31!   test:
32!      requires: !complex
33!
34!TEST*/
35