Skip to content

Commit

Permalink
Merge branch 'develop' into ejh_g2f_3
Browse files Browse the repository at this point in the history
  • Loading branch information
edwardhartnett authored Dec 23, 2024
2 parents bc1cc61 + c6541b7 commit 1f60bf6
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/g2c_interface.F90
Original file line number Diff line number Diff line change
Expand Up @@ -103,7 +103,7 @@ function g2c_close(g2id) bind(c)
integer(c_int), value :: g2id
integer(c_int) :: g2c_close
end function g2c_close

function g2c_set_log_level(log_level) bind(c)
use iso_c_binding
integer(c_int), intent(in) :: log_level
Expand Down
2 changes: 1 addition & 1 deletion tests/test_g2cf.F90
Original file line number Diff line number Diff line change
Expand Up @@ -73,7 +73,7 @@ program test_g2cf
if (drs_template(i) .ne. expected_drs_template(i)) stop 302
end do

! Close the file.
! Close the file.
ierr = g2cf_close(g2id)
if (ierr .ne. 0) stop 20

Expand Down

0 comments on commit 1f60bf6

Please sign in to comment.