Skip to content

Commit 83fb99e

Browse files
committed
Fix more Fortran warnings
1 parent fae703e commit 83fb99e

1 file changed

Lines changed: 2 additions & 4 deletions

File tree

examples/fortran/pineappl.f90

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -607,15 +607,15 @@ integer function pineappl_grid_bin_count(grid)
607607

608608
type (pineappl_grid), intent(in) :: grid
609609

610-
pineappl_grid_bin_count = grid_bin_count(grid%ptr)
610+
pineappl_grid_bin_count = int(grid_bin_count(grid%ptr))
611611
end function
612612

613613
integer function pineappl_grid_bin_dimensions(grid)
614614
implicit none
615615

616616
type (pineappl_grid), intent(in) :: grid
617617

618-
pineappl_grid_bin_dimensions = grid_bin_dimensions(grid%ptr)
618+
pineappl_grid_bin_dimensions = int(grid_bin_dimensions(grid%ptr))
619619
end function
620620

621621
function pineappl_grid_bin_limits_left(grid, dimension) result(res)
@@ -949,8 +949,6 @@ type (pineappl_grid) function pineappl_grid_new2(bins, bin_limits, orders, order
949949
type (pineappl_interp), dimension(interpolations), intent(in) :: interp_info
950950
type (pineappl_scale_func_form), dimension(interpolations) :: mu_scales
951951

952-
integer :: i
953-
954952
pineappl_grid_new2 = pineappl_grid(grid_new2(&
955953
int(bins, c_size_t), &
956954
bin_limits, &

0 commit comments

Comments
 (0)