XL Fortran Enterprise Edition for AIX : User's Guide - IBM

Example 2 - Valid C Routine Source File
/*
* ********************************************************************
* This is a main function that creates threads to execute the Fortran
* test subroutines.
* ********************************************************************
*/
#include
#include
#include
extern char *sys_errlist[];
extern char *optarg;
extern int optind;
static char *prog_name;
#define MAX_NUM_THREADS 100
void *f_mt_exec(void *);
void f_pre_mt_exec(void);
void f_post_mt_exec(int *);
void
usage(void)
{
fprintf(stderr, "Usage: %s -t number_of_threads.\n", prog_name);
exit(-1);
}
main(int argc, char *argv[])
{
int i, c, rc;
int num_of_threads, n[MAX_NUM_THREADS];
char *num_of_threads_p;
pthread_attr_t attr;
pthread_t tid[MAX_NUM_THREADS];
prog_name = argv[0];
while ((c = getopt(argc, argv, "t")) != EOF)
{
switch (c)
{
case ’t’:
break;
}
default:
usage();
break;
}
argc -= optind;
argv += optind;
if (argc < 1)
{
usage();
}
num_of_threads_p = argv[0];
if ((num_of_threads = atoi(num_of_threads_p)) == 0)
{
fprintf(stderr,
"%s: Invalid number of threads to be created \n", prog_name,
num_of_threads_p);
exit(1);
406 XL Fortran Enterprise Edition for AIX : User’s Guide