33char const *traits_t<int>::spec =
"d";
34char const *traits_t<unsigned int>::spec =
"u";
35char const *traits_t<long long>::spec =
"lld";
36char const *traits_t<unsigned long long>::spec =
"llu";
37char const *traits_t<long>::spec =
"ld";
42#define KMP_STATS_LOOP_END(stat) \
45 kmp_int64 u = (kmp_int64)(*pupper); \
46 kmp_int64 l = (kmp_int64)(*plower); \
47 kmp_int64 i = (kmp_int64)incr; \
50 } else if (i == -1) { \
53 t = (u - l) / i + 1; \
55 KMP_DEBUG_ASSERT(i != 0); \
56 t = (l - u) / (-i) + 1; \
58 KMP_COUNT_VALUE(stat, t); \
59 KMP_POP_PARTITIONED_TIMER(); \
62#define KMP_STATS_LOOP_END(stat)
65#if USE_ITT_BUILD || defined KMP_DEBUG
77 typename traits_t<T>::signed_t *pstride,
78 typename traits_t<T>::signed_t incr,
79 typename traits_t<T>::signed_t chunk
80#
if OMPT_SUPPORT && OMPT_OPTIONAL
92 typedef typename traits_t<T>::unsigned_t UT;
93 typedef typename traits_t<T>::signed_t
ST;
103#if OMPT_SUPPORT && OMPT_OPTIONAL
106 ompt_work_t ompt_work_type = ompt_work_loop_static;
117 ompt_work_type = ompt_work_loop_static;
119 ompt_work_type = ompt_work_sections;
121 ompt_work_type = ompt_work_distribute;
134 KE_TRACE(10, (
"__kmpc_for_static_init called (%d)\n", global_tid));
140 "__kmpc_for_static_init: T#%%d sched=%%d liter=%%d iter=(%%%s,"
141 " %%%s, %%%s) incr=%%%s chunk=%%%s signed?<%s>\n",
142 traits_t<T>::spec, traits_t<T>::spec, traits_t<ST>::spec,
143 traits_t<ST>::spec, traits_t<ST>::spec, traits_t<T>::spec);
144 KD_TRACE(100, (buff, global_tid, schedtype, *plastiter, *plower, *pupper,
145 *pstride, incr, chunk));
158 if (incr > 0 ? (*pupper < *plower) : (*plower < *pupper)) {
159 if (plastiter != NULL)
172 "lower=%%%s upper=%%%s stride = %%%s "
173 "signed?<%s>, loc = %%s\n",
174 traits_t<T>::spec, traits_t<T>::spec,
175 traits_t<ST>::spec, traits_t<T>::spec);
178 (buff, *plastiter, *plower, *pupper, *pstride,
loc->
psource));
182 KE_TRACE(10, (
"__kmpc_for_static_init: T#%d return\n", global_tid));
184#if OMPT_SUPPORT && OMPT_OPTIONAL
187 ompt_work_type, ompt_scope_begin, &(team_info->
parallel_data),
203 if (th->th.th_team->t.t_serialized > 1) {
205 team = th->th.th_team;
207 tid = th->th.th_team->t.t_master_tid;
208 team = th->th.th_team->
t.t_parent;
212 team = th->th.th_team;
216 if (team->
t.t_serialized) {
218 if (plastiter != NULL)
222 (incr > 0) ? (*pupper - *plower + 1) : (-(*plower - *pupper + 1));
229 "lower=%%%s upper=%%%s stride = %%%s\n",
230 traits_t<T>::spec, traits_t<T>::spec,
232 KD_TRACE(100, (buff, *plastiter, *plower, *pupper, *pstride));
236 KE_TRACE(10, (
"__kmpc_for_static_init: T#%d return\n", global_tid));
238#if OMPT_SUPPORT && OMPT_OPTIONAL
241 ompt_work_type, ompt_scope_begin, &(team_info->
parallel_data),
242 &(task_info->
task_data), *pstride, codeptr);
248 nth = team->
t.t_nproc;
250 if (plastiter != NULL)
253 (incr > 0) ? (*pupper - *plower + 1) : (-(*plower - *pupper + 1));
259 "lower=%%%s upper=%%%s stride = %%%s\n",
260 traits_t<T>::spec, traits_t<T>::spec,
262 KD_TRACE(100, (buff, *plastiter, *plower, *pupper, *pstride));
266 KE_TRACE(10, (
"__kmpc_for_static_init: T#%d return\n", global_tid));
268#if OMPT_SUPPORT && OMPT_OPTIONAL
271 ompt_work_type, ompt_scope_begin, &(team_info->
parallel_data),
272 &(task_info->
task_data), *pstride, codeptr);
281 trip_count = *pupper - *plower + 1;
282 }
else if (incr == -1) {
283 trip_count = *plower - *pupper + 1;
284 }
else if (incr > 0) {
286 trip_count = (UT)(*pupper - *plower) / incr + 1;
289 trip_count = (UT)(*plower - *pupper) / (-incr) + 1;
300 if (trip_count == 0 && *pupper != *plower) {
309 if (trip_count < nth) {
314 if (tid < trip_count) {
315 *pupper = *plower = *plower + tid * incr;
318 *plower = *pupper + (incr > 0 ? 1 : -1);
320 if (plastiter != NULL)
321 *plastiter = (tid == trip_count - 1);
325 UT small_chunk = trip_count / nth;
326 UT extras = trip_count % nth;
327 *plower += incr * (tid * small_chunk + (tid < extras ? tid : extras));
328 *pupper = *plower + small_chunk * incr - (tid < extras ? 0 : incr);
329 if (plastiter != NULL)
330 *plastiter = (tid == nth - 1);
332 T big_chunk_inc_count =
333 (trip_count / nth + ((trip_count % nth) ? 1 : 0)) * incr;
334 T old_upper = *pupper;
339 *plower += tid * big_chunk_inc_count;
340 *pupper = *plower + big_chunk_inc_count - incr;
342 if (*pupper < *plower)
343 *pupper = traits_t<T>::max_value;
344 if (plastiter != NULL)
345 *plastiter = *plower <= old_upper && *pupper > old_upper - incr;
346 if (*pupper > old_upper)
349 if (*pupper > *plower)
350 *pupper = traits_t<T>::min_value;
351 if (plastiter != NULL)
352 *plastiter = *plower >= old_upper && *pupper < old_upper - incr;
353 if (*pupper < old_upper)
358 *pstride = trip_count;
367 else if ((UT)chunk > trip_count)
369 nchunks = (trip_count) / (UT)chunk + (trip_count % (UT)chunk ? 1 : 0);
372 *pstride = span * nchunks;
374 *plower = *plower + (span * tid);
375 *pupper = *plower + span - incr;
377 *plower = *pupper + (incr > 0 ? 1 : -1);
380 *pstride = span * nth;
381 *plower = *plower + (span * tid);
382 *pupper = *plower + span - incr;
384 if (plastiter != NULL)
385 *plastiter = (tid == (nchunks - 1) % nth);
389 T old_upper = *pupper;
392 UT span = (trip_count + nth - 1) / nth;
395 chunk = (span + chunk - 1) & ~(chunk - 1);
398 *plower = *plower + (span * tid);
399 *pupper = *plower + span - incr;
401 if (*pupper > old_upper)
403 }
else if (*pupper < old_upper)
406 if (plastiter != NULL) {
408 *plastiter = (tid == ((trip_count - 1) / (UT)chunk));
413 KMP_ASSERT2(0,
"__kmpc_for_static_init: unknown scheduling type");
420 __kmp_forkjoin_frames_mode == 3 && th->th.th_teams_microtask == NULL &&
421 team->
t.t_active_level == 1) {
428 cur_chunk = trip_count / nth + ((trip_count % nth) ? 1 : 0);
431 __kmp_itt_metadata_loop(
loc, 0, trip_count, cur_chunk);
439 "upper=%%%s stride = %%%s signed?<%s>\n",
440 traits_t<T>::spec, traits_t<T>::spec,
441 traits_t<ST>::spec, traits_t<T>::spec);
442 KD_TRACE(100, (buff, *plastiter, *plower, *pupper, *pstride));
446 KE_TRACE(10, (
"__kmpc_for_static_init: T#%d return\n", global_tid));
448#if OMPT_SUPPORT && OMPT_OPTIONAL
451 ompt_work_type, ompt_scope_begin, &(team_info->
parallel_data),
452 &(task_info->
task_data), trip_count, codeptr);
455 ompt_dispatch_t dispatch_type;
456 ompt_data_t
instance = ompt_data_none;
457 ompt_dispatch_chunk_t dispatch_chunk;
458 if (ompt_work_type == ompt_work_sections) {
459 dispatch_type = ompt_dispatch_section;
462 OMPT_GET_DISPATCH_CHUNK(dispatch_chunk, *plower, *pupper, incr);
463 dispatch_type = (ompt_work_type == ompt_work_distribute)
464 ? ompt_dispatch_distribute_chunk
465 : ompt_dispatch_ws_loop_chunk;
481 T *plower, T *pupper, T *pupperDist,
482 typename traits_t<T>::signed_t *pstride,
483 typename traits_t<T>::signed_t incr,
484 typename traits_t<T>::signed_t chunk
485#
if OMPT_SUPPORT && OMPT_OPTIONAL
493 typedef typename traits_t<T>::unsigned_t UT;
494 typedef typename traits_t<T>::signed_t
ST;
504 KE_TRACE(10, (
"__kmpc_dist_for_static_init called (%d)\n", gtid));
511 "__kmpc_dist_for_static_init: T#%%d schedLoop=%%d liter=%%d "
512 "iter=(%%%s, %%%s, %%%s) chunk=%%%s signed?<%s>\n",
513 traits_t<T>::spec, traits_t<T>::spec, traits_t<ST>::spec,
514 traits_t<ST>::spec, traits_t<T>::spec);
516 (buff, gtid, schedule, *plastiter, *plower, *pupper, incr, chunk));
527 if (incr > 0 ? (*pupper < *plower) : (*plower < *pupper)) {
542 nth = th->th.th_team_nproc;
543 team = th->th.th_team;
549 while (team->
t.t_parent && team->
t.t_serialized)
550 team = team->
t.t_parent;
551 nteams = th->th.th_teams_size.nteams;
552 team_id = team->
t.t_master_tid;
557 trip_count = *pupper - *plower + 1;
558 }
else if (incr == -1) {
559 trip_count = *plower - *pupper + 1;
560 }
else if (incr > 0) {
562 trip_count = (UT)(*pupper - *plower) / incr + 1;
565 trip_count = (UT)(*plower - *pupper) / (-incr) + 1;
568 *pstride = *pupper - *plower;
569 if (trip_count <= nteams) {
576 if (team_id < trip_count && tid == 0) {
577 *pupper = *pupperDist = *plower = *plower + team_id * incr;
579 *pupperDist = *pupper;
580 *plower = *pupper + incr;
582 if (plastiter != NULL)
583 *plastiter = (tid == 0 && team_id == trip_count - 1);
588 UT chunkD = trip_count / nteams;
589 UT extras = trip_count % nteams;
591 incr * (team_id * chunkD + (team_id < extras ? team_id : extras));
592 *pupperDist = *plower + chunkD * incr - (team_id < extras ? 0 : incr);
593 if (plastiter != NULL)
594 *plastiter = (team_id == nteams - 1);
597 (trip_count / nteams + ((trip_count % nteams) ? 1 : 0)) * incr;
601 *plower += team_id * chunk_inc_count;
602 *pupperDist = *plower + chunk_inc_count - incr;
605 if (*pupperDist < *plower)
606 *pupperDist = traits_t<T>::max_value;
607 if (plastiter != NULL)
608 *plastiter = *plower <= upper && *pupperDist > upper - incr;
609 if (*pupperDist > upper)
611 if (*plower > *pupperDist) {
612 *pupper = *pupperDist;
616 if (*pupperDist > *plower)
617 *pupperDist = traits_t<T>::min_value;
618 if (plastiter != NULL)
619 *plastiter = *plower >= upper && *pupperDist < upper - incr;
620 if (*pupperDist < upper)
622 if (*plower < *pupperDist) {
623 *pupper = *pupperDist;
631 trip_count = *pupperDist - *plower + 1;
632 }
else if (incr == -1) {
633 trip_count = *plower - *pupperDist + 1;
634 }
else if (incr > 1) {
636 trip_count = (UT)(*pupperDist - *plower) / incr + 1;
639 trip_count = (UT)(*plower - *pupperDist) / (-incr) + 1;
644 if (trip_count <= nth) {
649 if (tid < trip_count)
650 *pupper = *plower = *plower + tid * incr;
652 *plower = *pupper + incr;
653 if (plastiter != NULL)
654 if (*plastiter != 0 && !(tid == trip_count - 1))
659 UT chunkL = trip_count / nth;
660 UT extras = trip_count % nth;
661 *plower += incr * (tid * chunkL + (tid < extras ? tid : extras));
662 *pupper = *plower + chunkL * incr - (tid < extras ? 0 : incr);
663 if (plastiter != NULL)
664 if (*plastiter != 0 && !(tid == nth - 1))
668 (trip_count / nth + ((trip_count % nth) ? 1 : 0)) * incr;
669 T upper = *pupperDist;
672 *plower += tid * chunk_inc_count;
673 *pupper = *plower + chunk_inc_count - incr;
675 if (*pupper < *plower)
676 *pupper = traits_t<T>::max_value;
677 if (plastiter != NULL)
678 if (*plastiter != 0 &&
679 !(*plower <= upper && *pupper > upper - incr))
684 if (*pupper > *plower)
685 *pupper = traits_t<T>::min_value;
686 if (plastiter != NULL)
687 if (*plastiter != 0 &&
688 !(*plower >= upper && *pupper < upper - incr))
702 *pstride = span * nth;
703 *plower = *plower + (span * tid);
704 *pupper = *plower + span - incr;
705 if (plastiter != NULL) {
707 if (*plastiter != 0 && !(tid == ((trip_count - 1) / (UT)chunk) % nth))
714 "__kmpc_dist_for_static_init: unknown loop scheduling type");
724 "__kmpc_dist_for_static_init: last=%%d lo=%%%s up=%%%s upDist=%%%s "
725 "stride=%%%s signed?<%s>\n",
726 traits_t<T>::spec, traits_t<T>::spec, traits_t<T>::spec,
727 traits_t<ST>::spec, traits_t<T>::spec);
728 KD_TRACE(100, (buff, *plastiter, *plower, *pupper, *pupperDist, *pstride));
732 KE_TRACE(10, (
"__kmpc_dist_for_static_init: T#%d return\n", gtid));
733#if OMPT_SUPPORT && OMPT_OPTIONAL
739 ompt_work_distribute, ompt_scope_begin, &(team_info->
parallel_data),
743 ompt_data_t
instance = ompt_data_none;
744 ompt_dispatch_chunk_t dispatch_chunk;
745 OMPT_GET_DISPATCH_CHUNK(dispatch_chunk, *plower, *pupperDist, incr);
749 ompt_dispatch_distribute_chunk,
instance);
760 typename traits_t<T>::signed_t *p_st,
761 typename traits_t<T>::signed_t incr,
762 typename traits_t<T>::signed_t chunk) {
768 typedef typename traits_t<T>::unsigned_t UT;
769 typedef typename traits_t<T>::signed_t
ST;
780 KE_TRACE(10, (
"__kmp_team_static_init called (%d)\n", gtid));
787 "iter=(%%%s, %%%s, %%%s) chunk %%%s; signed?<%s>\n",
788 traits_t<T>::spec, traits_t<T>::spec,
789 traits_t<ST>::spec, traits_t<ST>::spec,
791 KD_TRACE(100, (buff, gtid, *p_last, *p_lb, *p_ub, *p_st, chunk));
803 if (incr > 0 ? (upper < lower) : (lower < upper)) {
817 team = th->th.th_team;
819 nteams = th->th.th_teams_size.nteams;
820 team_id = team->
t.t_master_tid;
825 trip_count = upper - lower + 1;
826 }
else if (incr == -1) {
827 trip_count = lower - upper + 1;
828 }
else if (incr > 0) {
830 trip_count = (UT)(upper - lower) / incr + 1;
833 trip_count = (UT)(lower - upper) / (-incr) + 1;
838 *p_st = span * nteams;
839 *p_lb = lower + (span * team_id);
840 *p_ub = *p_lb + span - incr;
841 if (p_last != NULL) {
843 *p_last = (team_id == ((trip_count - 1) / (UT)chunk) % nteams);
848 *p_ub = traits_t<T>::max_value;
853 *p_ub = traits_t<T>::min_value;
863 "iter=(%%%s, %%%s, %%%s) chunk %%%s\n",
864 traits_t<T>::spec, traits_t<T>::spec,
865 traits_t<ST>::spec, traits_t<ST>::spec);
866 KD_TRACE(100, (buff, gtid, team_id, *p_last, *p_lb, *p_ub, *p_st, chunk));
899 __kmp_for_static_init<kmp_int32>(
loc, gtid, schedtype, plastiter, plower,
900 pupper, pstride, incr, chunk
901#
if OMPT_SUPPORT && OMPT_OPTIONAL
916 __kmp_for_static_init<kmp_uint32>(
loc, gtid, schedtype, plastiter, plower,
917 pupper, pstride, incr, chunk
918#
if OMPT_SUPPORT && OMPT_OPTIONAL
932 __kmp_for_static_init<kmp_int64>(
loc, gtid, schedtype, plastiter, plower,
933 pupper, pstride, incr, chunk
934#
if OMPT_SUPPORT && OMPT_OPTIONAL
949 __kmp_for_static_init<kmp_uint64>(
loc, gtid, schedtype, plastiter, plower,
950 pupper, pstride, incr, chunk
951#
if OMPT_SUPPORT && OMPT_OPTIONAL
961#if OMPT_SUPPORT && OMPT_OPTIONAL
962#define OMPT_CODEPTR_ARG , OMPT_GET_RETURN_ADDRESS(0)
964#define OMPT_CODEPTR_ARG
994 __kmp_dist_for_static_init<kmp_int32>(
loc, gtid, schedule, plastiter, plower,
995 pupper, pupperD, pstride, incr,
1007 __kmp_dist_for_static_init<kmp_uint32>(
loc, gtid, schedule, plastiter, plower,
1008 pupper, pupperD, pstride, incr,
1020 __kmp_dist_for_static_init<kmp_int64>(
loc, gtid, schedule, plastiter, plower,
1021 pupper, pupperD, pstride, incr,
1033 __kmp_dist_for_static_init<kmp_uint64>(
loc, gtid, schedule, plastiter, plower,
1034 pupper, pupperD, pstride, incr,
1072 __kmp_team_static_init<kmp_int32>(
loc, gtid, p_last, p_lb, p_ub, p_st, incr,
1084 __kmp_team_static_init<kmp_uint32>(
loc, gtid, p_last, p_lb, p_ub, p_st, incr,
1096 __kmp_team_static_init<kmp_int64>(
loc, gtid, p_last, p_lb, p_ub, p_st, incr,
1108 __kmp_team_static_init<kmp_uint64>(
loc, gtid, p_last, p_lb, p_ub, p_st, incr,
@ KMP_IDENT_KMPC
Use c-style ident structure.
@ KMP_IDENT_WORK_LOOP
To mark a static loop in OMPT callbacks.
@ KMP_IDENT_WORK_SECTIONS
To mark a sections directive in OMPT callbacks.
@ KMP_IDENT_WORK_DISTRIBUTE
To mark a distribute construct in OMPT callbacks.
void __kmpc_for_static_init_8(ident_t *loc, kmp_int32 gtid, kmp_int32 schedtype, kmp_int32 *plastiter, kmp_int64 *plower, kmp_int64 *pupper, kmp_int64 *pstride, kmp_int64 incr, kmp_int64 chunk)
See __kmpc_for_static_init_4.
void __kmpc_dist_for_static_init_8(ident_t *loc, kmp_int32 gtid, kmp_int32 schedule, kmp_int32 *plastiter, kmp_int64 *plower, kmp_int64 *pupper, kmp_int64 *pupperD, kmp_int64 *pstride, kmp_int64 incr, kmp_int64 chunk)
See __kmpc_dist_for_static_init_4.
void __kmpc_for_static_init_4u(ident_t *loc, kmp_int32 gtid, kmp_int32 schedtype, kmp_int32 *plastiter, kmp_uint32 *plower, kmp_uint32 *pupper, kmp_int32 *pstride, kmp_int32 incr, kmp_int32 chunk)
See __kmpc_for_static_init_4.
void __kmpc_team_static_init_8(ident_t *loc, kmp_int32 gtid, kmp_int32 *p_last, kmp_int64 *p_lb, kmp_int64 *p_ub, kmp_int64 *p_st, kmp_int64 incr, kmp_int64 chunk)
See __kmpc_team_static_init_4.
void __kmpc_dist_for_static_init_4u(ident_t *loc, kmp_int32 gtid, kmp_int32 schedule, kmp_int32 *plastiter, kmp_uint32 *plower, kmp_uint32 *pupper, kmp_uint32 *pupperD, kmp_int32 *pstride, kmp_int32 incr, kmp_int32 chunk)
See __kmpc_dist_for_static_init_4.
void __kmpc_team_static_init_8u(ident_t *loc, kmp_int32 gtid, kmp_int32 *p_last, kmp_uint64 *p_lb, kmp_uint64 *p_ub, kmp_int64 *p_st, kmp_int64 incr, kmp_int64 chunk)
See __kmpc_team_static_init_4.
void __kmpc_for_static_init_8u(ident_t *loc, kmp_int32 gtid, kmp_int32 schedtype, kmp_int32 *plastiter, kmp_uint64 *plower, kmp_uint64 *pupper, kmp_int64 *pstride, kmp_int64 incr, kmp_int64 chunk)
See __kmpc_for_static_init_4.
void __kmpc_team_static_init_4u(ident_t *loc, kmp_int32 gtid, kmp_int32 *p_last, kmp_uint32 *p_lb, kmp_uint32 *p_ub, kmp_int32 *p_st, kmp_int32 incr, kmp_int32 chunk)
See __kmpc_team_static_init_4.
void __kmpc_dist_for_static_init_4(ident_t *loc, kmp_int32 gtid, kmp_int32 schedule, kmp_int32 *plastiter, kmp_int32 *plower, kmp_int32 *pupper, kmp_int32 *pupperD, kmp_int32 *pstride, kmp_int32 incr, kmp_int32 chunk)
void __kmpc_for_static_init_4(ident_t *loc, kmp_int32 gtid, kmp_int32 schedtype, kmp_int32 *plastiter, kmp_int32 *plower, kmp_int32 *pupper, kmp_int32 *pstride, kmp_int32 incr, kmp_int32 chunk)
void __kmpc_team_static_init_4(ident_t *loc, kmp_int32 gtid, kmp_int32 *p_last, kmp_int32 *p_lb, kmp_int32 *p_ub, kmp_int32 *p_st, kmp_int32 incr, kmp_int32 chunk)
void __kmpc_dist_for_static_init_8u(ident_t *loc, kmp_int32 gtid, kmp_int32 schedule, kmp_int32 *plastiter, kmp_uint64 *plower, kmp_uint64 *pupper, kmp_uint64 *pupperD, kmp_int64 *pstride, kmp_int64 incr, kmp_int64 chunk)
See __kmpc_dist_for_static_init_4.
@ kmp_sch_static
static unspecialized
@ kmp_distribute_static
distribute static unspecialized
@ kmp_sch_static_balanced
@ kmp_sch_static_balanced_chunked
@ kmp_ord_upper
upper bound for ordered values
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance ITT_FORMAT p __itt_model_task __itt_model_task_instance ITT_FORMAT p void ITT_FORMAT p void ITT_FORMAT p void size_t ITT_FORMAT d void ITT_FORMAT p const wchar_t ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s const char ITT_FORMAT s no args void ITT_FORMAT p size_t ITT_FORMAT d no args const wchar_t const wchar_t ITT_FORMAT s __itt_heap_function void size_t int ITT_FORMAT d __itt_heap_function void ITT_FORMAT p __itt_heap_function void void size_t int ITT_FORMAT d no args no args unsigned int ITT_FORMAT u const __itt_domain __itt_id ITT_FORMAT lu const __itt_domain __itt_id __itt_id __itt_string_handle ITT_FORMAT p const __itt_domain __itt_id ITT_FORMAT p const __itt_domain __itt_id __itt_timestamp __itt_timestamp end
void const char const char int ITT_FORMAT __itt_group_sync x void const char ITT_FORMAT __itt_group_sync s void ITT_FORMAT __itt_group_sync p void ITT_FORMAT p void ITT_FORMAT p no args __itt_suppress_mode_t unsigned int void size_t ITT_FORMAT d void ITT_FORMAT p void ITT_FORMAT p __itt_model_site __itt_model_site_instance * instance
static int __kmp_tid_from_gtid(int gtid)
enum sched_type __kmp_static
#define KMP_MASTER_TID(tid)
kmp_info_t ** __kmp_threads
#define SCHEDULE_WITHOUT_MODIFIERS(s)
#define KMP_MASTER_GTID(gtid)
int __kmp_env_consistency_check
static void __kmp_assert_valid_gtid(kmp_int32 gtid)
volatile int __kmp_init_serial
union KMP_ALIGN_CACHE kmp_info kmp_info_t
KMP_ARCH_X86 KMP_ARCH_X86 KMP_ARCH_X86 kmp_int8
#define KMP_DEBUG_ASSERT(cond)
#define KMP_ASSERT2(cond, msg)
unsigned long long kmp_uint64
void __kmp_push_workshare(int gtid, enum cons_type ct, ident_t const *ident)
void __kmp_error_construct(kmp_i18n_id_t id, enum cons_type ct, ident_t const *ident)
#define KMP_COMPARE_AND_STORE_ACQ8(p, cv, sv)
static void __kmp_dist_for_static_init(ident_t *loc, kmp_int32 gtid, kmp_int32 schedule, kmp_int32 *plastiter, T *plower, T *pupper, T *pupperDist, typename traits_t< T >::signed_t *pstride, typename traits_t< T >::signed_t incr, typename traits_t< T >::signed_t chunk)
static void __kmp_for_static_init(ident_t *loc, kmp_int32 global_tid, kmp_int32 schedtype, kmp_int32 *plastiter, T *plower, T *pupper, typename traits_t< T >::signed_t *pstride, typename traits_t< T >::signed_t incr, typename traits_t< T >::signed_t chunk)
static void __kmp_team_static_init(ident_t *loc, kmp_int32 gtid, kmp_int32 *p_last, T *p_lb, T *p_ub, typename traits_t< T >::signed_t *p_st, typename traits_t< T >::signed_t incr, typename traits_t< T >::signed_t chunk)
#define KMP_STATS_LOOP_END(stat)
Functions for collecting statistics.
#define KMP_COUNT_VALUE(n, v)
#define KMP_PUSH_PARTITIONED_TIMER(name)
#define KMP_COUNT_BLOCK(n)
char * __kmp_str_format(char const *format,...)
void __kmp_str_free(char **str)
ompt_callbacks_active_t ompt_enabled
ompt_callbacks_internal_t ompt_callbacks
#define OMPT_GET_RETURN_ADDRESS(level)
ompt_team_info_t * __ompt_get_teaminfo(int depth, int *size)
ompt_task_info_t * __ompt_get_task_info_object(int depth)
ompt_data_t parallel_data