Updated GeoCOM API.

dabamos · Feb 26, 2024 · 62b077c · 62b077c
1 parent 30c9748
commit 62b077c
Show file tree

Hide file tree

Showing 2 changed files with 609 additions and 488 deletions.
diff --git a/src/dm_geocom.f90 b/src/dm_geocom.f90
@@ -157,7 +157,7 @@ integer function geocom_beep_alarm(this) result(grc)
         class(geocom_class), intent(inout) :: this !! GeoCOM object.
         type(request_type)                 :: request
 
-        call dm_geocom_api_beep_alarm(request)
+        call dm_geocom_api_request_beep_alarm(request)
         call this%send(request)
         grc = this%grc
     end function geocom_beep_alarm
@@ -169,7 +169,7 @@ integer function geocom_beep_normal(this) result(grc)
         class(geocom_class), intent(inout) :: this !! GeoCOM object.
         type(request_type)                 :: request
 
-        call dm_geocom_api_beep_normal(request)
+        call dm_geocom_api_request_beep_normal(request)
         call this%send(request)
         grc = this%grc
     end function geocom_beep_normal
@@ -181,7 +181,7 @@ integer function geocom_beep_off(this) result(grc)
         class(geocom_class), intent(inout) :: this !! GeoCOM object.
         type(request_type)                 :: request
 
-        call dm_geocom_api_beep_off(request)
+        call dm_geocom_api_request_beep_off(request)
         call this%send(request)
         grc = this%grc
     end function geocom_beep_off
@@ -200,9 +200,9 @@ integer function geocom_beep_on(this, intensity) result(grc)
         type(request_type) :: request
 
         intensity_ = GEOCOM_IOS_BEEP_STDINTENS
-        if (present(intensity)) intensity_ = max(0, min(intensity, GEOCOM_IOS_BEEP_STDINTENS))
+        if (present(intensity)) intensity_ = max(0, min(100, intensity))
 
-        call dm_geocom_api_beep_on(request, intensity_)
+        call dm_geocom_api_request_beep_on(request, intensity_)
         call this%send(request)
         grc = this%grc
     end function geocom_beep_on