mlfma.c
/* Build a row of the far-field signature for a fixed field sample s. */
Build a row of the far-field signature for a fixed field sample s.
Build a row of the far - field signature for a fixed field sample s .
static int farmatrow (cplx *row, real k, real *s, real dx, int bpd) {
	int bptot = bpd * bpd * bpd;
	real cell[3] = { fmaconf.cell, fmaconf.cell, fmaconf.cell };
#pragma omp parallel default(shared)
{
	int l;
	real dist[3];
#pragma omp for
	for (l = 0; l < bptot; ++l) {
		cellcoords (dist, l, bpd, dx);
		row[l] = srcint(k, dist, s, cell, fsplane);
	}
}
	return 0;
}
static int farmatrow ( cplx * row , real k , real * s , real dx , int bpd ) { int bptot = bpd * bpd * bpd ; real cell [ 3 ] = { fmaconf . cell , fmaconf . cell , fmaconf . cell } ; #pragma  omp parallel default(shared) { int l ; real dist [ 3 ] ; #pragma  omp for for ( l = 0 ; l < bptot ; ++ l ) { cellcoords ( dist , l , bpd , dx ) ; row [ l ] = srcint ( k , dist , s , cell , fsplane ) ; } } return 0 ; }
Build a row of the far-field signature for a fixed field sample s.
Build a row of the far - field signature for a fixed field sample s .
/* The distance from the basis to the box center. */ /* The value of the far-field sample of the cell. */