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