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