@@ -33,7 +33,7 @@ function pineappl_alphas(q2, state) bind(c)
3333 use iso_c_binding
3434
3535 implicit none
36-
36+
3737 real (c_double), value, intent (in ) :: q2
3838 type (c_ptr), value, intent (in ) :: state
3939 real (c_double) :: pineappl_alphas
@@ -353,15 +353,15 @@ subroutine string_delete(string) bind(c, name = 'pineappl_string_delete')
353353 ! https://stackoverflow.com/a/20121335 and https://community.intel.com/t5/Intel-Fortran-Compiler/Converting-c-string-to-Fortran-string/m-p/959515
354354 function c_f_string (c_str ) result(f_str)
355355 use :: iso_c_binding
356-
356+
357357 type (c_ptr), intent (in ) :: c_str
358358 character (kind= c_char), dimension (:), pointer :: arr_f_ptr = > null ()
359359 character (len= :, kind= c_char), allocatable :: f_str
360360 integer (kind= c_size_t) :: i, length
361361
362362 length = strlen(c_str)
363363 call c_f_pointer(c_str, arr_f_ptr, [length])
364-
364+
365365 if (.not. associated (arr_f_ptr)) then
366366 f_str = " NULL"
367367 return
@@ -378,15 +378,15 @@ integer function pineappl_grid_bin_count(grid)
378378 implicit none
379379
380380 type (pineappl_grid), intent (in ) :: grid
381-
381+
382382 pineappl_grid_bin_count = grid_bin_count(grid% ptr)
383383 end function
384384
385385 integer function pineappl_grid_bin_dimensions (grid )
386386 implicit none
387387
388388 type (pineappl_grid), intent (in ) :: grid
389-
389+
390390 pineappl_grid_bin_dimensions = grid_bin_dimensions(grid% ptr)
391391 end function
392392
@@ -439,9 +439,9 @@ type (pineappl_grid) function pineappl_grid_clone(grid)
439439
440440 function pineappl_grid_convolve_with_one (grid , pdg_id , xfx , alphas , order_mask , lumi_mask , xi_ren , xi_fac , state ) result(res)
441441 use iso_c_binding
442-
442+
443443 implicit none
444-
444+
445445 type (pineappl_grid), intent (in ) :: grid
446446 integer , intent (in ) :: pdg_id
447447 ! no pointer attribute here, see https://community.intel.com/t5/Intel-Fortran-Compiler/Segfault-when-passing-procedure-pointer-to-function-but-not-when/m-p/939797
@@ -478,9 +478,9 @@ function pineappl_grid_convolve_with_one(grid, pdg_id, xfx, alphas, order_mask,
478478 function pineappl_grid_convolve_with_two (grid , pdg_id1 , xfx1 , pdg_id2 , xfx2 , alphas , &
479479 order_mask , lumi_mask , xi_ren , xi_fac , state ) result(res)
480480 use iso_c_binding
481-
481+
482482 implicit none
483-
483+
484484 type (pineappl_grid), intent (in ) :: grid
485485 integer , intent (in ) :: pdg_id1, pdg_id2
486486 procedure (pineappl_xfx) :: xfx1, xfx2
@@ -570,7 +570,7 @@ function pineappl_grid_key_value(grid, key) result(res)
570570 type (pineappl_grid), intent (in ) :: grid
571571 character (* ), intent (in ) :: key
572572 character (:), allocatable :: res
573-
573+
574574 res = c_f_string(grid_key_value(grid% ptr, key // c_null_char))
575575 end function
576576
0 commit comments