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