Replace merge(n, 0, n > 0) by max(n, 0)

Author: 14NGiestas

src/stdlib_math.fypp

@@ -50,7 +50,7 @@ module stdlib_math
  ${t1}$, intent(in) :: end
  integer, intent(in) :: n
 
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
  #:endfor
 
@@ -77,7 +77,7 @@ module stdlib_math
  ${t1}$, intent(in) :: end
  integer, intent(in) :: n
 
- real(dp) :: res(merge(n, 0, n > 0))
+ real(dp) :: res(max(n, 0))
  end function ${RName}$
  #:endfor
 
@@ -127,7 +127,7 @@ module stdlib_math
  ${t1}$, intent(in) :: end
  integer, intent(in) :: n
 
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
  #:endfor
  #! Integer support
@@ -159,7 +159,7 @@ module stdlib_math
  integer, intent(in) :: n
  ${t1}$, intent(in) :: base
  ! real(${k1}$) endpoints + real(${k1}$) base = real(${k1}$) result
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
 
  #:set RName = rname("logspace", 1, t1, k1, "n_cbase")
@@ -169,7 +169,7 @@ module stdlib_math
  integer, intent(in) :: n
  complex(${k1}$), intent(in) :: base
  ! real(${k1}$) endpoints + complex(${k1}$) base = complex(${k1}$) result
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
 
  #:set RName = rname("logspace", 1, t1, k1, "n_ibase")
@@ -179,7 +179,7 @@ module stdlib_math
  integer, intent(in) :: n
  integer, intent(in) :: base
  ! real(${k1}$) endpoints + integer base = real(${k1}$) result
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
  #:endfor
  #! ========================================================
@@ -196,7 +196,7 @@ module stdlib_math
  integer, intent(in) :: n
  real(${k1}$), intent(in) :: base
  ! complex(${k1}$) endpoints + real(${k1}$) base = complex(${k1}$) result
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
 
  #:set RName = rname("logspace", 1, t1, k1, "n_cbase")
@@ -206,7 +206,7 @@ module stdlib_math
  integer, intent(in) :: n
  complex(${k1}$), intent(in) :: base
  ! complex(${k1}$) endpoints + complex(${k1}$) base = complex(${k1}$) result
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
 
  #:set RName = rname("logspace", 1, t1, k1, "n_ibase")
@@ -216,7 +216,7 @@ module stdlib_math
  integer, intent(in) :: n
  integer, intent(in) :: base
  ! complex(${k1}$) endpoints + integer base = complex(${k1}$) result
- ${t1}$ :: res(merge(n, 0, n > 0))
+ ${t1}$ :: res(max(n, 0))
  end function ${RName}$
  #:endfor
  #! ========================================================
@@ -234,7 +234,7 @@ module stdlib_math
  integer, intent(in) :: n
  real(${k1}$), intent(in) :: base
  ! integer endpoints + real(${k1}$) base = real(${k1}$) result
- real(${k1}$) :: res(merge(n, 0, n > 0))
+ real(${k1}$) :: res(max(n, 0))
  end function ${RName}$
 
  #:set RName = rname("logspace", 1, "integer(int32)", "int32", "n_c" + str(k1) + "base")
@@ -244,7 +244,7 @@ module stdlib_math
  integer, intent(in) :: n
  complex(${k1}$), intent(in) :: base
  ! integer endpoints + complex(${k1}$) base = complex(${k1}$) result
- complex(${k1}$) :: res(merge(n, 0, n > 0))
+ complex(${k1}$) :: res(max(n, 0))
  end function ${RName}$
  #:endfor
 
@@ -255,7 +255,7 @@ module stdlib_math
  integer, intent(in) :: n
  integer, intent(in) :: base
  ! integer endpoints + integer base = integer result
- integer :: res(merge(n, 0, n > 0))
+ integer :: res(max(n, 0))
  end function ${RName}$