Mercurial > octave

diff liboctave/CmplxCHOL.cc @ 1251:97eac19837dc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-04-11 15:58:32 by jwe]
author jwe
date Tue, 11 Apr 1995 15:58:32 +0000
parents b6360f2d4fa6
children bb67a902760b
line wrap: on
line diff
--- a/liboctave/CmplxCHOL.cc	Tue Apr 11 01:07:17 1995 +0000
+++ b/liboctave/CmplxCHOL.cc	Tue Apr 11 15:58:32 1995 +0000
@@ -32,8 +32,8 @@
 
 extern "C"
 {
-  int F77_FCN (zpotrf) (const char*, const int*, Complex*, const int*,
-			int*, long);
+  int F77_FCN (zpotrf) (const char*, const int&, Complex*, const int&,
+			int&, long);
 }
 
 int
@@ -48,14 +48,12 @@
        return -1;
      }
 
-   char uplo = 'U';
-
    int n = a_nc;
    int info;
 
    Complex *h = dup (a.data (), a.length ());
 
-   F77_FCN (zpotrf) (&uplo, &n, h, &n, &info, 1L);
+   F77_FCN (zpotrf) ("U", n, h, n, info, 1L);
 
    chol_mat = ComplexMatrix (h, n, n);