28 typedef struct task {  struct
30   int(* routine)(int,struct task*);  argument
59 __kmpc_taskloop_5(ident_t *loc, int gtid, kmp_task_t *task, int if_val,  argument
74 int task_entry(int gtid, ptask task)  in task_entry()  argument
76   pshareds pshar = task->shareds;  in task_entry()
79   for (task->i = task->lb; task->i <= (int)task->ub; task->i += task->st) {  in task_entry()
80     task->th = omp_get_thread_num();  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 task_loop()  local
104       task = __kmpc_omp_task_alloc(NULL, gtid, 1, sizeof(struct task),  in task_loop()
106       psh = task->shareds;  in task_loop()
110       task->lb = LB;  in task_loop()
111       task->ub = UB;  in task_loop()
112       task->st = ST;  in task_loop()
117         task,             // task structure  in task_loop()
119         &task->lb,        // lower bound  in task_loop()
120         &task->ub,        // upper bound  in task_loop()