void follow(int i)
{
int j,k;
for(j=0;j<=ff0;j++)
if(array[i][0]==ff[j])
return;
if(j>ff0)ff[++ff0]=array[i][0];
if(i==0)fol[l][++f]='$';
for(j=0;j<n;j++)
for(k=2;array[j][k]!='\0';k++)
if(array[j][k]==array[i][0])
ffun(j,k);
}
/* ------------------------------------------------------------------------- */
void init_f (unsigned points, ftype f[],ftype dx, unsigned field_start, unsigned dim_x, unsigned dim_other, ftype lo){
ftype x, y, z;
for (size_t i = 0; i < points; ++i)
for (size_t j = 0; j < points; ++j)
for (size_t k = 0; k < points; ++k){
// el cubo se llena primero de forma ascendiente y luego por el eje y.
// notese que los campos de la cola se "invaden" el principio de la siguiente fila
//unsigned base = field_start + i + dim_x*(j + dim_other * k);
x = lo + i * dx;
y = lo + j * dx;
z = lo + k * dx;
F(i,j,k) = ffun(x, y, z);
}
}
