mlfma.c
/* Build a column of the far-field signature for a point a distance rmc
 * from the center of the parent box. */
Build a column of the far-field signature for a point a distance rmc
from the center of the parent box.
Build a column of the far - field signature for a point a distance rmc from the center of the parent box .
static int farmatcol (cplx *col, real k, real *rmc, int ntheta, int nphi) {
	int nsamp = nphi * (ntheta - 2) + 2;
	real cell[3] = { fmaconf.cell, fmaconf.cell, fmaconf.cell };
#pragma omp parallel default(shared)
{
	real s[3];
	int i;
#pragma omp for
	for (i = 0; i < nsamp; ++i) {
		sampcoords (s, i, ntheta, nphi);
		col[i] = srcint(k, rmc, s, cell, fsplane);
	}
}
	return 0;
}
static int farmatcol ( cplx * col , real k , real * rmc , int ntheta , int nphi ) { int nsamp = nphi * ( ntheta - 2 ) + 2 ; real cell [ 3 ] = { fmaconf . cell , fmaconf . cell , fmaconf . cell } ; #pragma  omp parallel default(shared) { real s [ 3 ] ; int i ; #pragma  omp for for ( i = 0 ; i < nsamp ; ++ i ) { sampcoords ( s , i , ntheta , nphi ) ; col [ i ] = srcint ( k , rmc , s , cell , fsplane ) ; } } return 0 ; }
Build a column of the far-field signature for a point a distance rmc
 from the center of the parent box.
Build a column of the far - field signature for a point a distance rmc from the center of the parent box .
/* Compute the Cartesian coordinates of the far-field sample. */ /* Compute the far-field sample. */