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; }
void FNAME(g5_close)() { g5_close(); }