Closed edwardhartnett closed 1 year ago
In test_bafrio.F90 we have:
! Check record length. ib8 = 0 lx8 = 0 call bafrindex(lu, ib8, lx8, ix8) if (ix8 .ne. 12) then print *, ix8 stop 110 end if
Since ib8 and ix8 are 8-bytes the function should be bafrindexl().
In test_bafrio.F90 we have:
Since ib8 and ix8 are 8-bytes the function should be bafrindexl().