update fortran interface

src/cdi.inc

 ! This file was automatically created, don't edit!
 !
-! Fortran interface for CDI library version 1.4.7
+! Fortran interface for CDI library version 1.4.8
 !
 ! Author:
 ! -------
-! Uwe Schulzweida, MPI-MET, Hamburg,   January 2011
+! Uwe Schulzweida, MPI-MET, Hamburg,   February 2011
 !
 
       INTEGER    CDI_UNDEFID           
@@ -208,8 +208,8 @@
       PARAMETER (GRID_LAEA              = 13)
       INTEGER    GRID_SINUSOIDAL       
       PARAMETER (GRID_SINUSOIDAL        = 14)
-      INTEGER    GRID_NUMBER           
-      PARAMETER (GRID_NUMBER            = 15)
+      INTEGER    GRID_REFERENCE        
+      PARAMETER (GRID_REFERENCE         = 15)
 !
 !  ZAXIS types
 !
@@ -1366,7 +1366,7 @@
       EXTERNAL        gridDefGMEni3
 
 !
-!  Number grid
+!  Reference grid
 !
       INTEGER         gridInqNumber
 !                                    (INTEGER         gridID)
@@ -1386,6 +1386,16 @@
 !                                     INTEGER         position)
       EXTERNAL        gridDefPosition
 
+      INTEGER         gridInqReference
+!                                    (INTEGER         gridID,
+!                                     CHARACTER*(*)   reference)
+      EXTERNAL        gridInqReference
+
+!                     gridDefReference
+!                                    (INTEGER         gridID,
+!                                     CHARACTER*(*)   reference)
+      EXTERNAL        gridDefReference
+
 !
 !  Lambert Conformal Conic grid (GRIB version)
 !

src/cdiFortran.c

-/* Automatically created with make_cfint.c, don't edit! */
-
-#if ! defined (_CDI_H)
-#  include "cdi.h"
-#endif
+/* Automatically created with make_fint.c, don't edit! */
 
 #if defined (HAVE_CONFIG_H)
 #  include "config.h"
 #endif
 
+#if ! defined (_CDI_H)
+#  include "cdi.h"
+#endif
+
 #if defined (HAVE_CF_INTERFACE)
 
 #if ! defined (__CFORTRAN_LOADED)
@@ -285,12 +285,14 @@ FCALLSCSUB2 (gridDefGMEni2, GRIDDEFGMENI2, griddefgmeni2, INT, INT)
 FCALLSCFUN1 (INT, gridInqGMEni3, GRIDINQGMENI3, gridinqgmeni3, INT)
 FCALLSCSUB2 (gridDefGMEni3, GRIDDEFGMENI3, griddefgmeni3, INT, INT)
 
-/*  Number grid  */
+/*  Reference grid  */
 
 FCALLSCFUN1 (INT, gridInqNumber, GRIDINQNUMBER, gridinqnumber, INT)
 FCALLSCSUB2 (gridDefNumber, GRIDDEFNUMBER, griddefnumber, INT, INT)
 FCALLSCFUN1 (INT, gridInqPosition, GRIDINQPOSITION, gridinqposition, INT)
 FCALLSCSUB2 (gridDefPosition, GRIDDEFPOSITION, griddefposition, INT, INT)
+FCALLSCFUN2 (INT, gridInqReference, GRIDINQREFERENCE, gridinqreference, INT, PSTRING)
+FCALLSCSUB2 (gridDefReference, GRIDDEFREFERENCE, griddefreference, INT, STRING)
 
 /*  Lambert Conformal Conic grid (GRIB version)  */
 

src/make_fint.c

@@ -125,16 +125,16 @@ void fortran_interface(char *fname, char *fnameinc, char *fnameint)
 
   /* fortran interface */
 
-  fprintf(fpint, "/* Automatically created with make_cfint.c, don't edit! */\n");
-  fprintf(fpint, "\n");
-  fprintf(fpint, "#if ! defined (_CDI_H)\n");
-  fprintf(fpint, "#  include \"cdi.h\"\n");
-  fprintf(fpint, "#endif\n");
+  fprintf(fpint, "/* Automatically created with make_fint.c, don't edit! */\n");
   fprintf(fpint, "\n");
   fprintf(fpint, "#if defined (HAVE_CONFIG_H)\n");
   fprintf(fpint, "#  include \"config.h\"\n");
   fprintf(fpint, "#endif\n");
   fprintf(fpint, "\n");
+  fprintf(fpint, "#if ! defined (_CDI_H)\n");
+  fprintf(fpint, "#  include \"cdi.h\"\n");
+  fprintf(fpint, "#endif\n");
+  fprintf(fpint, "\n");
   fprintf(fpint, "#if defined (HAVE_CF_INTERFACE)\n");
   fprintf(fpint, "\n");
   fprintf(fpint, "#if ! defined (__CFORTRAN_LOADED)\n");