Actual source code: rand48.c

petsc-master 2018-06-24
Report Typos and Errors
  1: #define PETSC_DESIRE_FEATURE_TEST_MACROS /* for drand48() */
  2: #include <../src/sys/classes/random/randomimpl.h>

  4: PetscErrorCode  PetscRandomSeed_Rand48(PetscRandom r)
  5: {
  7:   srand48(r->seed);
  8:   return(0);
  9: }

 11: PetscErrorCode  PetscRandomGetValue_Rand48(PetscRandom r,PetscScalar *val)
 12: {
 14: #if defined(PETSC_USE_COMPLEX)
 15:   if (r->iset) {
 16:     *val = PetscRealPart(r->width)*(PetscReal)drand48() + PetscRealPart(r->low) + (PetscImaginaryPart(r->width)*(PetscReal)drand48() + PetscImaginaryPart(r->low)) * PETSC_i;
 17:   } else {
 18:     *val = (PetscReal)drand48() + (PetscReal)drand48()*PETSC_i;
 19:   }
 20: #else
 21:   if (r->iset) *val = r->width * drand48() + r->low;
 22:   else         *val = drand48();
 23: #endif
 24:   return(0);
 25: }

 27: PetscErrorCode  PetscRandomGetValueReal_Rand48(PetscRandom r,PetscReal *val)
 28: {
 30: #if defined(PETSC_USE_COMPLEX)
 31:   if (r->iset) *val = PetscRealPart(r->width)*drand48() + PetscRealPart(r->low);
 32:   else         *val = drand48();
 33: #else
 34:   if (r->iset) *val = r->width * drand48() + r->low;
 35:   else         *val = drand48();
 36: #endif
 37:   return(0);
 38: }

 40: static struct _PetscRandomOps PetscRandomOps_Values = {
 41:   /* 0 */
 42:   PetscRandomSeed_Rand48,
 43:   PetscRandomGetValue_Rand48,
 44:   PetscRandomGetValueReal_Rand48,
 45:   0,
 46:   /* 5 */
 47:   0
 48: };

 50: /*MC
 51:    PETSCRAND48 - access to the basic Unix drand48() random number generator

 53:    Options Database Keys:
 54: . -random_type <rand,rand48,sprng>

 56:   Level: beginner

 58: .seealso: RandomCreate(), RandomSetType(), PETSCRAND, PETSCSPRNG
 59: M*/

 61: PETSC_EXTERN PetscErrorCode PetscRandomCreate_Rand48(PetscRandom r)
 62: {

 66:   PetscMemcpy(r->ops,&PetscRandomOps_Values,sizeof(PetscRandomOps_Values));
 67:   PetscObjectChangeTypeName((PetscObject)r,PETSCRAND48);
 68:   return(0);
 69: }