# HG changeset patch
# User jwe
# Date 797561588 0
# Node ID 7bddfd169d27093108adf6795ca3bca4a40676d7
# Parent  35950c102ac3ca382a9215a5168df987be896b43
[project @ 1995-04-11 00:53:08 by jwe]

diff -r 35950c102ac3 -r 7bddfd169d27 src/givens.cc
--- a/src/givens.cc	Tue Apr 11 00:49:24 1995 +0000
+++ b/src/givens.cc	Tue Apr 11 00:53:08 1995 +0000
@@ -40,11 +40,11 @@
 
 extern "C"
 {
-  int F77_FCN (dlartg) (const double*, const double*, double*, double*,
-			double*);
+  int F77_FCN (dlartg) (const double&, const double&, double&, double&,
+			double&);
 
-  int F77_FCN (zlartg) (const Complex*, const Complex*, double*,
-			Complex*, Complex*);
+  int F77_FCN (zlartg) (const Complex&, const Complex&, double&,
+			Complex&, Complex&);
 }
 
 DEFUN_DLD_BUILTIN ("givens", Fgivens, Sgivens, 3, 2,
@@ -118,7 +118,7 @@
     {
       Complex cs, temp_r;
  
-      F77_FCN (zlartg) (&cx, &cy, &cc, &cs, &temp_r);
+      F77_FCN (zlartg) (cx, cy, cc, cs, temp_r);
 
       switch (nargout)
 	{
@@ -149,7 +149,7 @@
     {
       double s, temp_r;
 
-      F77_FCN (dlartg) (&x, &y, &cc, &s, &temp_r);
+      F77_FCN (dlartg) (x, y, cc, s, temp_r);
 
       switch (nargout)
 	{