LAPACK  3.9.0
LAPACK: Linear Algebra PACKage

◆ scombssq()

subroutine scombssq ( real, dimension( 2 )  V1,
real, dimension( 2 )  V2 
)

SCOMBSSQ adds two scaled sum of squares quantities

Purpose:
 SCOMBSSQ adds two scaled sum of squares quantities, V1 := V1 + V2.
 That is,

    V1_scale**2 * V1_sumsq := V1_scale**2 * V1_sumsq
                            + V2_scale**2 * V2_sumsq
Parameters
[in,out]V1
          V1 is REAL array, dimension (2).
          The first scaled sum.
          V1(1) = V1_scale, V1(2) = V1_sumsq.
[in]V2
          V2 is REAL array, dimension (2).
          The second scaled sum.
          V2(1) = V2_scale, V2(2) = V2_sumsq.
Author
Univ. of Tennessee
Univ. of California Berkeley
Univ. of Colorado Denver
NAG Ltd.
Date
November 2018

Definition at line 62 of file scombssq.f.

62 *
63 * -- LAPACK auxiliary routine (version 3.7.0) --
64 * -- LAPACK is a software package provided by Univ. of Tennessee, --
65 * -- Univ. of California Berkeley, Univ. of Colorado Denver and NAG Ltd..--
66 * November 2018
67 *
68 * .. Array Arguments ..
69  REAL V1( 2 ), V2( 2 )
70 * ..
71 *
72 * =====================================================================
73 *
74 * .. Parameters ..
75  REAL ZERO
76  parameter( zero = 0.0d+0 )
77 * ..
78 * .. Executable Statements ..
79 *
80  IF( v1( 1 ).GE.v2( 1 ) ) THEN
81  IF( v1( 1 ).NE.zero ) THEN
82  v1( 2 ) = v1( 2 ) + ( v2( 1 ) / v1( 1 ) )**2 * v2( 2 )
83  END IF
84  ELSE
85  v1( 2 ) = v2( 2 ) + ( v1( 1 ) / v2( 1 ) )**2 * v1( 2 )
86  v1( 1 ) = v2( 1 )
87  END IF
88  RETURN
89 *
90 * End of SCOMBSSQ
91 *
Here is the caller graph for this function: