programming6/heigvec_8c_source.html

00001 /*  heigvec.c    CCMATH mathematics library source code.
00002  *
00003  *  Copyright (C)  2000   Daniel A. Atkinson    All rights reserved.
00004  *  This code may be redistributed under the terms of the GNU library
00005  *  public license (LGPL). ( See the lgpl.license file for details.)
00006  * ------------------------------------------------------------------------
00007  */
00008 #include <stdlib.h>
00009 #include "ccmath.h"
00010 void heigvec(Cpx * a, double *ev, int n)
00011 {
00012     double *dp;
00013
00014     dp = (double *)calloc(n, sizeof(double));
00015     chousv(a, ev, dp, n);
00016     qrecvc(ev, a, dp, n);
00017     hconj(a, n);
00018     free(dp);
00019 }