File: makepp.c

package info (click to toggle)
grass 6.0.2-6
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 40,044 kB
  • ctags: 31,303
  • sloc: ansic: 321,125; tcl: 25,676; sh: 11,176; cpp: 10,098; makefile: 5,025; fortran: 1,846; yacc: 493; lex: 462; perl: 133; sed: 1
file content (41 lines) | stat: -rw-r--r-- 816 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
/* makepp.c								*/

#define TRACE
#undef TRACE
#define DEBUG
#undef DEBUG

#undef MAIN
#include "ransurf.h"

double
MakePP( Row, Col, OutRows, OutCols, Randoms, BigF)
	int	Row, Col, OutRows, OutCols;
	double	**Randoms;
	BIGF	BigF;
{
	int	DRow, DCol, LR, HR, LC, HC;
	int	RRow, RCol;
	double	Effect, Value;

	FUNCTION(MakePP);

	Value = 0.0;
	RRow = Row + BigF.RowPlus;
	RCol = Col + BigF.ColPlus;
	for( DRow = RRow - BigF.RowPlus;
	     DRow <= RRow + BigF.RowPlus; DRow++) {
	    /* if( BigF.LowBF  this to speed up function */
	    for( DCol = RCol - BigF.ColPlus;
		 DCol <= RCol + BigF.ColPlus; DCol++) {
		DistDecay( &Effect, RRow-DRow, RCol-DCol);
		INT(RRow-DRow);
		INT(RCol-DCol);
		DOUBLE(Effect);
		RETURN;
		Value += Effect * Randoms[ DRow][ DCol];
	    }
	}
	return( Value);
	FUNCTION(end MakePP);
}