Commit dedb7f39 authored by Gebhardt, Albrecht's avatar Gebhardt, Albrecht
Browse files

remove last Fortran warnings, hopefully next release.

fix documentation xref to tripack.
parent c5aeabb9
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)),
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment