Minor style change for consistency with most other stdlib modules

Author: milancurcic

src/stdlib_stats_distribution_uniform.fypp

@@ -214,14 +214,14 @@ contains
         if(scale % re == 0.0_${k1}$) then
             ti = scale % im * r1
             tr = 0.0_${k1}$
-        elseif(scale % im == 0.0_${k1}$) then
+        else if(scale % im == 0.0_${k1}$) then
             tr = scale % re * r1
             ti = 0.0_${k1}$
         else
             tr = scale % re * r1
             r1 = unif_dist_rvs_0_r${k1}$( )
             ti = scale % im * r1
-        endif
+        end if
         res = cmplx(tr, ti, kind=${k1}$)
     end function unif_dist_rvs_1_${t1[0]}$${k1}$
 
@@ -248,14 +248,14 @@ contains
         if(scale % re == 0.0_${k1}$) then
             tr = loc % re
             ti = loc % im + scale % im * r1
-        elseif(scale % im == 0.0_${k1}$) then
+        else if(scale % im == 0.0_${k1}$) then
             tr = loc % re + scale % re * r1
             ti = loc % im
         else
             tr = loc % re + scale % re * r1
             r1 = unif_dist_rvs_0_r${k1}$( )
             ti = loc % im + scale % im * r1
-        endif
+        end if
         res = cmplx(tr, ti, kind=${k1}$)
     end function unif_dist_rvs_${t1[0]}$${k1}$
 
@@ -318,7 +318,7 @@ contains
             tmp = shiftr(dist_rand(INT_ONE), 11)
             t = real(tmp * MESENNE_NUMBER, kind = ${k1}$)
             res(i) = loc + scale * t
-        enddo
+        end do
     end function unif_dist_rvs_array_${t1[0]}$${k1}$
 
     #:endfor
@@ -345,15 +345,15 @@ contains
             if(scale % re == 0.0_${k1}$) then
                 tr = loc % re
                 ti = loc % im + scale % im * r1
-            elseif(scale % im == 0.0_${k1}$) then
+            else if(scale % im == 0.0_${k1}$) then
                 tr = loc % re + scale % re * r1
                 ti = loc % im
             else
                 tr = loc % re + scale % re * r1
                 tmp = shiftr(dist_rand(INT_ONE), 11)
                 r1 = real(tmp * MESENNE_NUMBER, kind = ${k1}$)
                 ti = loc % im + scale % im * r1
-            endif
+            end if
             res(i) = cmplx(tr, ti, kind=${k1}$)
         end do
     end function unif_dist_rvs_array_${t1[0]}$${k1}$
@@ -370,7 +370,7 @@ contains
 
         if(scale == 0_${k1}$) then
             res = 0.0
-        elseif(x < loc .or. x > (loc + scale)) then
+        else if(x < loc .or. x > (loc + scale)) then
             res = 0.0
         else
             res = 1. / (scale + 1_${k1}$)
@@ -389,7 +389,7 @@ contains
 
         if(scale == 0.0_${k1}$) then
             res = 0.0
-        elseif(x <= loc .or. x >= (loc + scale)) then
+        else if(x <= loc .or. x >= (loc + scale)) then
             res = 0.0
         else
             res = 1.0 / scale
@@ -410,7 +410,7 @@ contains
         tr = loc % re + scale % re; ti = loc % im + scale % im
         if(scale == (0.0_${k1}$,0.0_${k1}$)) then
             res = 0.0
-        elseif((x % re >= loc % re .and. x % re <= tr) .and.                 &
+        else if((x % re >= loc % re .and. x % re <= tr) .and.                 &
                (x % im >= loc % im .and. x % im <= ti)) then
             res = 1.0 / (scale % re * scale % im)
         else
@@ -430,9 +430,9 @@ contains
 
         if(scale == 0_${k1}$) then
             res = 0.0
-        elseif(x < loc) then
+        else if(x < loc) then
             res = 0.0
-        elseif(x >= loc .and. x <= (loc + scale)) then
+        else if(x >= loc .and. x <= (loc + scale)) then
             res = real((x - loc + 1_${k1}$)) / real((scale + 1_${k1}$))
         else
             res = 1.0
@@ -451,9 +451,9 @@ contains
 
         if(scale == 0.0_${k1}$) then
             res = 0.0
-        elseif(x < loc) then
+        else if(x < loc) then
             res = 0.0
-        elseif(x >= loc .and. x <= (loc + scale)) then
+        else if(x >= loc .and. x <= (loc + scale)) then
             res = (x - loc) / scale
         else
             res = 1.0
@@ -474,22 +474,22 @@ contains
         if(scale == (0.0_${k1}$,0.0_${k1}$)) then
             res = 0.0
             return
-        endif
+        end if
         r1 = x % re < loc % re
         r2 = x % re > (loc % re + scale % re)
         i1 = x % im < loc % im
         i2 = x % im > (loc % im + scale % im)
         if(r1 .or. i1) then
             res = 0.0
-        elseif((.not. r1) .and. (.not. r2) .and. i2) then
+        else if((.not. r1) .and. (.not. r2) .and. i2) then
             res = (x % re - loc % re) / scale % re
-        elseif((.not. i1) .and. (.not. i2) .and. r2) then
+        else if((.not. i1) .and. (.not. i2) .and. r2) then
             res = (x % im - loc % im) / scale % im
-        elseif((.not. r1) .and. (.not. r2) .and. (.not. i1) .and. (.not. i2))   &
+        else if((.not. r1) .and. (.not. r2) .and. (.not. i1) .and. (.not. i2))   &
              then
              res = (x % re - loc % re) * (x % im - loc % im) /                  &
                    (scale % re * scale % im)
-        elseif(r2 .and. i2)then
+        else if(r2 .and. i2)then
              res = 1.0
         end if
     end function unif_dist_cdf_${t1[0]}$${k1}$