debug

NOAA-EMC · Nov 29, 2024 · 1e19d10 · 1e19d10
1 parent 2d742ed
commit 1e19d10
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/test_bitmap.F90 b/tests/test_bitmap.F90
@@ -15,9 +15,9 @@ program test_bitmap
 
   integer :: lugi, lugb
   parameter(lugi = 31, lugb = 11)
+  integer, parameter :: idxver = 2, ndpts = 16600303
 
   character(len=1), dimension(:), pointer :: cbuf
-  integer :: idxver = 2, ndpts = 16600303
   integer :: iret, nnum, nlen
   integer :: idrstmpl(5) = (/ 0, 0, 0, 3, 0 /)
   real :: fld(ndpts)