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}$