From 165c15681fcd548b37a1fdde4a79091243591cd8 Mon Sep 17 00:00:00 2001
From: AlysonStahl-NOAA <166434581+AlysonStahl-NOAA@users.noreply.github.com>
Date: Tue, 3 Dec 2024 09:56:12 -0800
Subject: [PATCH] debug

---
 tests/test_bitmap.F90 | 26 ++++++++++++++++++--------
 1 file changed, 18 insertions(+), 8 deletions(-)

diff --git a/tests/test_bitmap.F90 b/tests/test_bitmap.F90
index 981d4da2..13194e01 100644
--- a/tests/test_bitmap.F90
+++ b/tests/test_bitmap.F90
@@ -18,11 +18,12 @@ program test_bitmap
   integer, parameter :: idxver = 2
 
   character(len=1), dimension(:), pointer :: cbuf
-  integer :: iret, nnum, nlen
-  integer, dimension(*):: igds, igdstmpl, ideflist, ipdstmpl, coordlist, &
-      idrstmpl, bmap, fld
-  integer :: igdslen, idefnum, ipdsnum, ipdslen, numcoord, ndpts, idrsnum, &
-      idrslen, ibmap
+  integer :: iret, nnum, nlen, numlocal, numfields
+  integer :: listsec0(3), listsec1(13) maxvals(7)
+  !integer, dimension(*):: igds, igdstmpl, ideflist, ipdstmpl, coordlist, &
+  !    idrstmpl, bmap, fld
+  !integer :: igdslen, idefnum, ipdsnum, ipdslen, numcoord, ndpts, idrsnum, &
+  !    idrslen, ibmap
 
   interface
     subroutine g2_create_index(lugb, lugi, idxver, filename, iret)
@@ -53,11 +54,20 @@ end subroutine getidx2
   if (nnum .ne. 1) stop 6
   if (nlen .ne. 226) stop 7
 
-  call getfield(cbuf, nnum, 6, igds, igdstmpl, igdslen, ideflist, idefnum, &
-       ipdsnum, ipdstmpl, ipdslen, coordlist, numcoord, ndpts, idrsnum, &
-       idrstmpl, idrslen, ibmap, bmap, fld, iret)
+  call gribinfo(cbuf, nlen, listsec0, listsec1, numlocal, numfields, maxvals, iret)
+  !call getfield(cbuf, nnum, 6, igds, igdstmpl, igdslen, ideflist, idefnum, &
+  !     ipdsnum, ipdstmpl, ipdslen, coordlist, numcoord, ndpts, idrsnum, &
+  !     idrstmpl, idrslen, ibmap, bmap, fld, iret)
   if (iret .ne. 0) stop 8
 
+  print *, maxvals(1)
+  print *, maxvals(2)
+  print *, maxvals(3)
+  print *, maxvals(4)
+  print *, maxvals(5)
+  print *, maxvals(6)
+  print *, maxvals(7)
+
   call baclose(lugb, iret)
   if (iret .ne. 0) stop 100
   call baclose(lugi, iret)