Selvar: added test implementation for USE_STREAM_PTR

src/Selvar.cc

@@ -303,6 +303,11 @@ public:
   {
     Field field;
 
+// #define USE_STREAM_PTR 1
+#ifdef USE_STREAM_PTR
+    auto stream1 = stream_get_pointer(streamID1->m_fileID);
+    auto vlist1 = stream_get_vlist_pointer(streamID1->m_fileID);
+#endif
     int tsID = 0;
     while (true)
       {
@@ -314,8 +319,14 @@ public:
 
         for (int fieldID = 0; fieldID < numFields; ++fieldID)
           {
+#ifdef USE_STREAM_PTR
+            int varID, levelID;
+            pstreamInqField(stream1, &varID, &levelID);
+            if (pvlistInqFlag(vlist1, varID, levelID) == true)
+#else
             auto [varID, levelID] = cdo_inq_field(streamID1);
             if (vlistInqFlag(vlistID1, varID, levelID) == true)
+#endif
               {
                 auto varID2 = vlistFindVar(vlistID2, varID);
                 auto levelID2 = vlistFindLevel(vlistID2, varID, levelID);