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*/