Actual source code: ex6f.F

  1: !
  2: !  Progran to test random number generation routines from fortran.
  3: !
  4:        program main
 5:  #include finclude/petscsys.h
  6:       PetscErrorCode  ierr
  7:       PetscRandom     r
  8:       PetscScalar     rand

 10:       call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
 11:       if (ierr .ne. 0) then
 12:          print*, 'Unable to begin PETSc program'
 13:       endif

 15:       call PetscRandomCreate(PETSC_COMM_WORLD,r,ierr)
 16:       call PetscRandomSetFromOptions(r,ierr)
 17:       call PetscRandomGetValue(r,rand,ierr)
 18:       print*, 'Random value:',rand

 20:       call PetscRandomDestroy(r,ierr)
 21:       call PetscFinalize(ierr)
 22:       end