/* nag_rand_quasi_uniform_bydim (g05ypc) Example Program.
 *
 * Copyright 2023 Numerical Algorithms Group.
 *
 * Mark 29.3, 2023.
 */
/* Pre-processor includes */
#include <nag.h>
#include <stdio.h>

#define QUAS(I,J) quas[(J)*pdquas+I]

int main(void) {
  /* Integer scalar and array declarations */
  Integer dn, fdim, i, j, idim, iskip, ldim, pdquas, liref, n, rdim;
  Integer *iref = 0;
  Integer exit_status = 0;

  /* Nag Types */
  NagError fail;
  Nag_OrderType order;
  Nag_QuasiRandom_Sequence genid;

  /* char scalar and array declarations */
  char genid_str[40];

  /* Double scalar and array declarations */
  double *quas = 0;

  /* Initialize the error structure */
  INIT_FAIL(fail);

  printf("nag_rand_quasi_uniform_bydim (g05ypc) Example Program Results\n\n");

  /* Skip heading in data file */
  scanf("%*[^\n] ");

  /* Fix the order = Nag_ColMajor, so QUAS(1:N,:) */
  order = Nag_ColMajor;

  /* Read in the generator to use */
  scanf("%39s%*[^\n] ", genid_str);

  /* Convert the string to the associated enum */
  genid = (Nag_QuasiRandom_Sequence)nag_enum_name_to_value(genid_str);

/* Read in the problem size */
  scanf("%" NAG_IFMT "%" NAG_IFMT "%" NAG_IFMT "%*[^\n] ", &n, &idim, &iskip);

  /* Calculate the size of the reference vector */
  liref = (genid == Nag_QuasiRandom_Faure) ? 407 : 32 * idim + 7;

  /* Because we are calling nag_rand_quasi_uniform_bydim (g05ypc), IREF needs 
   * to be IDIM elements bigger than the minimum length 
   */
  liref += idim;

  if (!(iref = NAG_ALLOC(liref, Integer))) {
    printf("Allocation failure\n");
    exit_status = -1;
    goto END;
  }

/* Read in the dimensions that we require */
  scanf("%" NAG_IFMT "%" NAG_IFMT "%*[^\n] ", &fdim, &ldim);

  rdim = ldim - fdim + 1;
  pdquas = n;
  if (!(quas = NAG_ALLOC(pdquas*rdim, double))) {
    printf("Allocation failure\n");
    exit_status = -1;
    goto END;
  }

  /* Initialize the generator */
  nag_quasi_init(genid,idim,iref,liref,iskip,&fail);
  if (fail.code != NE_NOERROR) {
    printf("Error from nag_quasi_init (g05ylc).\n%s\n",
           fail.message);
    exit_status = -1;
    goto END;
  }

  /* Generate N quasi-random variates for dimensions FDIM to LDIM */
  nag_rand_quasi_uniform_bydim(order,n,fdim,ldim,quas,pdquas,iref,&fail);
  if (fail.code != NE_NOERROR) {
    printf("Error from nag_rand_quasi_uniform_bydim (g05ypc).\n%s\n",
           fail.message);
    exit_status = -1;
    goto END;
  }

  /* Read in number of variates to display */
  scanf("%" NAG_IFMT "%*[^\n] ", &dn);

  /* Display the first dn variates */
  printf("\n");
  printf("First %" NAG_IFMT " variates for dimensions %" NAG_IFMT
         " to %"   NAG_IFMT "\n",
         dn, fdim, ldim);
  printf("       ");
  for (i = fdim; i <= ldim; ++i)
    printf("     %4" NAG_IFMT "",i);
  printf("\n");
  for (i = 0; i < n; ++i) {
    printf("%5" NAG_IFMT "     ", i+1);
    for (j = 0; j < rdim; ++j)
      printf(" %8.4f", QUAS(i,j));
    printf("\n");
  }

END:
  NAG_FREE(iref);
  NAG_FREE(quas);

  return (exit_status);
}