Actual source code: ex6f.F90

  1: !
  2: !  Tests random number generation routines from Fortran.
  3: !
  4: program main

  6: #include <petsc/finclude/petscsys.h>
  7:   use petscsys
  8:   implicit none

 10:   PetscErrorCode ierr
 11:   PetscRandom r
 12:   PetscScalar rand

 14:   PetscCallA(PetscInitialize(ierr))

 16:   PetscCallA(PetscRandomCreate(PETSC_COMM_WORLD, r, ierr))
 17:   PetscCallA(PetscRandomSetFromOptions(r, ierr))
 18:   PetscCallA(PetscRandomGetValue(r, rand, ierr))
 19:   print *, 'Random value:', rand
 20:   PetscCallA(PetscRandomDestroy(r, ierr))
 21:   PetscCallA(PetscFinalize(ierr))
 22: end

 24: !
 25: !/*TEST
 26: !
 27: !   test:
 28: !      requires: !complex
 29: !
 30: !TEST*/