quantum-espresso/clib/stack.c

37 lines
861 B
C

/*
Copyright (C) 2007-2008 Quantum ESPRESSO group
This file is distributed under the terms of the
GNU General Public License. See the file `License'
in the root directory of the present distribution,
or http://www.gnu.org/copyleft/gpl.txt .
*/
#include <stdio.h>
#include <stdlib.h>
#if !defined(__WIN32)
#include <sys/resource.h>
void remove_stack_limit_(void) {
struct rlimit rlim = { RLIM_INFINITY, RLIM_INFINITY };
/* Modified according to Cesar Da Silva suggestions */
if ( setrlimit(RLIMIT_STACK, &rlim) == -1 ) {
if ( getrlimit(RLIMIT_STACK, &rlim) == 0 ) {
rlim.rlim_cur = rlim.rlim_max;
if ( setrlimit(RLIMIT_STACK, &rlim) == 0 ) {
getrlimit(RLIMIT_STACK, &rlim);
} else {
perror(" Cannot set stack size to new value");
}
}
}
}
#else
void remove_stack_limit_(void) {;}
#endif