https://github.com/cran/aster
Tip revision: aa47935123bfca8a22cbc8345d658d0c1713a289 authored by Charles J. Geyer on 14 December 2023, 15:20:02 UTC
version 1.1-3
version 1.1-3
Tip revision: aa47935
astorig.c
#include "aster.h"
#include "raster.h"
void aster_default_origin(int *nindin, int *nnodein, int *fam, double *result)
{
int nind = nindin[0];
int nnode = nnodein[0];
int i, j, k;
if (nind <= 0)
die("'nind' must be positive integer\n");
if (nnode <= 0)
die("'nnode' must be positive integer\n");
/* fam values are 1-origin indexing */
for (j = 0, k = 0; j < nnode; ++j) {
double foo = aster_family_origin(fam[j]);
for (i = 0; i < nind; ++i, ++k)
result[k] = foo;
}
}