~ubuntu-branches/ubuntu/wily/grass/wily

« back to all changes in this revision

Viewing changes to raster/r.random.surface/makepp.c

Tags: 7.0.0~rc1+ds1-1~exp1
* New upstream release candidate.
* Repack upstream tarball, remove precompiled Python objects.
* Add upstream metadata.
* Update gbp.conf and Vcs-Git URL to use the experimental branch.
* Update watch file for GRASS 7.0.
* Drop build dependencies for Tcl/Tk, add build dependencies:
  python-numpy, libnetcdf-dev, netcdf-bin, libblas-dev, liblapack-dev
* Update Vcs-Browser URL to use cgit instead of gitweb.
* Update paths to use grass70.
* Add configure options: --with-netcdf, --with-blas, --with-lapack,
  remove --with-tcltk-includes.
* Update patches for GRASS 7.
* Update copyright file, changes:
  - Update copyright years
  - Group files by license
  - Remove unused license sections
* Add patches for various typos.
* Fix desktop file with patch instead of d/rules.
* Use minimal dh rules.
* Bump Standards-Version to 3.9.6, no changes.
* Use dpkg-maintscript-helper to replace directories with symlinks.
  (closes: #776349)
* Update my email to use @debian.org address.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
/* makepp.c                                                             */
2
 
 
3
 
#undef TRACE
4
 
#undef DEBUG
5
 
 
6
 
#undef MAIN
7
2
#include "ransurf.h"
8
3
#include "local_proto.h"
9
4
 
15
10
    int RRow, RCol;
16
11
    double Effect, Value;
17
12
 
18
 
    FUNCTION(MakePP);
 
13
    G_debug(2, "MakePP()");
19
14
 
20
15
    Value = 0.0;
21
16
    RRow = Row + BigF.RowPlus;
26
21
 
27
22
        for (DCol = RCol - BigF.ColPlus; DCol <= RCol + BigF.ColPlus; DCol++) {
28
23
            DistDecay(&Effect, RRow - DRow, RCol - DCol);
29
 
            INT(RRow - DRow);
30
 
            INT(RCol - DCol);
31
 
            DOUBLE(Effect);
32
 
            RETURN;
 
24
            G_debug(3, "(RRow - DRow):%d", RRow - DRow);
 
25
            G_debug(3, "(RCol - DCol):%d", RCol - DCol);
 
26
            G_debug(3, "(Effect):%.12lf", Effect);
 
27
 
33
28
            Value += Effect * Randoms[DRow][DCol];
34
29
        }
35
30
    }
36
31
 
37
32
    return (Value);
38
 
    FUNCTION(end MakePP);
39
33
}