blob: b7407585f4bff92defa1abe9552eb5fb9475f9db (
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
|
#include <stdlib.h>
#include "cctk.h"
#include "cctk_FortranString.h"
#include "CactusBase/IOUtil/src/ioutil_AdvertisedFiles.h"
static const char *rcsid = "$Header$";
CCTK_FILEVERSION(CactusEinstein_Extract_Advertise_c)
void CCTK_FCALL CCTK_FNAME(Extract_Advertise)
(cGH **GH, ONE_FORTSTRING_ARG);
void CCTK_FCALL CCTK_FNAME(Extract_Advertise)
(cGH **GH, ONE_FORTSTRING_ARG)
{
ONE_FORTSTRING_CREATE(file)
/* advertise new files for downloading */
ioAdvertisedFileDesc advertisedFile;
advertisedFile.slice = "";
advertisedFile.thorn = CCTK_THORNSTRING;
advertisedFile.varname = "Waveform";
advertisedFile.description = "Extract files";
advertisedFile.mimetype = "application/x-graph";
IOUtil_AdvertiseFile (*GH, file, &advertisedFile);
free(file);
}
|