Actual source code: ex6f.F
1: !
2: ! Progran to test random number generation routines from fortran.
3: !
4: program main
5: #include finclude/petsc.h
6: #include finclude/petscsys.h
7: PetscErrorCode ierr
8: PetscRandom r
9: PetscScalar rand
11: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
12: if (ierr .ne. 0) then
13: print*, 'Unable to begin PETSc program'
14: endif
16: call PetscRandomCreate(PETSC_COMM_WORLD,r,ierr)
17: call PetscRandomSetFromOptions(r,ierr)
18: call PetscRandomGetValue(r,rand,ierr)
19: print*, 'Random value:',rand
21: call PetscRandomDestroy(r,ierr)
22: call PetscFinalize(ierr)
23: end