Renamed variables.

Author: interkosmos

src/dm_api_status.f90

@@ -52,9 +52,9 @@ integer function dm_api_status_from_string(string, api) result(rc)
         character(len=*),      intent(in)  :: string !! String representation of API status.
         type(api_status_type), intent(out) :: api    !! Result.
 
-        integer                       :: i, n, nlines
+        integer                       :: i, nlines, npairs
         character(len=LINE_LEN)       :: lines(API_STATUS_NKEYS)
-        character(len=API_STATUS_LEN) :: pair(2), key, value
+        character(len=API_STATUS_LEN) :: pairs(2), key, value
 
         rc = E_EMPTY
         if (len_trim(string) == 0) return
@@ -64,13 +64,13 @@ integer function dm_api_status_from_string(string, api) result(rc)
         if (nlines == 0) return
 
         do i = 1, nlines
-            call dm_string_split(lines(i), pair, del='=', n=n)
-            if (n /= 2) exit
+            call dm_string_split(lines(i), pairs, del='=', n=npairs)
+            if (npairs /= 2) exit
 
-            call dm_lower(pair(1))
+            key   = adjustl(pairs(1))
+            value = adjustl(pairs(2))
 
-            key   = adjustl(pair(1))
-            value = adjustl(pair(2))
+            call dm_lower(key)
 
             select case (key)
                 case ('version');   api%version   = dm_ascii_escape(value)

src/dm_modbus_type.f90

@@ -144,7 +144,7 @@ pure elemental subroutine dm_modbus_parse(string, register, error)
         type(modbus_register_type), intent(out)           :: register !! Modbus I/O type.
         integer,                    intent(out), optional :: error    !! Error code.
 
-        character(len=32) :: fields(6), pair(2)
+        character(len=32) :: fields(6), pairs(2)
         character(len=32) :: key, value
         integer           :: i, nfields, npairs, rc
 
@@ -158,13 +158,13 @@ pure elemental subroutine dm_modbus_parse(string, register, error)
 
             do i = 1, nfields
                 rc = E_FORMAT
-                call dm_string_split(fields(i), pair, del='=', n=npairs)
+                call dm_string_split(fields(i), pairs, del='=', n=npairs)
                 if (npairs /= 2) exit parse_block
 
-                call dm_lower(pair)
+                call dm_lower(pairs)
 
-                key   = adjustl(pair(1))
-                value = adjustl(pair(2))
+                key   = adjustl(pairs(1))
+                value = adjustl(pairs(2))
 
                 rc = E_TYPE
                 select case (key)