From 4c830833281a40f363d8c101d026d46a606fa7cd Mon Sep 17 00:00:00 2001 From: Delaigue Olivier <olivier.delaigue@irstea.priv> Date: Tue, 19 Feb 2019 08:38:45 +0100 Subject: [PATCH] v1.2.2.2 UPDATE: frun_cemaneige declaration in airGR.c file --- DESCRIPTION | 2 +- NEWS.rmd | 2 +- src/airGR.c | 6 ++---- 3 files changed, 4 insertions(+), 6 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index cba6ebfd..a11ef6f9 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.2.2.1 +Version: 1.2.2.2 Date: 2019-02-19 Authors@R: c( person("Laurent", "Coron", role = c("aut", "trl"), comment = c(ORCID = "0000-0002-1503-6204")), diff --git a/NEWS.rmd b/NEWS.rmd index 2c09db93..a2b79aea 100644 --- a/NEWS.rmd +++ b/NEWS.rmd @@ -13,7 +13,7 @@ output: -### 1.2.2.0 Release Notes (2019-01-30) +### 1.2.2.2 Release Notes (2019-01-30) diff --git a/src/airGR.c b/src/airGR.c index ee204b34..4ccbc878 100644 --- a/src/airGR.c +++ b/src/airGR.c @@ -7,8 +7,7 @@ */ /* .Fortran calls */ -extern void F77_NAME(frun_cemaneige)(int *, double *, double *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *); -extern void F77_NAME(frun_cemaneige_pr)(int *, double *, double *, double *, double *, int *, double *, int *, double *, int *, int *, int *, double *, double *); +extern void F77_NAME(frun_cemaneige)(int *, double *, double *, double *, double *, int *, double *, int *, double *, int *, int *, int *, 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 *); @@ -17,8 +16,7 @@ extern void F77_NAME(frun_gr5j)(int *, double *, double *, int *, double *, int extern void F77_NAME(frun_gr6j)(int *, double *, double *, int *, double *, int *, double *, int *, int *, double *, double *); static const R_FortranMethodDef FortranEntries[] = { - {"frun_cemaneige", (DL_FUNC) &F77_NAME(frun_cemaneige), 13}, - {"frun_cemaneige_pr", (DL_FUNC) &F77_NAME(frun_cemaneige_pr), 14}, + {"frun_cemaneige", (DL_FUNC) &F77_NAME(frun_cemaneige), 14}, {"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}, -- GitLab