diff --git a/src/airGR.c b/src/airGR.c
index 9c149457a5d36fe9bea49df47c352c49f82c59d9..ee204b34115a8b01208f1914b34513ca2624a595 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},