Mercurial > hg > octave-lyh

changeset 1247:7bddfd169d27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 00:53:08 by jwe]
author jwe
date Tue, 11 Apr 1995 00:53:08 +0000
parents 35950c102ac3
children 961d2acf5e86
files src/givens.cc
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/src/givens.cc
+++ b/src/givens.cc
@@ -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)
 	{