Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
HYCAR-Hydro
airGR
Commits
d065b28c
Commit
d065b28c
authored
Aug 11, 2017
by
unknown
Browse files
v1.0.9.16 new airGR.c file to register native routines #4623
parent
aebd458f
Changes
3
Hide whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
d065b28c
Package: airGR
Type: Package
Title: Suite of GR Hydrological Models for Precipitation-Runoff Modelling
Version: 1.0.9.1
5
Version: 1.0.9.1
6
Date: 2017-07-12
Authors@R: c(
person("Laurent", "Coron", role = c("aut", "trl")),
...
...
NAMESPACE
View file @
d065b28c
#####################################
## Load DLL ##
#####################################
useDynLib(airGR)
useDynLib(airGR
, .registration = TRUE
)
...
...
src/airGR.c
0 → 100644
View file @
d065b28c
#include <R_ext/RS.h>
#include <stdlib.h> // for NULL
#include <R_ext/Rdynload.h>
/* FIXME:
Check these declarations against the C/Fortran source code.
*/
/* .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_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_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
*
);
static
const
R_FortranMethodDef
FortranEntries
[]
=
{
{
"frun_cemaneige"
,
(
DL_FUNC
)
&
F77_NAME
(
frun_cemaneige
),
13
},
{
"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_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
},
{
NULL
,
NULL
,
0
}
};
void
R_init_airGR
(
DllInfo
*
dll
)
{
R_registerRoutines
(
dll
,
NULL
,
NULL
,
FortranEntries
,
NULL
);
R_useDynamicSymbols
(
dll
,
FALSE
);
}
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment