/*  hconj.c    CCMATH mathematics library source code.
 *
 *  Copyright (C)  2000   Daniel A. Atkinson    All rights reserved.
 *  This code may be redistributed under the terms of the GNU library
 *  public license (LGPL). ( See the lgpl.license file for details.)
 * ------------------------------------------------------------------------
 */
#include "complex.h"
void hconj(Cpx *a,int n)
{ Cpx s,*p,*q;
  int i,j,e;
  for(i=0,e=n-1; i<n ;++i,--e,a+=n+1){
    for(j=0,p=a+1,q=a+n; j<e ;++j){
      s= *p; s.im= -s.im; p->re=q->re;
      (p++)->im= -q->im; *q=s; q+=n;
     }
    a->im= -a->im;
   }
}