.TH "SRC/dlartgp.f" 3 "Version 3.12.0" "LAPACK" \" -*- nroff -*- .ad l .nh .SH NAME SRC/dlartgp.f .SH SYNOPSIS .br .PP .SS "Functions/Subroutines" .in +1c .ti -1c .RI "subroutine \fBdlartgp\fP (f, g, cs, sn, r)" .br .RI "\fBDLARTGP\fP generates a plane rotation so that the diagonal is nonnegative\&. " .in -1c .SH "Function/Subroutine Documentation" .PP .SS "subroutine dlartgp (double precision f, double precision g, double precision cs, double precision sn, double precision r)" .PP \fBDLARTGP\fP generates a plane rotation so that the diagonal is nonnegative\&. .PP \fBPurpose:\fP .RS 4 .PP .nf !> !> DLARTGP generates a plane rotation so that !> !> [ CS SN ] \&. [ F ] = [ R ] where CS**2 + SN**2 = 1\&. !> [ -SN CS ] [ G ] [ 0 ] !> !> This is a slower, more accurate version of the Level 1 BLAS routine DROTG, !> with the following other differences: !> F and G are unchanged on return\&. !> If G=0, then CS=(+/-)1 and SN=0\&. !> If F=0 and (G \&.ne\&. 0), then CS=0 and SN=(+/-)1\&. !> !> The sign is chosen so that R >= 0\&. !> .fi .PP .RE .PP \fBParameters\fP .RS 4 \fIF\fP .PP .nf !> F is DOUBLE PRECISION !> The first component of vector to be rotated\&. !> .fi .PP .br \fIG\fP .PP .nf !> G is DOUBLE PRECISION !> The second component of vector to be rotated\&. !> .fi .PP .br \fICS\fP .PP .nf !> CS is DOUBLE PRECISION !> The cosine of the rotation\&. !> .fi .PP .br \fISN\fP .PP .nf !> SN is DOUBLE PRECISION !> The sine of the rotation\&. !> .fi .PP .br \fIR\fP .PP .nf !> R is DOUBLE PRECISION !> The nonzero component of the rotated vector\&. !> !> This version has a few statements commented out for thread safety !> (machine parameters are computed on each entry)\&. 10 feb 03, SJH\&. !> .fi .PP .RE .PP \fBAuthor\fP .RS 4 Univ\&. of Tennessee .PP Univ\&. of California Berkeley .PP Univ\&. of Colorado Denver .PP NAG Ltd\&. .RE .PP .PP Definition at line \fB94\fP of file \fBdlartgp\&.f\fP\&. .SH "Author" .PP Generated automatically by Doxygen for LAPACK from the source code\&.