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