00001 ! Liao 1/11/2011 00002 ! XOMP function prototype support Fortran source-to-source translation 00003 ! This is necessary since they will be treated as returning REAL 00004 ! since they start with X (implicit to be REAL, not INTEGER) 00005 00006 ! loop scheduling functions 00007 !loop start 00008 EXTERNAL XOMP_loop_static_start 00009 EXTERNAL XOMP_loop_dynamic_start 00010 EXTERNAL XOMP_loop_guided_start 00011 EXTERNAL XOMP_loop_runtime_start 00012 EXTERNAL XOMP_loop_ordered_static_start 00013 EXTERNAL XOMP_loop_ordered_dynamic_start 00014 EXTERNAL XOMP_loop_ordered_guided_start 00015 EXTERNAL XOMP_loop_ordered_runtime_start 00016 00017 INTEGER XOMP_loop_static_start 00018 INTEGER XOMP_loop_dynamic_start 00019 INTEGER XOMP_loop_guided_start 00020 INTEGER XOMP_loop_runtime_start 00021 INTEGER XOMP_loop_ordered_static_start 00022 INTEGER XOMP_loop_ordered_dynamic_start 00023 INTEGER XOMP_loop_ordered_guided_start 00024 INTEGER XOMP_loop_ordered_runtime_start 00025 00026 00027 ! loop next 00028 EXTERNAL XOMP_loop_static_next 00029 EXTERNAL XOMP_loop_dynamic_next 00030 EXTERNAL XOMP_loop_guided_next 00031 EXTERNAL XOMP_loop_runtime_next 00032 EXTERNAL XOMP_loop_ordered_static_next 00033 EXTERNAL XOMP_loop_ordered_dynamic_next 00034 EXTERNAL XOMP_loop_ordered_guided_next 00035 EXTERNAL XOMP_loop_ordered_runtime_next 00036 00037 INTEGER XOMP_loop_static_next 00038 INTEGER XOMP_loop_dynamic_next 00039 INTEGER XOMP_loop_guided_next 00040 INTEGER XOMP_loop_runtime_next 00041 INTEGER XOMP_loop_ordered_static_next 00042 INTEGER XOMP_loop_ordered_dynamic_next 00043 INTEGER XOMP_loop_ordered_guided_next 00044 INTEGER XOMP_loop_ordered_runtime_next 00045 00046 ! sections 00047 INTEGER XOMP_sections_init_next 00048 INTEGER XOMP_sections_next 00049 00050 EXTERNAL XOMP_sections_end 00051 EXTERNAL XOMP_sections_end_nowait 00052 00053 ! a few others 00054 EXTERNAL XOMP_single 00055 INTEGER XOMP_single 00056 EXTERNAL XOMP_master 00057 INTEGER XOMP_master
1.4.7