Skip to content
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 1 addition & 1 deletion src/aero_particle.F90
Original file line number Diff line number Diff line change
Expand Up @@ -528,7 +528,7 @@ subroutine f_aero_particle_frozen( &

type(aero_particle_t), pointer :: aero_particle_ptr_f => null()
type(c_ptr), intent(in) :: aero_particle_ptr_c
integer(c_int), intent(out) :: is_frozen
logical(c_bool), intent(out) :: is_frozen

call c_f_pointer(aero_particle_ptr_c, aero_particle_ptr_f)

Expand Down
4 changes: 2 additions & 2 deletions src/aero_particle.hpp
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@ extern "C" void f_aero_particle_greatest_create_time(const void *aero_particle_p
extern "C" void f_aero_particle_least_create_time(const void *aero_particle_ptr, double *val) noexcept;
extern "C" void f_aero_particle_get_component_sources(const void *aero_particle_ptr, void *arr_data, const int *arr_size) noexcept;
extern "C" void f_aero_particle_id(const void *aero_particle_ptr, int64_t *val) noexcept;
extern "C" void f_aero_particle_frozen(const void *aero_particle_ptr, int *val) noexcept;
extern "C" void f_aero_particle_frozen(const void *aero_particle_ptr, bool *val) noexcept;
extern "C" void f_aero_particle_refract_shell(const void *aero_particle_ptr, std::complex<double> *val, const int *arr_size) noexcept;
extern "C" void f_aero_particle_refract_core(const void *aero_particle_ptr, std::complex<double> *val, const int *arr_size) noexcept;
extern "C" void f_aero_particle_set_weight_class(void *ptr, const int *weight_class) noexcept;
Expand Down Expand Up @@ -384,7 +384,7 @@ struct AeroParticle {
}

static auto is_frozen(const AeroParticle &self) {
int val;
bool val;
f_aero_particle_frozen(
self.ptr.f_arg(),
&val
Expand Down
Loading