naming change and some corrections

Author: Jim-215-Fisher

src/stdlib_stats_distribution_uniform.fypp

@@ -218,14 +218,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}$
 
@@ -253,14 +253,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}$
 
@@ -323,7 +323,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
@@ -351,15 +351,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}$
@@ -376,7 +376,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}$)
@@ -395,7 +395,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
@@ -416,8 +416,8 @@ 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.                     &
-               (x % im > loc % im .and. x % im < ti)) then
+        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
             res = 0.0
@@ -436,9 +436,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
@@ -457,9 +457,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
@@ -480,22 +480,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))  &
-             then
-             res = (x % re - loc % re) * (x % im - loc % im) /                 &
+        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}$