Open
Description
In stdlib_linalg_lapack_s.f90 in stdlib_slartg
there is an else if
that is not indented consistently with the rest of the block. It's a minor thing, but ultimately there should be an auto-formatting step that ensures consistent indentation.
pure subroutine stdlib_slartg(f,g,c,s,r)
! -- lapack auxiliary routine --
! -- lapack is a software package provided by univ. of tennessee, --
! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
! february 2021
! Scalar Arguments
real(sp),intent(out) :: c,r,s
real(sp),intent(in) :: f,g
! Local Scalars
real(sp) :: d,f1,fs,g1,gs,p,u,uu
! Intrinsic Functions
intrinsic :: abs,sign,sqrt
! Executable Statements
f1 = abs(f)
g1 = abs(g)
if (g == zero) then
c = one
s = zero
r = f
else if (f == zero) then
c = zero
s = sign(one,g)
r = g1
else if (f1 > rtmin .and. f1 < rtmax .and. g1 > rtmin .and. g1 < rtmax) &
then
d = sqrt(f*f + g*g)
p = one/d
c = f1*p
s = g*sign(p,f)
r = sign(d,f)
else
u = min(safmax,max(safmin,f1,g1))
uu = one/u
fs = f*uu
gs = g*uu
d = sqrt(fs*fs + gs*gs)
p = one/d
c = abs(fs)*p
s = gs*sign(p,f)
r = sign(d,f)*u
end if
return
end subroutine stdlib_slartg
Metadata
Metadata
Assignees
Labels
No labels