GRASS GIS 8 Programmer's Manual  8.5.0dev(2024)-cb7cbab7e7
trncm.c
Go to the documentation of this file.
1 /* trncm.c CCMATH mathematics library source code.
2  *
3  * Copyright (C) 2000 Daniel A. Atkinson All rights reserved.
4  * This code may be redistributed under the terms of the GNU library
5  * public license (LGPL). ( See the lgpl.license file for details.)
6  * ------------------------------------------------------------------------
7  */
8 
9 #include "ccmath.h"
10 
11 void trncm(Cpx *a, int n)
12 {
13  Cpx s, *p, *q;
14 
15  int i, j, e;
16 
17  for (i = 0, e = n - 1; i < n - 1; ++i, --e, a += n + 1) {
18  for (j = 0, p = a + 1, q = a + n; j < e; ++j) {
19  s = *p;
20  *p++ = *q;
21  *q = s;
22  q += n;
23  }
24  }
25 }
Definition: ccmath.h:38
void trncm(Cpx *a, int n)
Definition: trncm.c:11