Apply suggestions from code review

Adding white spaces

Co-authored-by: Sebastian Ehlert <[email protected]>

Author: sakamoti

src/stdlib_logger.f90

@@ -352,8 +352,8 @@ subroutine validate_unit()
             end if
 
 ! Check that unit is opened
-            inquire( unit, opened=question, iostat=istat, iomsg=msgtxt)
-            if(istat/=0) question=.false.
+            inquire( unit, opened=question, iostat=istat, iomsg=msgtxt )
+            if(istat /= 0) question = .false.
             if ( .not. question ) then
                 if ( present(stat) ) then
                     stat = unopened_in_error

src/stdlib_string_type.fypp

@@ -571,11 +571,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = index(maybe(string), maybe(substring),back)
+        if (present(back)) then
+          pos = index(maybe(string), maybe(substring), back)
         else
-          pos = index(maybe(string), maybe(substring),.false.)
-        endif
+          pos = index(maybe(string), maybe(substring), .false.)
+        end if
 
     end function index_string_string
 
@@ -587,11 +587,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = index(maybe(string), substring,back)
+        if (present(back)) then
+          pos = index(maybe(string), substring, back)
         else
-          pos = index(maybe(string), substring,.false.)
-        endif
+          pos = index(maybe(string), substring, .false.)
+        end if
 
     end function index_string_char
 
@@ -603,11 +603,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = index(string, maybe(substring),back)
+        if (present(back)) then
+          pos = index(string, maybe(substring), back)
         else
-          pos = index(string, maybe(substring),.false.)
-        endif
+          pos = index(string, maybe(substring), .false.)
+        end if
 
     end function index_char_string
 
@@ -621,11 +621,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = scan(maybe(string), maybe(set),back)
+        if (present(back)) then
+          pos = scan(maybe(string), maybe(set), back)
         else
-          pos = scan(maybe(string), maybe(set),.false.)
-        endif
+          pos = scan(maybe(string), maybe(set), .false.)
+        end if
 
     end function scan_string_string
 
@@ -637,11 +637,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = scan(maybe(string), set,back)
+        if (present(back)) then
+          pos = scan(maybe(string), set, back)
         else
-          pos = scan(maybe(string), set,.false.)
-        endif
+          pos = scan(maybe(string), set, .false.)
+        end if
 
     end function scan_string_char
 
@@ -653,11 +653,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = scan(string, maybe(set),back)
+        if (present(back)) then
+          pos = scan(string, maybe(set), back)
         else
-          pos = scan(string, maybe(set),.false.)
-        endif
+          pos = scan(string, maybe(set), .false.)
+        end if
 
     end function scan_char_string
 
@@ -671,11 +671,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = verify(maybe(string), maybe(set),back)
+        if (present(back)) then
+          pos = verify(maybe(string), maybe(set), back)
         else
-          pos = verify(maybe(string), maybe(set),.false.)
-        endif
+          pos = verify(maybe(string), maybe(set), .false.)
+        end if
 
     end function verify_string_string
 
@@ -688,11 +688,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = verify(maybe(string), set,back)
+        if (present(back)) then
+          pos = verify(maybe(string), set, back)
         else
-          pos = verify(maybe(string), set,.false.)
-        endif
+          pos = verify(maybe(string), set, .false.)
+        end if
 
     end function verify_string_char
 
@@ -705,11 +705,11 @@ contains
         logical, intent(in), optional :: back
         integer :: pos
 
-        if(present(back))then
-          pos = verify(string, maybe(set),back)
+        if (present(back)) then
+          pos = verify(string, maybe(set), back)
         else
-          pos = verify(string, maybe(set),.false.)
-        endif
+          pos = verify(string, maybe(set), .false.)
+        end if
 
     end function verify_char_string
 

src/tests/logger/test_stdlib_logger.f90

@@ -464,8 +464,8 @@ subroutine test_removing_log_units()
 
         end if
 
-        inquire( unit4, opened=opened ,iostat=istat,iomsg=msgtxt)
-        if(istat/=0) opened=.false.
+        inquire( unit4, opened=opened, iostat=istat, iomsg=msgtxt )
+        if(istat /= 0) opened = .false.
         if ( opened ) then
             error stop 'UNIT4 is opened contrary to expectations.'
 

src/tests/stats/test_mean_f03.f90

@@ -20,7 +20,7 @@ program test_mean
 call check( sum( abs( mean(d,2) - sum(d,2)/real(size(d,2), dp) )) < dptol)
 
 !dp rank 8
-allocate(d8(size(d,1), size(d,2), 3, 4, 5, 6, 7, 8),source=0.0_dp)
+allocate(d8(size(d,1), size(d,2), 3, 4, 5, 6, 7, 8), source=0.0_dp)
 d8(:, :, 1, 4, 5 ,6 ,7 ,8)=d;
 d8(:, :, 2, 4, 5 ,6 ,7 ,8)=d * 1.5_dp;
 d8(:, :, 3, 4, 5 ,6 ,7 ,8)=d * 4._dp;