fixing warning in degrib2

Author: edwardhartnett

utils/degrib2.F90

@@ -29,7 +29,8 @@ program degrib2
   character(len = 40) :: labbrev
   character(len = 110) :: tabbrev
   integer(4) narg, iargc, temparg
-  integer :: currlen = 0,  numpts = 0
+  integer :: numpts = 0
+  integer*8 :: currlen = 0
   logical :: unpack, expand
   type(gribfield) :: gfld
   integer :: ierr, ios, is
@@ -69,7 +70,7 @@ program degrib2
      endif
      call bareadl(ifl1, lskip8, lgrib8, lengrib8, cgrib)
      lengrib = lengrib8
-     if (lgrib8 .ne. lengrib) then
+     if (lgrib8 .ne. lengrib8) then
         write(6, *)' degrib2: IO Error.'
         call errexit(9)
      endif