blob: b3ddf60a39d631ffc374f46a6c307b329544810b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
|
/*@@
@file misc.c
@date 23.Mar.2003
@author Jonathan Thornburg <jthorn@aei.mpg.de>
@desc
Misc support routines for this thorn.
@enddesc
@version $Header$
@@*/
#include "cctk.h"
#include "cctk_Arguments.h"
#include "IDAnalyticBH.h"
static const char *rcsid = "$Header$";
CCTK_FILEVERSION(CactusEinstein_IDAnalyticBH_Misc_c)
/*@@
@routine IDAnalyticBH_zero_CCTK_REAL_array
@date 23.Mar.2003
@author Jonathan Thornburg <jthorn@aei.mpg.de>
@desc Sets a CCTK_REAL array to all (floating-point) zeros.
@enddesc
@@*/
void IDAnalyticBH_zero_CCTK_REAL_array(int N, CCTK_REAL A[])
{
int i;
for (i = 0 ; i < N ; ++i)
{
A[i] = 0.0;
}
}
|