Skip to content

Commit

Permalink
more changes
Browse files Browse the repository at this point in the history
  • Loading branch information
edwardhartnett committed Feb 5, 2024
1 parent fcab515 commit 6904010
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/g2index.F90
Original file line number Diff line number Diff line change
Expand Up @@ -691,7 +691,7 @@ end subroutine ix2gb2
call ix2gb2(lugb, lskip, 1, lgrib, cbuf, numfld, mlen, iret)
end subroutine ixgb2

!> Generate an index record for each field in a GRIB2 message. The index
!> Generate an index record for each field in a GRIB2 message. The index
!> records are written to index buffer pointed to by cbuf. All integers
!> in the index are in big-endian format.
!>
Expand Down Expand Up @@ -741,7 +741,7 @@ end subroutine ixgb2
!> - 4 Not enough memory to allocate extent to index buffer.
!> - 5 Unidentified GRIB section encountered.
!>
!> @author Mark Iredell @date 1995-10-31
!> @author Ed Hartnett, Mark Iredell @date Feb 5, 2024
subroutine ix2gb2(lugb, lskip, idxver, lgrib, cbuf, numfld, mlen, iret)
use re_alloc ! needed for subroutine realloc
implicit none
Expand Down

0 comments on commit 6904010

Please sign in to comment.