From 7c093b52f141c0b3458dd00186092365a1bed70a Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Wed, 4 Dec 2019 16:34:40 +0100
Subject: [PATCH] v1.4.0.4 UPDATE: frun_gr5h rountine is now registered
inairGR.c file #13
---
DESCRIPTION | 2 +-
NEWS.md | 2 +-
src/airGR.c | 2 ++
3 files changed, 4 insertions(+), 2 deletions(-)
diff --git a/DESCRIPTION b/DESCRIPTION
index b1ecf54b..c04aac5a 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,7 +1,7 @@
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
-Version: 1.4.0.3
+Version: 1.4.0.4
Date: 2019-12-04
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")),
diff --git a/NEWS.md b/NEWS.md
index 165ae4f3..612a3d30 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -2,7 +2,7 @@
-### 1.4.0.3 Release Notes (2019-12-04)
+### 1.4.0.4 Release Notes (2019-12-04)
#### New features
diff --git a/src/airGR.c b/src/airGR.c
index 4ccbc878..3ef276e4 100644
--- a/src/airGR.c
+++ b/src/airGR.c
@@ -11,6 +11,7 @@ extern void F77_NAME(frun_cemaneige)(int *, double *, double *, double *, double
extern void F77_NAME(frun_gr1a)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
extern void F77_NAME(frun_gr2m)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
extern void F77_NAME(frun_gr4h)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
+extern void F77_NAME(frun_gr5h)(int *, double *, double *, int *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
extern void F77_NAME(frun_gr4j)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
extern void F77_NAME(frun_gr5j)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
extern void F77_NAME(frun_gr6j)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *);
@@ -20,6 +21,7 @@ static const R_FortranMethodDef FortranEntries[] = {
{"frun_gr1a", (DL_FUNC) &F77_NAME(frun_gr1a), 11},
{"frun_gr2m", (DL_FUNC) &F77_NAME(frun_gr2m), 11},
{"frun_gr4h", (DL_FUNC) &F77_NAME(frun_gr4h), 11},
+ {"frun_gr4h", (DL_FUNC) &F77_NAME(frun_gr5h), 13},
{"frun_gr4j", (DL_FUNC) &F77_NAME(frun_gr4j), 11},
{"frun_gr5j", (DL_FUNC) &F77_NAME(frun_gr5j), 11},
{"frun_gr6j", (DL_FUNC) &F77_NAME(frun_gr6j), 11},
--
GitLab