コード例 #1
0
ファイル: force_g5.c プロジェクト: Milkyway-at-home/nemo
void
grape_open(void)
{
    if (is_grape_opened) {
	Cfprintf(stderr, "open_grape: already opened\n");
	return;
    }
    fprintf(stderr, "open GRAPE-5\n");
    g5_open();
    holdtime = vtc_get_cputime();
    is_grape_opened = 1;
}
コード例 #2
0
ファイル: pg5_fortran.c プロジェクト: Guo-astro/FDPS
void FNAME(g5_open)()
{
    g5_open();
}