sprng.c (e8e8640d1cb9a3a2f50c0c0d7b26e5c4d521e2e4) sprng.c (2ad7e442857a3cef22c06b0e94de84654ca4e109)
1#include <petsc/private/randomimpl.h>
2
3#define USE_MPI
4#define SIMPLE_SPRNG
5EXTERN_C_BEGIN
6#include <sprng.h>
7EXTERN_C_END
8

--- 55 unchanged lines hidden (view full) ---

64 Level: beginner
65
66.seealso: `RandomCreate()`, `RandomSetType()`, `PETSCRAND`, `PETSCRAND48`, `PetscRandomSetFromOptions()`
67M*/
68
69PETSC_EXTERN PetscErrorCode PetscRandomCreate_Sprng(PetscRandom r)
70{
71 PetscFunctionBegin;
1#include <petsc/private/randomimpl.h>
2
3#define USE_MPI
4#define SIMPLE_SPRNG
5EXTERN_C_BEGIN
6#include <sprng.h>
7EXTERN_C_END
8

--- 55 unchanged lines hidden (view full) ---

64 Level: beginner
65
66.seealso: `RandomCreate()`, `RandomSetType()`, `PETSCRAND`, `PETSCRAND48`, `PetscRandomSetFromOptions()`
67M*/
68
69PETSC_EXTERN PetscErrorCode PetscRandomCreate_Sprng(PetscRandom r)
70{
71 PetscFunctionBegin;
72 r->ops = PetscRandomOps_Values;
72 r->ops[0] = PetscRandomOps_Values;
73 PetscCall(PetscObjectChangeTypeName((PetscObject)r, PETSCSPRNG));
74 PetscFunctionReturn(PETSC_SUCCESS);
75}
73 PetscCall(PetscObjectChangeTypeName((PetscObject)r, PETSCSPRNG));
74 PetscFunctionReturn(PETSC_SUCCESS);
75}