#include <stdio.h>
void f_stop(void) {
  printf("Fortran program stopped \n");
  _exit();
}