f_stop()
{
printf("Fortran program stopped \n");
_exit();
}