[GRASS5] Bug in src.garden/answers/src.answers/raster/r.fill.dir

[Michel Wurtz - ENGEES/CEREG]

Markus Neteler wrote:
> 
> Hi developers,
> 
> today we need someone familiar with F77...
> src.garden/answers/src.answers/raster/r.fill.dir
> is causing attached problem.
[...]
> f77  -c fillsngl.ffillsngl.f: In program MAIN__':
> fillsngl.f:54: SMALLEST=MIN(DATA(J-1,I1),DATA(J,I1),DATA(J+1,I1),
> 	         1        2
> Type disagreement between expressions at (1) and (2)

By default, name beginning vith [I-N] are integers, float else.
This can be redefined.  Maybe you should look at the definition
of SMALLEST and the MIN function (if i remember well, there is an
AMIN function in the Fortran math library for the min of two floats,
so MIN should be a localy defined function)

-- 
Michel Wurtz    ENGEES - CEREG
                1, quai Koch - BP 1039, F-67070 STRASBOURG cedex
                Tel: +33 03.88.24.82.45  Fax: +33 03.88.37.04.97

---------------------------------------- 
If you want to unsubscribe from GRASS Development
Team internal mailing list write to:
minordomo at geog.uni-hannover.de with
subject 'unsubscribe grass5'
length: 2324
max: 0