1! 2! Tests random number generation routines from Fortran. 3! 4#include <petsc/finclude/petscsys.h> 5program main 6 use petscsys 7 implicit none 8 9 PetscErrorCode ierr 10 PetscRandom r 11 PetscScalar rand 12 13 PetscCallA(PetscInitialize(ierr)) 14 15 PetscCallA(PetscRandomCreate(PETSC_COMM_WORLD, r, ierr)) 16 PetscCallA(PetscRandomSetFromOptions(r, ierr)) 17 PetscCallA(PetscRandomGetValue(r, rand, ierr)) 18 print *, 'Random value:', rand 19 PetscCallA(PetscRandomDestroy(r, ierr)) 20 PetscCallA(PetscFinalize(ierr)) 21end 22 23! 24!/*TEST 25! 26! test: 27! requires: !complex 28! 29!TEST*/ 30