1: #include <petsc/private/fortranimpl.h>
2: #include <petscsys.h>
4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
5: #define petscrandomsetseed_ PETSCRANDOMSETSEED
6: #define petscrandomgetseed_ PETSCRANDOMGETSEED
7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
8: #define petscrandomsetseed_ petscrandomsetseed
9: #define petscrandomgetseed_ petscrandomgetseed
10: #endif
12: PETSC_EXTERN void petscrandomgetseed_(PetscRandom *r, unsigned long *seed, PetscErrorCode *ierr)
13: {
14: *ierr = PetscRandomGetSeed(*r, seed);
15: }
16: PETSC_EXTERN void petscrandomsetseed_(PetscRandom *r, unsigned long *seed, PetscErrorCode *ierr)
17: {
18: *ierr = PetscRandomSetSeed(*r, *seed);
19: }