From 7457479634dffc491d19f7395b49871a739ab932 Mon Sep 17 00:00:00 2001 From: Kyle Shores Date: Tue, 18 Jun 2024 08:17:49 -0500 Subject: [PATCH 1/3] Update fortran/tuvx.F90 Co-authored-by: Matt Dawson --- fortran/tuvx.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/tuvx.F90 b/fortran/tuvx.F90 index 55d8e1cb..d4b61127 100644 --- a/fortran/tuvx.F90 +++ b/fortran/tuvx.F90 @@ -18,7 +18,7 @@ module musica_tuvx function create_tuvx_c(config_path, error) bind(C, name="CreateTuvx") use musica_util, only: error_t_c import c_ptr, c_int, c_char - character(kind=c_char), intent(in) :: config_path(*) + character(len=1, kind=c_char), intent(in) :: config_path(*) type(error_t_c), intent(inout) :: error type(c_ptr) :: create_tuvx_c end function create_tuvx_c From 9c1890cd4d9bd832e6fe5f827b1c50589a9f6af7 Mon Sep 17 00:00:00 2001 From: Kyle Shores Date: Tue, 18 Jun 2024 08:17:54 -0500 Subject: [PATCH 2/3] Update src/tuvx/interface.F90 Co-authored-by: Matt Dawson --- src/tuvx/interface.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tuvx/interface.F90 b/src/tuvx/interface.F90 index 4bcfc594..7322a26a 100644 --- a/src/tuvx/interface.F90 +++ b/src/tuvx/interface.F90 @@ -99,7 +99,7 @@ function interal_get_grid(grid_map, c_grid_name, c_grid_name_length, c_grid_unit ! arguments type(c_ptr), intent(in), value :: grid_map - character(kind=c_char), dimension(*), intent(in) :: c_grid_name + character(len=1, kind=c_char), dimension(*), intent(in) :: c_grid_name integer(kind=c_size_t), value :: c_grid_name_length character(kind=c_char), dimension(*), intent(in) :: c_grid_units integer(kind=c_size_t), value :: c_grid_units_length From 595962480ea1d5b294cee23686a178c872d130da Mon Sep 17 00:00:00 2001 From: Kyle Shores Date: Tue, 18 Jun 2024 08:18:02 -0500 Subject: [PATCH 3/3] Update src/tuvx/interface.F90 Co-authored-by: Matt Dawson --- src/tuvx/interface.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/tuvx/interface.F90 b/src/tuvx/interface.F90 index 7322a26a..d946594d 100644 --- a/src/tuvx/interface.F90 +++ b/src/tuvx/interface.F90 @@ -101,7 +101,7 @@ function interal_get_grid(grid_map, c_grid_name, c_grid_name_length, c_grid_unit type(c_ptr), intent(in), value :: grid_map character(len=1, kind=c_char), dimension(*), intent(in) :: c_grid_name integer(kind=c_size_t), value :: c_grid_name_length - character(kind=c_char), dimension(*), intent(in) :: c_grid_units + character(len=1, kind=c_char), dimension(*), intent(in) :: c_grid_units integer(kind=c_size_t), value :: c_grid_units_length integer(kind=c_int), intent(out) :: error_code