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

[Jacques Bouchard]

Michel Wurtz - ENGEES/CEREG wrote:
> 
> 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)

MIN is a standard FORTRAN77 intrinsic function which may use more
than 2 arguments. It is a GENERIC function, so it is OK to use it
with INTEGER, FLOAT or DOUBLE arguments.

I have no compilation error on my platform:

Redhat Linux 6.2 + egcs-g77-1.1.2-30 + glibc-2.1.3-15

Jacques

---------------------------------------- 
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: 2116
max: 0