LAPACK 3.12.0
LAPACK: Linear Algebra PACKage

Functions  
subroutine  dlartgp (f, g, cs, sn, r) 
DLARTGP generates a plane rotation so that the diagonal is nonnegative.  
subroutine  slartgp (f, g, cs, sn, r) 
SLARTGP generates a plane rotation so that the diagonal is nonnegative.  