int smpi_process_argc(void) {
smpi_process_data_t data = smpi_process_data();
return data->argc ? *(data->argc) - 1 : 0;
}
int smpi_process_argc(void) {
smpi_process_data_t data = smpi_process_data();
return data->argc ? *(data->argc) - 1 : 0;
}
int smpi_process_getarg(integer* index, char* dst, ftnlen len) {
smpi_process_data_t data = smpi_process_data();
char* arg;
int smpi_process_getarg(integer* index, char* dst, ftnlen len) {
smpi_process_data_t data = smpi_process_data();
char* arg;
int smpi_global_size(void) {
char* value = getenv("SMPI_GLOBAL_SIZE");
int smpi_global_size(void) {
char* value = getenv("SMPI_GLOBAL_SIZE");
smpi_process_data_t smpi_process_data(void)
{
smpi_process_data_t smpi_process_data(void)
{