From 6f34fe8106c745a2e4cffc592079803e99ba22b1 Mon Sep 17 00:00:00 2001 From: Darian Boggs Date: Thu, 19 Dec 2024 14:37:57 -0500 Subject: [PATCH] Remove comments in UDSystem.F90 --- udunits2f/UDSystem.F90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/udunits2f/UDSystem.F90 b/udunits2f/UDSystem.F90 index 7c7025898b8..b9860496f10 100644 --- a/udunits2f/UDSystem.F90 +++ b/udunits2f/UDSystem.F90 @@ -151,7 +151,6 @@ function construct_converter(from_unit, to_unit) result(conv) type(UDUnit), intent(in) :: from_unit type(UDUnit), intent(in) :: to_unit type(c_ptr) :: cvconverter1 -! logical :: convertible !wdb fixme deleteme ! Must supply units that are initialized and convertible if(from_unit%is_free() .or. to_unit%is_free()) return @@ -178,7 +177,8 @@ subroutine get_converter(conv, from, to, rc) conv = get_converter_function(from, to) _ASSERT_RC(.not. conv%is_free(), 'Failed to get converter function', UTF_CONVERTER_NOT_INITIALIZED) _RETURN(_SUCCESS) - _UNUSED_DUMMY(status) !wdb fixme deleteme add blank line after + _UNUSED_DUMMY(status) + end subroutine get_converter ! Get converter object @@ -340,13 +340,13 @@ subroutine initialize_system(system, path, encoding, rc) integer(ut_encoding), optional, intent(in) :: encoding integer, optional, intent(out) :: rc integer :: status -! type(c_ptr) :: utsystem !wdb fixme deleteme ! A system can be initialized only once. _ASSERT_RC(system%is_free(), 'UDSystem is initialized already.', UTF_INITIALIZATION_FAILURE) system = UDSystem(path, encoding) _RETURN(_SUCCESS) _UNUSED_DUMMY(status) + end subroutine initialize_system ! Is the instance of the unit system initialized? @@ -377,7 +377,6 @@ end subroutine free_ut_unit ! Free memory for converter subroutine free_cv_converter(this) class(Converter), intent(in) :: this -! type(c_ptr) :: cvconverter1 !wdb fixme deleteme if(this%is_free()) return call cv_free(this%get_cptr())