Actual source code: ex6f.F
1: ! "$Id: ex6.F,v 1.12 2001/08/07 03:02:12 balay 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: PetscScalar 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