remove surplus conditions

Author: jvdp1

src/stdlib_selection.fypp

@@ -85,9 +85,9 @@ contains
           r = size(a, kind=ip)
           if(present(right)) r = right
 
-          if(k < 1_ip .or. k > size(a, kind=ip) .or. l > r .or. l < 1_ip .or. &
-              k < l .or. k > r .or.      &             !i.e. if k is not in the interval [l; r]  
-              r > size(a, kind=ip)) then
+          if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
+              .or. k < l .or. k > r                        & !i.e. if k is not in the interval [l; r]  
+              ) then
               error stop "select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
           end if
 
@@ -202,9 +202,9 @@ contains
               error stop "arg_select must have size(a) == size(indx)"
           end if
 
-          if(k < 1_ip .or. k > size(a, kind=ip) .or. l > r .or. l < 1_ip .or. &
-              k < l .or. k > r .or.      &             !i.e. if k is not in the interval [l; r]  
-              r > size(a, kind=ip)) then
+          if(l > r .or. l < 1_ip .or. r > size(a, kind=ip) &
+              .or. k < l .or. k > r                        & !i.e. if k is not in the interval [l; r]  
+              ) then
               error stop "arg_select must have 1 <= k <= size(a), and 1 <= left <= right <= size(a)";
           end if