remove last Fortran warnings, hopefully next release.

fix documentation xref to tripack.

DESCRIPTION

 Package: akima
-Version: 0.6-3.3
-Date: 2022-04-18
+Version: 0.6-3.4
+Date: 2022-04-25
 Title: Interpolation of Irregularly and Regularly Spaced Data
 Authors@R: c(person("Hiroshi", "Akima", role = c("aut", "cph"),
 		     comment = "Fortran code (TOMS 760, 761, 697 and 433)"),
@@ -25,6 +25,7 @@ Description: Several cubic spline interpolation methods of H. Akima for irregula
 License: ACM | file LICENSE
 Depends: R (>= 2.0.0)
 Imports: sp
+Enhances: tripack
 NeedsCompilation: yes
 Packaged: 2022-04-18 14:34:55 UTC; agebhard
 Author: Hiroshi Akima [aut, cph] (Fortran code (TOMS 760, 761, 697 and 433)),

src/tripack.f

@@ -3937,6 +3937,16 @@ C
     2 SWPTST = .FALSE.
       RETURN
       END
+C previously a statement function:
+C FRWRD = TRUE iff C is forward of A->B
+C              iff <A->B,A->C> .GE. 0.
+C
+      LOGICAL FUNCTION FRWRD(XA,YA,XB,YB,XC,YC) 
+      IMPLICIT DOUBLE PRECISION (X-Y)
+      FRWRD= (XB-XA)*(XC-XA) +
+     .       (YB-YA)*(YC-YA) .GE. 0.
+      RETURN
+      END
       SUBROUTINE TRFIND (NST,PX,PY,X,Y,LIST,LPTR,LEND, I1,
      .                   I2,I3)
       INTEGER NST, LIST(*), LPTR(*), LEND(*), I1, I2, I3
@@ -4004,12 +4014,6 @@ C
       INTEGER LP, N0, N1, N2, N3, N4, NB, NF, NL, NP, NPP
       LOGICAL FRWRD
       DOUBLE PRECISION    XA, XB, XC, XP, YA, YB, YC, YP
-C
-C FRWRD = TRUE iff C is forward of A->B
-C              iff <A->B,A->C> .GE. 0.
-C
-      FRWRD(XA,YA,XB,YB,XC,YC) = (XB-XA)*(XC-XA) +
-     .                           (YB-YA)*(YC-YA) .GE. 0.
 C
       N0 = MAX(NST,1)
       XP = PX