Minor updates.

README.md

@@ -50,8 +50,6 @@ semaphores.
 
 DMPACK includes modules for:
 
-* command-line argument parsing
-* configuration file evaluation
 * sensor control (RS-232/422/485, 1-Wire, file system, sub-process)
 * regular expression matching
 * message passing via POSIX message queues
@@ -71,6 +69,8 @@ DMPACK includes modules for:
 * HTML5 reports
 * Atom XML web feeds
 * e-mail
+* configuration file evaluation
+* command-line argument parsing
 
 ## Requirements
 

app/dmweb.f90

@@ -1498,7 +1498,7 @@ subroutine route_status(env)
                               H_TD // dm_html_encode(compiler_options()) // H_TD_END // H_TR_END // &
                       H_TBODY_END // H_TABLE_END
 
-            call dm_cgi_out(dm_html_heading(2, 'System Status'))
+            call dm_cgi_out(dm_html_heading(2, 'System'))
             call dm_cgi_out(content)
         end block system_block
 
@@ -1561,7 +1561,7 @@ subroutine route_status(env)
 
             content = content // H_TBODY_END // H_TABLE_END
 
-            call dm_cgi_out(dm_html_heading(2, 'Database Status'))
+            call dm_cgi_out(dm_html_heading(2, 'Databases'))
             call dm_cgi_out(content)
         end block db_block
 

src/dm_arg.f90

@@ -54,7 +54,8 @@ module dm_arg
     integer, parameter, public :: ARG_VALUE_LEN = FILE_PATH_LEN !! Maximum length of argument value.
 
     type, public :: arg_type
-        !! Argument description type.
+        !! Sequential argument description type.
+        sequence
         character(len=ARG_NAME_LEN)  :: name     = ' '              !! Identifier of the argument (without leading --).
         character                    :: short    = ASCII_NUL        !! Short argument character.
         character(len=ARG_VALUE_LEN) :: value    = ' '              !! Default and passed value (if any).

src/dm_file.f90

@@ -24,6 +24,7 @@ module dm_file
         !! status. The file mode is usually an unsigned type (`uint32_t` on
         !! Linux, `uint16_t` on FreeBSD), and is therefore converted to signed
         !! integer after the syscall.
+        sequence
         integer          :: type   = FILE_TYPE_NONE !! File type.
         integer(kind=i8) :: mode   = 0              !! File mode as signed integer.
         integer(kind=i8) :: size   = 0_i8           !! File size in bytes.

src/dm_rts.f90

@@ -6,7 +6,7 @@ module dm_rts
     !!
     !! The EDM distance correction functions use the default mean refraction
     !! coefficient 0.13, unless argument `k` is passed. The earth radius is
-    !! assumed to be 6.389 * 10^6 m.
+    !! assumed to be 6.389 * 10e6 m.
     !!
     !! The following code calculates scale correction values for the measured
     !! slope distance `slope_dist` from air temperature `temperature` [°C], air

src/dm_string.f90

@@ -272,7 +272,7 @@ pure subroutine string_from_int32(i, str, error)
         if (i == 0) then
             n = 1
         else
-            n = floor(log10(real(abs(i))) + 1)
+            n = nint(log10(real(abs(i))) + 1)
             if (i < 0) n = n + 1
         end if
 
@@ -294,7 +294,7 @@ pure subroutine string_from_int64(i, str, error)
         if (i == 0) then
             n = 1
         else
-            n = floor(log10(real(abs(i))) + 1)
+            n = nint(log10(real(abs(i))) + 1)
             if (i < 0) n = n + 1
         end if
 

src/dm_util.f90

@@ -413,7 +413,7 @@ pure function int32_to_string(i) result(str)
         if (i == 0) then
             n = 1
         else
-            n = floor(log10(real(abs(i))) + 1)
+            n = nint(log10(real(abs(i))) + 1)
             if (i < 0) n = n + 1
         end if
 
@@ -431,7 +431,7 @@ pure function int64_to_string(i) result(str)
         if (i == 0) then
             n = 1
         else
-            n = floor(log10(real(abs(i))) + 1)
+            n = nint(log10(real(abs(i))) + 1)
             if (i < 0) n = n + 1
         end if