Renamed ISEC2_RowLonPtr to ISEC2_ReducedPointsPtr.

src/cdi.inc

 ! This file was automatically generated, don't edit!
 !
-! Fortran interface for CDI library version 1.9.7
+! Fortran interface for CDI library version 1.9.8
 !
 ! Author:
 ! -------
-! Uwe Schulzweida, MPI-MET, Hamburg,   June 2019
+! Uwe Schulzweida, MPI-MET, Hamburg,   July 2019
 !
 
       INTEGER    CDI_MAX_NAME
@@ -1978,16 +1978,16 @@
 !                                     DOUBLEPRECISION ybounds(*))
       EXTERNAL        gridInqYboundsPart
 
-!                     gridDefRowlon
+!                     gridDefReducedPoints
 !                                    (INTEGER         gridID,
-!                                     INTEGER         nrowlon,
-!                                     INTEGER         rowlon(*))
-      EXTERNAL        gridDefRowlon
+!                                     INTEGER         reducedPointsSize,
+!                                     INTEGER         reducedPoints(*))
+      EXTERNAL        gridDefReducedPoints
 
-!                     gridInqRowlon
+!                     gridInqReducedPoints
 !                                    (INTEGER         gridID,
-!                                     INTEGER         rowlon(*))
-      EXTERNAL        gridInqRowlon
+!                                     INTEGER         reducedPoints(*))
+      EXTERNAL        gridInqReducedPoints
 
 !                     gridChangeType
 !                                    (INTEGER         gridID,

src/cdiFortran.c

@@ -594,8 +594,8 @@ static int gridInqYboundsPart_fwrap(int gridID, int start, int size, double ybou
   return size_t_c2f(v);
 }
 FCALLSCFUN4 (INT, gridInqYboundsPart_fwrap, GRIDINQYBOUNDSPART, gridinqyboundspart, INT, INT, INT, DOUBLEV)
-FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFROWLON, griddefreducedPoints, INT, INT, INTV)
-FCALLSCSUB2 (gridInqReducedPoints, GRIDINQROWLON, gridinqreducedPoints, INT, INTV)
+FCALLSCSUB3 (gridDefReducedPoints, GRIDDEFREDUCEDPOINTS, griddefreducedpoints, INT, INT, INTV)
+FCALLSCSUB2 (gridInqReducedPoints, GRIDINQREDUCEDPOINTS, gridinqreducedpoints, INT, INTV)
 FCALLSCSUB2 (gridChangeType, GRIDCHANGETYPE, gridchangetype, INT, INT)
 FCALLSCSUB2 (gridDefComplexPacking, GRIDDEFCOMPLEXPACKING, griddefcomplexpacking, INT, INT)
 FCALLSCFUN1 (INT, gridInqComplexPacking, GRIDINQCOMPLEXPACKING, gridinqcomplexpacking, INT)

src/make_fint.c

@@ -15,7 +15,8 @@
 #endif
 
 //#include "config.h"
-#define VERSION "1.9.7"
+#define VERSION "1.9.8"
+
 typedef struct
 {
   size_t naline;

src/stream_cgribex.c

@@ -256,7 +256,7 @@ bool cgribexGetGrid(stream_t *streamptr, int *isec2, int *isec4, grid_t *grid, i
     {
       int nlon = 0;
       for ( int ilat = 0; ilat < ISEC2_NumLat; ++ilat )
-        if ( ISEC2_RowLon(ilat) > nlon ) nlon = ISEC2_RowLon(ilat);
+        if ( ISEC2_ReducedPoints(ilat) > nlon ) nlon = ISEC2_ReducedPoints(ilat);
       gridtype = GRID_GAUSSIAN;
       ISEC2_NumLon = nlon;
       ISEC4_NumValues = nlon*ISEC2_NumLat;
@@ -355,7 +355,7 @@ bool cgribexGetGrid(stream_t *streamptr, int *isec2, int *isec4, grid_t *grid, i
       uvRelativeToGrid = gribbyte_get_bit(ISEC2_ResFlag, 5);
       grid->np      = ISEC2_NumPar;
       grid->size    = (size_t)ISEC4_NumValues;
-      grid->reducedPoints  = ISEC2_RowLonPtr;
+      grid->reducedPoints  = ISEC2_ReducedPointsPtr;
       grid->reducedPointsSize = (size_t)ISEC2_NumLat;
       grid->y.size  = (size_t)ISEC2_NumLat;
       grid->x.inc   = 0;
@@ -1603,7 +1603,7 @@ void cgribexDefGridRegular(int *isec2, double *fsec2, int gridID, int gridtype,
     {
       ISEC2_Reduced = true;
       nlon = 0;
-      gridInqReducedPoints(gridID, ISEC2_RowLonPtr);
+      gridInqReducedPoints(gridID, ISEC2_ReducedPointsPtr);
     }
   else
     {