From 65b10d1abfd0493bd85ba88d30000503e0ad467a Mon Sep 17 00:00:00 2001
From: Delaigue Olivier <olivier.delaigue@irstea.priv>
Date: Tue, 29 Jan 2019 09:26:14 +0100
Subject: [PATCH] v1.2.0.1 NEW: Fortran variable declaration for CemaNeige
hysteresis
---
src/airGR.c | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/airGR.c b/src/airGR.c
index 9c149457..ee204b34 100644
--- a/src/airGR.c
+++ b/src/airGR.c
@@ -8,6 +8,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_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,6 +18,7 @@ extern void F77_NAME(frun_gr6j)(int *, double *, double *, int *, double *, int
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_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