27 typedef struct task {  struct
29     int(* routine)(int,struct task*);  argument
60 __kmpc_taskloop(ident_t *loc, int gtid, kmp_task_t *task, int if_val,  argument
75 int task_entry(int gtid, ptask task)  in task_entry()  argument
77     pshareds pshar = task->shareds;  in task_entry()
78     for( task->i = task->lb; task->i <= (int)task->ub; task->i += task->st ) {  in task_entry()
79         task->th = omp_get_thread_num();  in task_entry()
81         __kmpc_atomic_fixed4_add(NULL,gtid,&((*pshar->pth_counter)[task->th]),1);  in task_entry()
82         task->j = task->i;  in task_entry()
85     if( task->last ) {  in task_entry()
86         *(pshar->pj) = task->j; // lastprivate  in task_entry()
94     ptask task;  in main()  local
118     task = __kmpc_omp_task_alloc(NULL,gtid,1,sizeof(struct task),sizeof(struct shar),&task_entry);  in main()
119     psh = task->shareds;  in main()
123     task->lb = 0;  in main()
124     task->ub = N*GRAIN*STRIDE-2;  in main()
125     task->st = STRIDE;  in main()
130         task,             // task structure  in main()
132         &task->lb,        // lower bound  in main()
133         &task->ub,        // upper bound  in main()