Actual source code: ex6.F
1: ! "$Id: ex6.F,v 1.11 2000/09/27 20:04:29 bsmith Exp $";
2: !
3: ! Progran to test random number generation routines from fortran.
4: !
5: program main
6: #include "include/finclude/petsc.h"
7: #include "include/finclude/petscsys.h"
8: integer ierr
9: PetscRandom r
10: Scalar rand
12: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
13: if (ierr .ne. 0) then
14: print*, 'Unable to begin PETSc program'
15: endif
17: call PetscRandomCreate(PETSC_COMM_WORLD,RANDOM_DEFAULT,r,ierr)
18: call PetscRandomGetValue(r,rand,ierr)
19: print*, 'Random value:',rand
21: call PetscRandomDestroy(r,ierr)
22: call PetscFinalize(ierr)
23: end