Skip to content

Commit 435cf17

Browse files
authored
AeroParticle: fix frozen flag type (int -> bool) (#477)
1 parent 000e688 commit 435cf17

2 files changed

Lines changed: 3 additions & 3 deletions

File tree

src/aero_particle.F90

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -528,7 +528,7 @@ subroutine f_aero_particle_frozen( &
528528

529529
type(aero_particle_t), pointer :: aero_particle_ptr_f => null()
530530
type(c_ptr), intent(in) :: aero_particle_ptr_c
531-
integer(c_int), intent(out) :: is_frozen
531+
logical(c_bool), intent(out) :: is_frozen
532532

533533
call c_f_pointer(aero_particle_ptr_c, aero_particle_ptr_f)
534534

src/aero_particle.hpp

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -42,7 +42,7 @@ extern "C" void f_aero_particle_greatest_create_time(const void *aero_particle_p
4242
extern "C" void f_aero_particle_least_create_time(const void *aero_particle_ptr, double *val) noexcept;
4343
extern "C" void f_aero_particle_get_component_sources(const void *aero_particle_ptr, void *arr_data, const int *arr_size) noexcept;
4444
extern "C" void f_aero_particle_id(const void *aero_particle_ptr, int64_t *val) noexcept;
45-
extern "C" void f_aero_particle_frozen(const void *aero_particle_ptr, int *val) noexcept;
45+
extern "C" void f_aero_particle_frozen(const void *aero_particle_ptr, bool *val) noexcept;
4646
extern "C" void f_aero_particle_refract_shell(const void *aero_particle_ptr, std::complex<double> *val, const int *arr_size) noexcept;
4747
extern "C" void f_aero_particle_refract_core(const void *aero_particle_ptr, std::complex<double> *val, const int *arr_size) noexcept;
4848
extern "C" void f_aero_particle_set_weight_class(void *ptr, const int *weight_class) noexcept;
@@ -384,7 +384,7 @@ struct AeroParticle {
384384
}
385385

386386
static auto is_frozen(const AeroParticle &self) {
387-
int val;
387+
bool val;
388388
f_aero_particle_frozen(
389389
self.ptr.f_arg(),
390390
&val

0 commit comments

Comments
 (0)