Actual source code: ex6f.F

  1: !
  2: !  Progran to test random number generation routines from fortran.
  3: !
  4:        program main
 5:  #include include/finclude/petsc.h
 6:  #include 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