00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033
00034
00035
00036
00037
00038
00039
00040 static FILE *trace_file;
00041 static char trace_file_name[] = "cft90_trace";
00042 static int trace_indent = 0;
00043 static int const trace_indent_len = 2;
00044
00045 FILE *debug_file;
00046
00047 token_type fake_token;
00048
00049 char *access_str[] = {
00050 "Public",
00051 "Private"
00052 };
00053 char *align_str[] = {
00054 "No_Align",
00055 "Algn_Bit",
00056 "Align_8",
00057 "Align_16",
00058 "Align_32",
00059 "Align_64",
00060 "Double",
00061 "Algn_128"
00062 };
00063
00064 char *atd_class_str[] = {
00065 "Atd_Unknown",
00066 "Variable",
00067 "Dummy_Argument",
00068 "Function_Result",
00069 "Compiler_Tmp",
00070 "Cray_Pointee",
00071 "Struct_Component",
00072 "Constant"
00073 };
00074
00075 char *atl_class_str[] = {
00076 "Lbl_Unknown",
00077 "Lbl_User",
00078 "Lbl_Format",
00079 "Lbl_Internal",
00080 "Lbl_Debug",
00081 "Lbl_Construct"
00082 };
00083
00084 char *atl_debug_class_str[] = {
00085 "Ldbg_None",
00086 "Ldbg_Stmt_Lbl",
00087 "Ldbg_Exit_Point",
00088 "Ldbg_End_Prologue",
00089 "Ldbg_Start_Epilogue",
00090 "Ldbg_Construct_Name",
00091 "Ldbg_Loop_Lbl",
00092 "Ldbg_User_Lbl"
00093 };
00094
00095
00096 char *atp_pgm_unit_str[] = {
00097 "Pgm_Unknown",
00098 "ERROR",
00099 "ERROR",
00100 "Function",
00101 "Subroutine",
00102 "Program",
00103 "Blockdata",
00104 "Module"
00105 };
00106
00107 char *atp_proc_str[] = {
00108 "Unknown_Proc",
00109 "Extern_Proc",
00110 "Intrin_Proc",
00111 "Dummy_Proc",
00112 "Intern_Proc",
00113 "Imported_Proc",
00114 "Module_Proc"
00115 };
00116
00117 char *bd_array_class_str[] = {
00118 "Unknown_Array",
00119 "Explicit_Shape",
00120 "Assumed_Size",
00121 "Deferred_Shape",
00122 "Assumed_Shape"
00123 };
00124
00125 char *bd_array_size_str[] = {
00126 "Unknown_Size",
00127 "Constant_Size",
00128 "Var_Len_Array",
00129 "Symbolic_Constant_Size"
00130 };
00131
00132 char *blk_struct_str[] = {
00133
00134 "Unknown_Blk",
00135 "Blockdata_Blk",
00136 "Module_Blk",
00137 "Main_Program_Blk",
00138 "Function_Blk",
00139 "Subroutine_Blk",
00140 "Internal_Blk",
00141 "Module_Proc_Blk",
00142 "Interface_Body_Blk",
00143 "Do_Blk",
00144 "Forall_Blk",
00145 "If_Blk",
00146 "If_Then_Blk",
00147 "If_Else_If_Blk",
00148 "If_Else_Blk",
00149 "Select_Blk",
00150 "Case_Blk",
00151 "Where_Then_Blk",
00152 "Where_Else_Blk",
00153 "Where_Else_Mask_Blk",
00154 "Parallel_Blk",
00155 "Doall_Blk",
00156 "Do_Parallel_Blk",
00157 "Guard_Blk",
00158 "Parallel_Case_Blk",
00159 "Wait_Blk",
00160 "SGI_Doacross_Blk",
00161 "SGI_Psection_Blk",
00162 "SGI_Section_Blk",
00163 "SGI_Pdo_Blk",
00164 "SGI_Parallel_Do_Blk",
00165 "SGI_Parallel_Blk",
00166 "SGI_Critical_Section_Blk",
00167 "SGI_Single_Process_Blk",
00168 "SGI_Region_Blk",
00169 "Open_Mp_Parallel_Blk",
00170 "Open_Mp_Do_Blk",
00171 "Open_Mp_Parallel_Sections_Blk",
00172 "Open_Mp_Sections_Blk",
00173 "Open_Mp_Section_Blk",
00174 "Open_Mp_Single_Blk",
00175 "Open_Mp_Parallel_Do_Blk",
00176 "Open_Mp_Master_Blk",
00177 "Open_Mp_Critical_Blk",
00178 "Open_Mp_Ordered_Blk",
00179 "Open_Mp_Parallel_Workshare_Blk",
00180 "Open_Mp_Workshare_Blk",
00181 "Contains_Blk",
00182 "Interface_Blk",
00183 "Derived_Type_Blk"
00184 };
00185
00186 char *boolean_str[] = {
00187 "F",
00188 "T"
00189 };
00190
00191 char *context_str[] = {
00192 "Init_Stmt_Cat",
00193 "Sub_Func_Stmt_Cat",
00194 "Dir_Integer_Stmt_Cat",
00195 "Use_Stmt_Cat",
00196 "Implicit_None_Stmt_Cat",
00197 "Implicit_Stmt_Cat",
00198 "Declaration_Stmt_Cat",
00199 "Executable_Stmt_Cat",
00200 };
00201
00202 char *cn_hollerith_str[] = {
00203 "Not_Hollerith",
00204 "L_Hollerith",
00205 "H_Hollerith",
00206 "R_Hollerith"
00207 };
00208
00209 char *debug_lvl_str[] = {
00210 "Debug_Lvl_0",
00211 "Debug_Lvl_1",
00212 "Debug_Lvl_2",
00213 "Debug_Lvl_3",
00214 "No_Debugging"
00215 };
00216
00217 char *distribution_str[] = {
00218 "No_Distribution",
00219 "Block_Distribution",
00220 "Cyclic_Distribution",
00221 "Star_Distribution"
00222 };
00223
00224 char *do_type_str[] = {
00225 "Unknown_Loop",
00226 "Iterative_Loop",
00227 "While_Loop",
00228 "Infinite_Loop"
00229 };
00230
00231 char *field_str[] = {
00232 "NO_Tbl_Idx",
00233 "CN_Tbl_Idx",
00234 "SB_Tbl_Idx",
00235 "IL_Tbl_Idx",
00236 "AT_Tbl_Idx",
00237 "SH_Tbl_Idx",
00238 "IR_Tbl_Idx"
00239 };
00240
00241 char *file_path_str[] = {
00242 "Unknown_Fp",
00243 "Directory_Fp",
00244 "File_Fp",
00245 "Mod_File_Fp",
00246 "Archive_File_Fp",
00247 "Elf_File_Fp",
00248 "Module_Fp",
00249 "Current_Compile_Fp",
00250 "Include_Fp",
00251 "Inline_Fp",
00252 "Reshape_Array_Fp",
00253 "Xcoff_Fp"
00254 };
00255
00256 char *implicit_storage_str[] = {
00257 "Impl_Default_Storage",
00258 "Impl_Automatic_Storage",
00259 "Impl_Static_Storage"
00260 };
00261
00262 char *integer_size_str[] = {
00263 "Integer_32",
00264 "Integer_64"
00265 };
00266
00267 char *intent_str[] = {
00268 "Unseen",
00269 "In",
00270 "Out",
00271 "Inout"
00272 };
00273
00274 char *interface_str[] = {
00275 "Generic_Unknown_Interface",
00276 "Generic_Function_Interface",
00277 "Generic_Subroutine_Interface",
00278 "Defined_Interface",
00279 "Defined_Assign_Interface",
00280 "Defined_Unary_Interface",
00281 "Defined_Binary_Interface",
00282 "Defined_Unary_Or_Binary_Interface"
00283 };
00284
00285 char *intrin_str[] = {
00286 "Unknown_Intrinsic",
00287 "Abs_Intrinsic",
00288 "Achar_Intrinsic",
00289 "Acos_Intrinsic",
00290 "Acosd_Intrinsic",
00291 "Add_And_Fetch_Intrinsic",
00292 "Adjustl_Intrinsic",
00293 "Adjustr_Intrinsic",
00294 "Aimag_Intrinsic",
00295 "Aint_Intrinsic",
00296 "All_Intrinsic",
00297 "Allocated_Intrinsic",
00298 "Alog_Intrinsic",
00299 "Alog10_Intrinsic",
00300 "Amax0_Intrinsic",
00301 "Amax1_Intrinsic",
00302 "Amin0_Intrinsic",
00303 "Amin1_Intrinsic",
00304 "Amod_Intrinsic",
00305 "And_Intrinsic",
00306 "And_And_Fetch_Intrinsic",
00307 "Anint_Intrinsic",
00308 "Any_Intrinsic",
00309 "Asin_Intrinsic",
00310 "Asind_Intrinsic",
00311 "Associated_Intrinsic",
00312 "Atan_Intrinsic",
00313 "Atan2_Intrinsic",
00314 "Atan2d_Intrinsic",
00315 "Atand_Intrinsic",
00316 "Bitest_Intrinsic",
00317 "Bit_Size_Intrinsic",
00318 "Bjtest_Intrinsic",
00319 "Bktest_Intrinsic",
00320 "Btest_Intrinsic",
00321 "Cabs_Intrinsic",
00322 "Ccos_Intrinsic",
00323 "Cdabs_Intrinsic",
00324 "Cdcos_Intrinsic",
00325 "Cdexp_Intrinsic",
00326 "Cdlog_Intrinsic",
00327 "Cdsin_Intrinsic",
00328 "Cdsqrt_Intrinsic",
00329 "Ceiling_Intrinsic",
00330 "Cexp_Intrinsic",
00331 "Char_Intrinsic",
00332 "Clear_Ieee_Exception_Intrinsic",
00333 "Cloc_Intrinsic",
00334 "Clock_Intrinsic",
00335 "Clog_Intrinsic",
00336 "Cmplx_Intrinsic",
00337 "Compare_And_Swap_Intrinsic",
00338 "Compl_Intrinsic",
00339 "Conjg_Intrinsic",
00340 "Cos_Intrinsic",
00341 "Cosd_Intrinsic",
00342 "Cosh_Intrinsic",
00343 "Cot_Intrinsic",
00344 "Count_Intrinsic",
00345 "Cputime_Intrinsic",
00346 "Cqabs_Intrinsic",
00347 "Cqcos_Intrinsic",
00348 "Cqexp_Intrinsic",
00349 "Cqlog_Intrinsic",
00350 "Cqsin_Intrinsic",
00351 "Cqsqrt_Intrinsic",
00352 "Cshift_Intrinsic",
00353 "Csin_Intrinsic",
00354 "Csmg_Intrinsic",
00355 "Csqrt_Intrinsic",
00356 "Cvmgm_Intrinsic",
00357 "Cvmgn_Intrinsic",
00358 "Cvmgp_Intrinsic",
00359 "Cvmgt_Intrinsic",
00360 "Cvmgz_Intrinsic",
00361 "C_Loc_Intrinsic",
00362 "Dabs_Intrinsic",
00363 "Dacos_Intrinsic",
00364 "Dacosd_Intrinsic",
00365 "Dasin_Intrinsic",
00366 "Dasind_Intrinsic",
00367 "Datan_Intrinsic",
00368 "Datan2_Intrinsic",
00369 "Datan2d_Intrinsic",
00370 "Datand_Intrinsic",
00371 "Date_Intrinsic",
00372 "Date_And_Time_Intrinsic",
00373 "Dble_Intrinsic",
00374 "Dbleq_Intrinsic",
00375 "Dcmplx_Intrinsic",
00376 "Dconjg_Intrinsic",
00377 "Dcos_Intrinsic",
00378 "Dcosd_Intrinsic",
00379 "Dcosh_Intrinsic",
00380 "Dcot_Intrinsic",
00381 "Ddim_Intrinsic",
00382 "Dexp_Intrinsic",
00383 "Dfloat_Intrinsic",
00384 "Dfloati_Intrinsic",
00385 "Dfloatj_Intrinsic",
00386 "Dfloatk_Intrinsic",
00387 "Digits_Intrinsic",
00388 "Dim_Intrinsic",
00389 "Dimag_Intrinsic",
00390 "Dint_Intrinsic",
00391 "Disable_Ieee_Interrupt_Intrinsic",
00392 "Dlog_Intrinsic",
00393 "Dlog10_Intrinsic",
00394 "Dmax1_Intrinsic",
00395 "Dmin1_Intrinsic",
00396 "Dmod_Intrinsic",
00397 "Dnint_Intrinsic",
00398 "Dot_Product_Intrinsic",
00399 "Dprod_Intrinsic",
00400 "Dreal_Intrinsic",
00401 "Dshiftl_Intrinsic",
00402 "Dshiftr_Intrinsic",
00403 "Dsign_Intrinsic",
00404 "Dsin_Intrinsic",
00405 "Dsind_Intrinsic",
00406 "Dsinh_Intrinsic",
00407 "DSM_Chunksize_Intrinsic",
00408 "DSM_Distribution_Block_Intrinsic",
00409 "DSM_Distribution_Cyclic_Intrinsic",
00410 "DSM_Distribution_Star_Intrinsic",
00411 "DSM_Isdistributed_Intrinsic",
00412 "DSM_Isreshaped_Intrinsic",
00413 "DSM_Numchunks_Intrinsic",
00414 "DSM_Numthreads_Intrinsic",
00415 "DSM_Rem_Chunksize_Intrinsic",
00416 "DSM_This_Chunksize_Intrinsic",
00417 "DSM_This_Startingindex_Intrinsic",
00418 "DSM_This_Threadnum_Intrinsic",
00419 "Dsqrt_Intrinsic",
00420 "Dtan_Intrinsic",
00421 "Dtand_Intrinsic",
00422 "Dtanh_Intrinsic",
00423 "Enable_Ieee_Interrupt_Intrinsic",
00424 "Eoshift_Intrinsic",
00425 "Epsilon_Intrinsic",
00426 "Eqv_Intrinsic",
00427 "Exit_Intrinsic",
00428 "Exp_Intrinsic",
00429 "Exponent_Intrinsic",
00430 "Fcd_Intrinsic",
00431 "Fetch_And_Add_Intrinsic",
00432 "Fetch_And_And_Intrinsic",
00433 "Fetch_And_Nand_Intrinsic",
00434 "Fetch_And_Or_Intrinsic",
00435 "Fetch_And_Sub_Intrinsic",
00436 "Fetch_And_Xor_Intrinsic",
00437 "Float_Intrinsic",
00438 "Floati_Intrinsic",
00439 "Floatj_Intrinsic",
00440 "Floatk_Intrinsic",
00441 "Floor_Intrinsic",
00442 "Fp_Class_Intrinsic",
00443 "Fraction_Intrinsic",
00444 "Free_Intrinsic",
00445 "Getpos_Intrinsic",
00446 "Get_Ieee_Exceptions_Intrinsic",
00447 "Get_Ieee_Interrupts_Intrinsic",
00448 "Get_Ieee_Rounding_Mode_Intrinsic",
00449 "Get_Ieee_Status_Intrinsic",
00450 "Huge_Intrinsic",
00451 "Iabs_Intrinsic",
00452 "Iachar_Intrinsic",
00453 "Iand_Intrinsic",
00454 "Ibchng_Intrinsic",
00455 "Ibclr_Intrinsic",
00456 "Ibits_Intrinsic",
00457 "Ibset_Intrinsic",
00458 "Ichar_Intrinsic",
00459 "Idate_Intrinsic",
00460 "Idim_Intrinsic",
00461 "Idint_Intrinsic",
00462 "Idnint_Intrinsic",
00463 "Ieee_Binary_Scale_Intrinsic",
00464 "Ieee_Class_Intrinsic",
00465 "Ieee_Copy_Sign_Intrinsic",
00466 "Ieee_Exponent_Intrinsic",
00467 "Ieee_Finite_Intrinsic",
00468 "Ieee_Int_Intrinsic",
00469 "Ieee_Is_Nan_Intrinsic",
00470 "Ieee_Next_After_Intrinsic",
00471 "Ieee_Real_Intrinsic",
00472 "Ieee_Remainder_Intrinsic",
00473 "Ieee_Unordered_Intrinsic",
00474 "Ieor_Intrinsic",
00475 "Ifix_Intrinsic",
00476 "Iiabs_Intrinsic",
00477 "Iiand_Intrinsic",
00478 "Iibclr_Intrinsic",
00479 "Iibits_Intrinsic",
00480 "Iibset_Intrinsic",
00481 "Iidim_Intrinsic",
00482 "Iidint_Intrinsic",
00483 "Iieor_Intrinsic",
00484 "Iifix_Intrinsic",
00485 "Iint_Intrinsic",
00486 "Iior_Intrinsic",
00487 "Iiqint_Intrinsic",
00488 "Iisha_Intrinsic",
00489 "Iishc_Intrinsic",
00490 "Iishft_Intrinsic",
00491 "Iishftc_Intrinsic",
00492 "Iishl_Intrinsic",
00493 "Iisign_Intrinsic",
00494 "Ilen_Intrinsic",
00495 "Imag_Intrinsic",
00496 "Imod_Intrinsic",
00497 "Imvbits_Intrinsic",
00498 "Index_Intrinsic",
00499 "Inint_Intrinsic",
00500 "Inot_Intrinsic",
00501 "Int_Intrinsic",
00502 "Int1_Intrinsic",
00503 "Int2_Intrinsic",
00504 "Int4_Intrinsic",
00505 "Int8_Intrinsic",
00506 "Int_Mult_Upper_Intrinsic",
00507 "Ior_Intrinsic",
00508 "Iqint_Intrinsic",
00509 "Iqnint_Intrinsic",
00510 "Irtc_Intrinsic",
00511 "Isha_Intrinsic",
00512 "Ishc_Intrinsic",
00513 "Ishft_Intrinsic",
00514 "Ishftc_Intrinsic",
00515 "Ishl_Intrinsic",
00516 "Isign_Intrinsic",
00517 "Isnan_Intrinsic",
00518 "Jdate_Intrinsic",
00519 "Jiabs_Intrinsic",
00520 "Jiand_Intrinsic",
00521 "Jibclr_Intrinsic",
00522 "Jibits_Intrinsic",
00523 "Jibset_Intrinsic",
00524 "Jidim_Intrinsic",
00525 "Jidint_Intrinsic",
00526 "Jieor_Intrinsic",
00527 "Jifix_Intrinsic",
00528 "Jint_Intrinsic",
00529 "Jior_Intrinsic",
00530 "Jiqint_Intrinsic",
00531 "Jisha_Intrinsic",
00532 "Jishc_Intrinsic",
00533 "Jishft_Intrinsic",
00534 "Jishftc_Intrinsic",
00535 "Jishl_Intrinsic",
00536 "Jisign_Intrinsic",
00537 "Jmod_Intrinsic",
00538 "Jmvbits_Intrinsic",
00539 "Jnint_Intrinsic",
00540 "Jnot_Intrinsic",
00541 "Kiabs_Intrinsic",
00542 "Kiand_Intrinsic",
00543 "Kibclr_Intrinsic",
00544 "Kibits_Intrinsic",
00545 "Kibset_Intrinsic",
00546 "Kidim_Intrinsic",
00547 "Kidint_Intrinsic",
00548 "Kieor_Intrinsic",
00549 "Kifix_Intrinsic",
00550 "Kind_Intrinsic",
00551 "Kint_Intrinsic",
00552 "Kior_Intrinsic",
00553 "Kiqint_Intrinsic",
00554 "Kisha_Intrinsic",
00555 "Kishc_Intrinsic",
00556 "Kishft_Intrinsic",
00557 "Kishftc_Intrinsic",
00558 "Kishl_Intrinsic",
00559 "Kisign_Intrinsic",
00560 "Kmod_Intrinsic",
00561 "Kmvbits_Intrinsic",
00562 "Knint_Intrinsic",
00563 "Knot_Intrinsic",
00564 "Lbound_Intrinsic",
00565 "Leadz_Intrinsic",
00566 "Len_Intrinsic",
00567 "Length_Intrinsic",
00568 "Len_Trim_Intrinsic",
00569 "Length_Intrinsic",
00570 "Lge_Intrinsic",
00571 "Lgt_Intrinsic",
00572 "Lle_Intrinsic",
00573 "Llt_Intrinsic",
00574 "Loc_Intrinsic",
00575 "Lock_Release_Intrinsic",
00576 "Lock_Test_And_Set_Intrinsic",
00577 "Log_Intrinsic",
00578 "Log10_Intrinsic",
00579 "Log2_Images_Intrinsic",
00580 "Logical_Intrinsic",
00581 "Long_Intrinsic",
00582 "Lshift_Intrinsic",
00583 "M@clr_Intrinsic",
00584 "M@ld_Intrinsic",
00585 "M@ldmx_Intrinsic",
00586 "M@mx_Intrinsic",
00587 "M@ul_Intrinsic",
00588 "Malloc_Intrinsic",
00589 "Mask_Intrinsic",
00590 "Matmul_Intrinsic",
00591 "Max_Intrinsic",
00592 "Max0_Intrinsic",
00593 "Max1_Intrinsic",
00594 "Maxexponent_Intrinsic",
00595 "Maxloc_Intrinsic",
00596 "Maxval_Intrinsic",
00597 "Memory_Barrier_Intrinsic",
00598 "Merge_Intrinsic",
00599 "Min_Intrinsic",
00600 "Min0_Intrinsic",
00601 "Min1_Intrinsic",
00602 "Minexponent_Intrinsic",
00603 "Minloc_Intrinsic",
00604 "Minval_Intrinsic",
00605 "Mod_Intrinsic",
00606 "Modulo_Intrinsic",
00607 "Mvbits_Intrinsic",
00608 "My_Pe_Intrinsic",
00609 "Nand_And_Fetch_Intrinsic",
00610 "Nearest_Intrinsic",
00611 "Neqv_Intrinsic",
00612 "Nint_Intrinsic",
00613 "Not_Intrinsic",
00614 "Null_Intrinsic",
00615 "Numarg_Intrinsic",
00616 "Num_Images_Intrinsic",
00617 "Omp_Get_Dynamic_Intrinsic",
00618 "Omp_Get_Max_Threads_Intrinsic",
00619 "Omp_Get_Nested_Intrinsic",
00620 "Omp_Get_Num_Procs_Intrinsic",
00621 "Omp_Get_Num_Threads_Intrinsic",
00622 "Omp_Get_Thread_Num_Intrinsic",
00623 "Omp_In_Parallel_Intrinsic",
00624 "Omp_Set_Lock_Intrinsic",
00625 "Omp_Test_Lock_Intrinsic",
00626 "Omp_Unset_Lock_Intrinsic",
00627 "Or_Intrinsic",
00628 "Or_And_Fetch_Intrinsic",
00629 "Pack_Intrinsic",
00630 "Popcnt_Intrinsic",
00631 "Poppar_Intrinsic",
00632 "Precision_Intrinsic",
00633 "Present_Intrinsic",
00634 "Product_Intrinsic",
00635 "Qabs_Intrinsic",
00636 "Qacos_Intrinsic",
00637 "Qacosd_Intrinsic",
00638 "Qasin_Intrinsic",
00639 "Qasind_Intrinsic",
00640 "Qatan_Intrinsic",
00641 "Qatan2_Intrinsic",
00642 "Qatan2d_Intrinsic",
00643 "Qatand_Intrinsic",
00644 "Qcmplx_Intrinsic",
00645 "Qcos_Intrinsic",
00646 "Qcosd_Intrinsic",
00647 "Qcosh_Intrinsic",
00648 "Qcot_Intrinsic",
00649 "Qdim_Intrinsic",
00650 "Qexp_Intrinsic",
00651 "Qext_Intrinsic",
00652 "Qfloat_Intrinsic",
00653 "Qfloati_Intrinsic",
00654 "Qfloatj_Intrinsic",
00655 "Qfloatk_Intrinsic",
00656 "Qimag_Intrinsic",
00657 "Qint_Intrinsic",
00658 "Qlog_Intrinsic",
00659 "Qlog10_Intrinsic",
00660 "Qmod_Intrinsic",
00661 "Qnint_Intrinsic",
00662 "Qprod_Intrinsic",
00663 "Qreal_Intrinsic",
00664 "Qsign_Intrinsic",
00665 "Qsin_Intrinsic",
00666 "Qsind_Intrinsic",
00667 "Qsinh_Intrinsic",
00668 "Qsqrt_Intrinsic",
00669 "Qtan_Intrinsic",
00670 "Qtand_Intrinsic",
00671 "Qtanh_Intrinsic",
00672 "Radix_Intrinsic",
00673 "Ran_Intrinsic",
00674 "Random_Number_Intrinsic",
00675 "Random_Seed_Intrinsic",
00676 "Randu_Intrinsic",
00677 "Ranf_Intrinsic",
00678 "Range_Intrinsic",
00679 "Ranget_Intrinsic",
00680 "Ranset_Intrinsic",
00681 "Read@sm_Intrinsic",
00682 "Real_Intrinsic",
00683 "Remote_Write_Barrier_Intrinsic",
00684 "Rem_Images_Intrinsic",
00685 "Repeat_Intrinsic",
00686 "Reshape_Intrinsic",
00687 "Rrspacing_Intrinsic",
00688 "Rshift_Intrinsic",
00689 "Rtc_Intrinsic",
00690 "Scale_Intrinsic",
00691 "Scan_Intrinsic",
00692 "SIK_Intrinsic",
00693 "SRK_Intrinsic",
00694 "Set_Exponent_Intrinsic",
00695 "Set_Ieee_Exception_Intrinsic",
00696 "Set_Ieee_Exceptions_Intrinsic",
00697 "Set_Ieee_Interrupts_Intrinsic",
00698 "Set_Ieee_Rounding_Mode_Intrinsic",
00699 "Set_Ieee_Status_Intrinsic",
00700 "Shape_Intrinsic",
00701 "Shift_Intrinsic",
00702 "Shifta_Intrinsic",
00703 "Shiftl_Intrinsic",
00704 "Shiftr_Intrinsic",
00705 "Short_Intrinsic",
00706 "Sign_Intrinsic",
00707 "Sin_Intrinsic",
00708 "Sind_Intrinsic",
00709 "Sinh_Intrinsic",
00710 "Size_Intrinsic",
00711 "Sizeof_Intrinsic",
00712 "Sngl_Intrinsic",
00713 "Snglq_Intrinsic",
00714 "Spacing_Intrinsic",
00715 "Spread_Intrinsic",
00716 "Sqrt_Intrinsic",
00717 "Sub_And_Fetch_Intrinsic",
00718 "Sum_Intrinsic",
00719 "Synchronize_Intrinsic",
00720 "Sync_Images_Intrinsic",
00721 "System_Clock_Intrinsic",
00722 "Tan_Intrinsic",
00723 "Tand_Intrinsic",
00724 "Tanh_Intrinsic",
00725 "Test_Ieee_Exception_Intrinsic",
00726 "Test_Ieee_Interrupt_Intrinsic",
00727 "This_Image_Intrinsic",
00728 "Time_Intrinsic",
00729 "Tiny_Intrinsic",
00730 "Transfer_Intrinsic",
00731 "Transpose_Intrinsic",
00732 "Trim_Intrinsic",
00733 "Ubound_Intrinsic",
00734 "Unit_Intrinsic",
00735 "Unpack_Intrinsic",
00736 "Verify_Intrinsic",
00737 "Write_Memory_Barrier_Intrinsic",
00738 "Xor_Intrinsic",
00739 "Xor_And_Fetch_Intrinsic"
00740 };
00741
00742 char *msg_lvl_str[] = {
00743 "Comment_Lvl",
00744 "Note_Lvl",
00745 "Caution_Lvl",
00746 "Warning_Lvl",
00747 "Error_Lvl"
00748 };
00749
00750 char *obj_class_str[] = {
00751 "Data_Obj",
00752 "Pgm_Unit",
00753 "Label",
00754 "Derived_Type",
00755 "Interface",
00756 "Namelist_Grp",
00757 "Stmt_Func"
00758 };
00759
00760 char *operator_str[] = {
00761 "Null_Opr",
00762 "Defined_Un_Opr",
00763 "Alloc_Opr",
00764 "SSD_Alloc_Opr",
00765 "Cvrt_Opr",
00766 "Dealloc_Opr",
00767 "Power_Opr",
00768 "Mult_Opr",
00769 "Div_Opr",
00770 "Uplus_Opr",
00771 "Uminus_Opr",
00772 "Plus_Opr",
00773 "Minus_Opr",
00774 "Concat_Opr",
00775 "Eq_Opr",
00776 "Ne_Opr",
00777 "Lt_Opr",
00778 "Le_Opr",
00779 "Gt_Opr",
00780 "Ge_Opr",
00781 "Not_Opr",
00782 "Bnot_Opr",
00783 "And_Opr",
00784 "Or_Opr",
00785 "Bor_Opr",
00786 "Eqv_Opr",
00787 "Beqv_Opr",
00788 "Neqv_Opr",
00789 "Bneqv_Opr",
00790 "Abs_Opr",
00791 "Cos_Opr",
00792 "Sin_Opr",
00793 "Log_E_Opr",
00794 "Log_10_Opr",
00795 "Tan_Opr",
00796 "Tanh_Opr",
00797 "Sinh_Opr",
00798 "Acos_Opr",
00799 "Asin_Opr",
00800 "Atan_Opr",
00801 "Cosh_Opr",
00802 "Atan2_Opr",
00803 "Aimag_Opr",
00804 "Sqrt_Opr",
00805 "Cot_Opr",
00806 "Exp_Opr",
00807 "Int_Opr",
00808 "Band_Opr",
00809 "Mod_Opr",
00810 "Anint_Opr",
00811 "Nint_Opr",
00812 "Sign_Opr",
00813 "Modulo_Opr",
00814 "Shift_Opr",
00815 "Shiftl_Opr",
00816 "Shiftr_Opr",
00817 "Leadz_Opr",
00818 "Popcnt_Opr",
00819 "Poppar_Opr",
00820 "Aint_Opr",
00821 "Dim_Opr",
00822 "Ranget_Opr",
00823 "Ranset_Opr",
00824 "Ranf_Opr",
00825 "Real_Opr",
00826 "Dble_Opr",
00827 "Mask_Opr",
00828 "Conjg_Opr",
00829 "Dprod_Opr",
00830 "I24mult_Opr",
00831 "Length_Opr",
00832 "Getpos_Opr",
00833 "Unit_Opr",
00834 "Cmplx_Opr",
00835 "Ichar_Opr",
00836 "Char_Opr",
00837 "Lint_Opr",
00838 "Index_Opr",
00839 "Lge_Opr",
00840 "Lgt_Opr",
00841 "Lle_Opr",
00842 "Llt_Opr",
00843 "Fcd_Opr",
00844 "Numarg_Opr",
00845 "Rtc_Opr",
00846 "Cvmgp_Opr",
00847 "Cvmgm_Opr",
00848 "Cvmgz_Opr",
00849 "Cvmgn_Opr",
00850 "Cvmgt_Opr",
00851 "Csmg_Opr",
00852 "Adjustl_Opr",
00853 "Adjustr_Opr",
00854 "Ceiling_Opr",
00855 "Exponent_Opr",
00856 "Floor_Opr",
00857 "Fraction_Opr",
00858 "Spacing_Opr",
00859 "Logical_Opr",
00860 "Nearest_Opr",
00861 "Rrspacing_Opr",
00862 "Scale_Opr",
00863 "Scan_Opr",
00864 "Set_Exponent_Opr",
00865 "Verify_Opr",
00866 "Len_Trim_Opr",
00867 "Dshiftl_Opr",
00868 "Dshiftr_Opr",
00869 "Mmx_Opr",
00870 "Mldmx_Opr",
00871 "Mld_Opr",
00872 "Mul_Opr",
00873 "Mcbl_Opr",
00874 "Cshift_Opr",
00875 "Dot_Product_Opr",
00876 "Matmul_Opr",
00877 "Spread_Opr",
00878 "Transpose_Opr",
00879 "All_Opr",
00880 "Any_Opr",
00881 "Count_Opr",
00882 "Product_Opr",
00883 "Sum_Opr",
00884 "Eoshift_Opr",
00885 "Maxval_Opr",
00886 "Minval_Opr",
00887 "Maxloc_Opr",
00888 "Minloc_Opr",
00889 "Reshape_Opr",
00890 "SRK_Opr",
00891 "SIK_Opr",
00892 "Repeat_Opr",
00893 "Trim_Opr",
00894 "Transfer_Opr",
00895 "Defined_Bin_Opr",
00896 "Asg_Opr",
00897 "Call_Opr",
00898 "Alt_Return_Opr",
00899 "Case_Opr",
00900 "Allocate_Opr",
00901 "Deallocate_Opr",
00902 "End_Opr",
00903 "Entry_Opr",
00904 "Nullify_Opr",
00905 "Pause_Opr",
00906 "Ptr_Asg_Opr",
00907 "Flat_Array_Asg_Opr",
00908 "Return_Opr",
00909 "Select_Opr",
00910 "Stmt_Func_Call_Opr",
00911 "Stop_Opr",
00912 "Max_Opr",
00913 "Min_Opr",
00914 "Read_Formatted_Opr",
00915 "Read_Unformatted_Opr",
00916 "Read_Namelist_Opr",
00917 "Write_Formatted_Opr",
00918 "Write_Unformatted_Opr",
00919 "Write_Namelist_Opr",
00920 "Inquire_Iolength_Opr",
00921 "Dv_Whole_Copy_Opr",
00922 "Dv_Whole_Def_Opr",
00923 "Dv_Def_Asg_Opr",
00924 "Dv_Deref_Opr",
00925 "Dv_Access_Base_Addr",
00926 "Dv_Set_Base_Addr",
00927 "Dv_Access_El_Len",
00928 "Dv_Set_El_Len",
00929 "Dv_Access_Assoc",
00930 "Dv_Set_Assoc",
00931 "Dv_Access_Ptr_Alloc",
00932 "Dv_Set_Ptr_Alloc",
00933 "Dv_Access_P_Or_A",
00934 "Dv_Set_P_Or_A",
00935 "Dv_Access_A_Contig",
00936 "Dv_Set_A_Contig",
00937 "Dv_Access_N_Dim",
00938 "Dv_Set_N_Dim",
00939 "Dv_Access_Typ_Code",
00940 "Dv_Set_Typ_Code",
00941 "Dv_Access_Orig_Base",
00942 "Dv_Set_Orig_Base",
00943 "Dv_Access_Orig_Size",
00944 "Dv_Set_Orig_Size",
00945 "Dv_Access_Low_Bound",
00946 "Dv_Set_Low_Bound",
00947 "Dv_Access_Extent",
00948 "Dv_Set_Extent",
00949 "Dv_Access_Stride_Mult",
00950 "Dv_Set_Stride_Mult",
00951
00952 "Br_Aif_Opr",
00953 "Br_Asg_Opr",
00954 "Br_Index_Opr",
00955 "Br_True_Opr",
00956 "Br_Uncond_Opr",
00957 "Case_Range_Opr",
00958 "Implied_Do_Opr",
00959 "Kwd_Opr",
00960 "Percent_Val_Opr",
00961 "Loc_Opr",
00962 "Aloc_Opr",
00963 "Const_Tmp_Loc_Opr",
00964 "Present_Opr",
00965 "Argchck_Present_Opr",
00966 "Argchck_Loc_Opr",
00967 "Len_Opr",
00968 "Clen_Opr",
00969 "Paren_Opr",
00970 "Struct_Opr",
00971 "Struct_Construct_Opr",
00972 "Array_Construct_Opr",
00973 "Constant_Struct_Construct_Opr",
00974 "Constant_Array_Construct_Opr",
00975 "Subscript_Opr",
00976 "Whole_Subscript_Opr",
00977 "Section_Subscript_Opr",
00978 "Alloc_Obj_Opr",
00979 "Dealloc_Obj_Opr",
00980 "Substring_Opr",
00981 "Whole_Substring_Opr",
00982 "Triplet_Opr",
00983 "Label_Opr",
00984 "Loop_Info_Opr",
00985 "Loop_End_Opr",
00986 "Init_Opr",
00987 "Init_Reloc_Opr",
00988 "Use_Opr",
00989 "Where_Opr",
00990 "Real_Div_To_Int_Opr",
00991 "Readsm_Opr",
00992 "Memory_Barrier_Opr",
00993 "Remote_Write_Barrier_Opr",
00994 "Write_Memory_Barrier_Opr",
00995
00996 "Suppress_Opr",
00997
00998 "Align_Cdir_Opr",
00999 "Bl_Cdir_Opr",
01000 "Bounds_Cdir_Opr",
01001 "Cachealign_Cdir_Opr",
01002 "Inline_Cdir_Opr",
01003 "Ivdep_Cdir_Opr",
01004 "Nextscalar_Cdir_Opr",
01005 "Nobl_Cdir_Opr",
01006 "Nobounds_Cdir_Opr",
01007 "Noinline_Cdir_Opr",
01008 "Norecurrence_Cdir_Opr",
01009 "Nosplit_Cdir_Opr",
01010 "Notask_Cdir_Opr",
01011 "Nounroll_Cdir_Opr",
01012 "Novector_Cdir_Opr",
01013 "Novsearch_Cdir_Opr",
01014 "Prefertask_Cdir_Opr",
01015 "Prefervector_Cdir_Opr",
01016 "Recurrence_Cdir_Opr",
01017 "Shortloop_Cdir_Opr",
01018 "Shortloop128_Cdir_Opr",
01019 "Split_Cdir_Opr",
01020 "Task_Cdir_Opr",
01021 "Unroll_Cdir_Opr",
01022 "Vector_Cdir_Opr",
01023 "Vsearch_Cdir_Opr",
01024
01025 "Case_Cmic_Opr",
01026 "Endcase_Cmic_Opr",
01027 "Cncall_Cmic_Opr",
01028 "Continue_Cmic_Opr",
01029 "Doall_Cmic_Opr",
01030 "Doparallel_Cmic_Opr",
01031 "Enddo_Cmic_Opr",
01032 "Guard_Cmic_Opr",
01033 "Endguard_Cmic_Opr",
01034 "REMOVED_Opr",
01035 "Numcpus_Cmic_Opr",
01036 "Parallel_Cmic_Opr",
01037 "Endparallel_Cmic_Opr",
01038 "Permutation_Cmic_Opr",
01039 "Taskcommon_Cmic_Opr",
01040 "Wait_Cmic_Opr",
01041 "Send_Cmic_Opr",
01042 "My_Pe_Opr",
01043 "Ieee_Unordered_Opr",
01044 "Ieee_Next_After_Opr",
01045 "Ieee_Remainder_Opr",
01046 "Ieee_Exponent_Opr",
01047 "Ieee_Copy_Sign_Opr",
01048 "Ieee_Int_Opr",
01049 "Ieee_Real_Opr",
01050 "Ieee_Finite_Opr",
01051 "Ieee_Is_Nan_Opr",
01052 "Ieee_Class_Opr",
01053 "Ieee_Binary_Scale_Opr",
01054 "Int_Mult_Upper_Opr",
01055 "Get_Ieee_Status_Opr",
01056 "Set_Ieee_Status_Opr",
01057 "Get_Ieee_Exceptions_Opr",
01058 "Set_Ieee_Exceptions_Opr",
01059 "Get_Ieee_Interrupts_Opr",
01060 "Set_Ieee_Interrupts_Opr",
01061 "Get_Ieee_Rounding_Mode_Opr",
01062 "Set_Ieee_Rounding_Mode_Opr",
01063 "Test_Ieee_Interrupt_Opr",
01064 "Test_Ieee_Exception_Opr",
01065 "Set_Ieee_Exception_Opr",
01066 "Clear_Ieee_Exception_Opr",
01067 "Enable_Ieee_Interrupt_Opr",
01068 "Disable_Ieee_Interrupt_Opr",
01069 "Cvrt_Unsigned_Opr",
01070 "SSD_Dealloc_Opr",
01071
01072 "Symbolic_Mult_Opr",
01073 "Symbolic_Div_Opr",
01074 "Symbolic_Uplus_Opr",
01075 "Symbolic_Uminus_Opr",
01076 "Symbolic_Plus_Opr",
01077 "Symbolic_Minus_Opr",
01078 "Symbolic_Max_Opr",
01079
01080 "Rep_Count_Opr",
01081 "Lg_Opr",
01082 "Shifta_Opr",
01083
01084 "Symbolic_Mod_Opr",
01085 "Symbolic_Shiftr_Opr",
01086 "Symbolic_Shiftl_Opr",
01087 "Symmetric_Alloc_Opr",
01088 "Symmetric_Dealloc_Opr",
01089
01090 "Copy_In_Opr",
01091 "Copy_Out_Opr",
01092
01093 "Pack_Opr",
01094 "Unpack_Opr",
01095
01096 "Local_Pe_Dim_Opr",
01097
01098 "Start_Io_Opr",
01099 "End_Io_Opr",
01100
01101 "Dot_Product_Logical_Opr",
01102
01103 "Symbolic_Min_Opr",
01104
01105 "Nopattern_Cdir_Opr",
01106 "Pattern_Cdir_Opr",
01107 "Mark_Cdir_Opr",
01108 "Nomark_Cdir_Opr",
01109
01110 "Backspace_Opr",
01111 "Buffer_In_Opr",
01112 "Buffer_Out_Opr",
01113 "Close_Opr",
01114 "Endfile_Opr",
01115 "Inquire_Opr",
01116 "Open_Opr",
01117 "Rewind_Opr",
01118 "Mvbits_Opr",
01119 "Ishftc_Opr",
01120 "Ibits_Opr",
01121
01122 "False_Parm_Opr",
01123
01124 "Aggressiveinnerloopfission_Opr",
01125 "Blockable_Dir_Opr",
01126 "Blockingsize_Dir_Opr",
01127 "Fission_Star_Opr",
01128 "Fissionable_Star_Opr",
01129 "Fuse_Star_Opr",
01130 "Fusable_Star_Opr",
01131 "Interchange_Dir_Opr",
01132 "Nointerchange_Dir_Opr",
01133 "Nofission_Star_Opr",
01134 "Nofusion_Star_Opr",
01135 "Noblocking_Dir_Opr",
01136 "Opaque_Star_Opr",
01137 "Purpleconditional_Star_Opr",
01138 "Purpleunconditional_Star_Opr",
01139
01140 "Redistribute_Dollar_Opr",
01141 "Doacross_Dollar_Opr",
01142 "Pdo_Par_Opr",
01143 "Parallel_Do_Par_Opr",
01144 "Parallel_Par_Opr",
01145 "Psection_Par_Opr",
01146 "Singleprocess_Par_Opr",
01147 "Section_Par_Opr",
01148 "End_Pdo_Par_Opr",
01149 "End_Parallel_Par_Opr",
01150 "Barrier_Par_Opr",
01151 "Critical_Section_Par_Opr",
01152 "End_Critical_Section_Par_Opr",
01153 "End_Psection_Par_Opr",
01154 "End_Singleprocess_Par_Opr",
01155
01156 "Unroll_Star_Opr",
01157 "Assert_Star_Opr",
01158 "Regionbegin_Star_Opr",
01159 "Regionend_Star_Opr",
01160 "Section_Gp_Star_Opr",
01161 "Section_Nongp_Star_Opr",
01162
01163 "Prefetch_Star_Opr",
01164 "Prefetch_Manual_Star_Opr",
01165 "Prefetch_Ref_Disable_Star_Opr",
01166 "Prefetch_Ref_Star_Opr",
01167
01168 "Align_Symbol_Star_Opr",
01169 "Fill_Symbol_Star_Opr",
01170
01171 "Inline_Here_Star_Opr",
01172 "Noinline_Here_Star_Opr",
01173 "End_Inline_Here_Star_Opr",
01174
01175 "Dynamic_Dollar_Opr",
01176 "Page_Place_Dollar_Opr",
01177 "Copyin_Dollar_Opr",
01178
01179 "User_Code_Start_Opr",
01180
01181 "Fetch_And_Add_Opr",
01182 "Fetch_And_Sub_Opr",
01183 "Fetch_And_Or_Opr",
01184 "Fetch_And_And_Opr",
01185 "Fetch_And_Xor_Opr",
01186 "Fetch_And_Nand_Opr",
01187
01188 "Add_And_Fetch_Opr",
01189 "Sub_And_Fetch_Opr",
01190 "Or_And_Fetch_Opr",
01191 "And_And_Fetch_Opr",
01192 "Xor_And_Fetch_Opr",
01193 "Nand_And_Fetch_Opr",
01194
01195 "Synchronize_Opr",
01196 "Lock_Release_Opr",
01197 "Lock_Test_And_Set_Opr",
01198 "Compare_And_Swap_Opr",
01199
01200 "Integer_Cdir_Opr",
01201
01202 "Malloc_Opr",
01203 "Free_Opr",
01204
01205 "Concurrent_Cdir_Opr",
01206
01207 "Inline_Routine_Star_Opr",
01208 "Noinline_Routine_Star_Opr",
01209 "Inline_Global_Star_Opr",
01210 "Noinline_Global_Star_Opr",
01211
01212 "Atomic_Open_Mp_Opr",
01213 "Barrier_Open_Mp_Opr",
01214 "Critical_Open_Mp_Opr",
01215 "Do_Open_Mp_Opr",
01216 "Endcritical_Open_Mp_Opr",
01217 "Enddo_Open_Mp_Opr",
01218 "Endparallel_Open_Mp_Opr",
01219 "Endparalleldo_Open_Mp_Opr",
01220 "Endparallelsections_Open_Mp_Opr",
01221 "Endmaster_Open_Mp_Opr",
01222 "Endordered_Open_Mp_Opr",
01223 "Endsections_Open_Mp_Opr",
01224 "Endsingle_Open_Mp_Opr",
01225 "Flush_Open_Mp_Opr",
01226 "Master_Open_Mp_Opr",
01227 "Ordered_Open_Mp_Opr",
01228 "Parallel_Open_Mp_Opr",
01229 "Paralleldo_Open_Mp_Opr",
01230 "Parallelsections_Open_Mp_Opr",
01231 "Section_Open_Mp_Opr",
01232 "Sections_Open_Mp_Opr",
01233 "Single_Open_Mp_Opr",
01234
01235 "Concurrentize_Star_Opr",
01236 "Noconcurrentize_Star_Opr",
01237
01238 "Omp_Set_Lock_Opr",
01239 "Omp_Unset_Lock_Opr",
01240 "Omp_Test_Lock_Opr",
01241
01242 "Omp_Get_Num_Threads_Opr",
01243 "Omp_Get_Max_Threads_Opr",
01244 "Omp_Get_Thread_Num_Opr",
01245 "Omp_Get_Num_Procs_Opr",
01246 "Omp_In_Parallel_Opr",
01247 "Omp_Get_Dynamic_Opr",
01248 "Omp_Get_Nested_Opr",
01249
01250 "Cache_Bypass_Cdir_Opr",
01251
01252 "Forall_Opr",
01253 "If_Opr",
01254 "Else_Opr",
01255 "Endif_Opr",
01256
01257 "Flush_Star_Opr",
01258
01259 "Stmt_Expansion_Opr",
01260
01261 "Cosd_Opr",
01262 "Sind_Opr",
01263 "Tand_Opr",
01264 "Acosd_Opr",
01265 "Asind_Opr",
01266 "Atand_Opr",
01267 "Atan2d_Opr",
01268
01269 "Stream_Dir_Opr",
01270 "UNUSED1_Opr",
01271 "UNUSED2_Opr",
01272 "UNUSED3_Opr",
01273 "UNUSED4_Opr",
01274 "UNUSED5_Opr",
01275 "Nostream_Dir_Opr",
01276
01277 "Null_Intrinsic_Opr",
01278
01279 "Io_Item_Type_Code_Opr",
01280
01281 "Where_Cnstrct_Opr",
01282 "Else_Where_Mask_Opr",
01283 "Else_Where_Opr",
01284
01285 "Preferstream_Opr",
01286
01287 "Copyin_Bound_Opr",
01288 "Preferstream_Nocinv_Opr",
01289
01290
01291 "Endparallelworkshare_Open_Mp_Opr",
01292 "Endworkshare_Open_Mp_Opr",
01293 "Parallelworkshare_Open_Mp_Opr",
01294 "Workshare_Open_Mp_Opr",
01295
01296
01297 "XXX_OpenAD_Opr",
01298 "Dependent_OpenAD_Opr",
01299 "Independent_OpenAD_Opr",
01300 "Simple_OpenAD_Opr",
01301 "EndSimple_OpenAD_Opr",
01302
01303 "The_Last_Opr"
01304 };
01305
01306 char *reference_str[] = {
01307 "Not_Referenced",
01308 "Char_Rslt_Bound_Ref",
01309 "Dcl_Bound_Ref",
01310 "Referenced"
01311 };
01312
01313 char *sb_blk_type_str[] = {
01314 "Unknown",
01315 "Static",
01316 "Stack",
01317 "Formal",
01318 "Common",
01319 "Extern",
01320 "Exported",
01321 "Task_Common",
01322 "Soft_External",
01323 "Global_Breg",
01324 "Global_Treg",
01325 "Static_Named",
01326 "Based",
01327 "Equivalenced",
01328 "Restricted",
01329 "Distributed",
01330 "LM_Static",
01331 "LM_Common",
01332 "LM_Extern",
01333 "Auxiliary",
01334 "Static_Local",
01335 "Non_Local_Stack",
01336 "Non_Local_Formal",
01337 "Hosted_Stack",
01338 "Threadprivate",
01339 "Coment",
01340 "Module"
01341 };
01342
01343 char *search_str[] = {
01344 "Find_None",
01345 "Find_EOS",
01346 "Find_Lparen",
01347 "Find_Rparen",
01348 "Find_Matching_Rparen",
01349 "Find_Comma",
01350 "Find_Comma_Slash",
01351 "Find_Comma_Rparen",
01352 "Find_Expr_End"
01353 };
01354
01355 char *src_form_str[] = {
01356 "Fixed",
01357 "Free"
01358 };
01359
01360
01361
01362 char *token_value_str[Tok_LAST+1] = {
01363 "Tok_Label",
01364 "Tok_Id",
01365 "Tok_Kwd_Allocatable",
01366 "Tok_Kwd_Allocate",
01367 "Tok_Kwd_Assign",
01368 "Tok_Kwd_Assignment",
01369 "Tok_Kwd_Automatic",
01370 "Tok_Kwd_Backspace",
01371 "Tok_Kwd_Block",
01372 "Tok_Kwd_Buffer",
01373 "Tok_Kwd_Byte",
01374 "Tok_Kwd_Call",
01375 "Tok_Kwd_Case",
01376 "Tok_Kwd_Character",
01377 "Tok_Kwd_Close",
01378 "Tok_Kwd_Common",
01379 "Tok_Kwd_Complex",
01380 "Tok_Kwd_Contains",
01381 "Tok_Kwd_Continue",
01382 "Tok_Kwd_Cycle",
01383 "Tok_Kwd_Data",
01384 "Tok_Kwd_Deallocate",
01385 "Tok_Kwd_Decode",
01386 "Tok_Kwd_Default",
01387 "Tok_Kwd_Dimension",
01388 "Tok_Kwd_Dir",
01389 "Tok_Kwd_Do",
01390 "Tok_Kwd_Double",
01391 "Tok_Kwd_Elemental",
01392 "Tok_Kwd_Else",
01393 "Tok_Kwd_Encode",
01394 "Tok_Kwd_End",
01395 "Tok_Kwd_Entry",
01396 "Tok_Kwd_Equivalence",
01397 "Tok_Kwd_Exit",
01398 "Tok_Kwd_External",
01399 "Tok_Kwd_File",
01400 "Tok_Kwd_Forall",
01401 "Tok_Kwd_Format",
01402 "Tok_Kwd_Function",
01403 "Tok_Kwd_Go",
01404 "Tok_Kwd_If",
01405 "Tok_Kwd_Implicit",
01406 "Tok_Kwd_In",
01407 "Tok_Kwd_Inquire",
01408 "Tok_Kwd_Integer",
01409 "Tok_Kwd_Intent",
01410 "Tok_Kwd_Interface",
01411 "Tok_Kwd_Intrinsic",
01412 "Tok_Kwd_Kind",
01413 "Tok_Kwd_Len",
01414 "Tok_Kwd_Logical",
01415 "Tok_Kwd_Module",
01416 "Tok_Kwd_Namelist",
01417 "Tok_Kwd_None",
01418 "Tok_Kwd_Nullify",
01419 "Tok_Kwd_Only",
01420 "Tok_Kwd_Open",
01421 "Tok_Kwd_Operator",
01422 "Tok_Kwd_Optional",
01423 "Tok_Kwd_Out",
01424 "Tok_Kwd_Parameter",
01425 "Tok_Kwd_Pause",
01426 "Tok_Kwd_Pointer",
01427 "Tok_Kwd_Precision",
01428 "Tok_Kwd_Print",
01429 "Tok_Kwd_Private",
01430 "Tok_Kwd_Procedure",
01431 "Tok_Kwd_Program",
01432 "Tok_Kwd_Public",
01433 "Tok_Kwd_Pure",
01434 "Tok_Kwd_Read",
01435 "Tok_Kwd_Real",
01436 "Tok_Kwd_Recursive",
01437 "Tok_Kwd_Result",
01438 "Tok_Kwd_Return",
01439 "Tok_Kwd_Rewind",
01440 "Tok_Kwd_Save",
01441 "Tok_Kwd_Select",
01442 "Tok_Kwd_Sequence",
01443 "Tok_Kwd_Span",
01444 "Tok_Kwd_Stat",
01445 "Tok_Kwd_Static",
01446 "Tok_Kwd_Stop",
01447 "Tok_Kwd_Subroutine",
01448 "Tok_Kwd_Target",
01449 "Tok_Kwd_Task",
01450 "Tok_Kwd_Then",
01451 "Tok_Kwd_To",
01452 "Tok_Kwd_Type",
01453 "Tok_Kwd_Use",
01454 "Tok_Kwd_Undefined",
01455 "Tok_Kwd_Volatile",
01456 "Tok_Kwd_Where",
01457 "Tok_Kwd_While",
01458 "Tok_Kwd_Write",
01459 "Tok_Dir_Start",
01460 "Tok_Dir_Align",
01461 "Tok_Dir_Atomicupdate",
01462 "Tok_Dir_Autoscope",
01463 "Tok_Dir_Auxiliary",
01464 "Tok_Dir_Barrier",
01465 "Tok_Dir_Bl",
01466 "Tok_Dir_Block",
01467 "Tok_Dir_Blockable",
01468 "Tok_Dir_Blockingsize",
01469 "Tok_Dir_Bounds",
01470 "Tok_Dir_Cache_Align",
01471 "Tok_Dir_Cache_Bypass",
01472 "Tok_Dir_Cache_Noalloc",
01473 "Tok_Dir_Chunksize",
01474 "Tok_Dir_Code",
01475 "Tok_Dir_Common",
01476 "Tok_Dir_Concurrent",
01477 "Tok_Dir_Control",
01478 "Tok_Dir_Critical",
01479 "Tok_Dir_Doshared",
01480 "Tok_Dir_Dynamic",
01481 "Tok_Dir_Eject",
01482 "Tok_Dir_Endcritical",
01483 "Tok_Dir_Endmaster",
01484 "Tok_Dir_Fixed",
01485 "Tok_Dir_Flow",
01486 "Tok_Dir_Free",
01487 "Tok_Dir_Geometry",
01488 "Tok_Dir_Guided",
01489 "Tok_Dir_Id",
01490 "Tok_Dir_If",
01491 "Tok_Dir_Inline",
01492 "Tok_Dir_Inline_Always",
01493 "Tok_Dir_Inline_Never",
01494 "Tok_Dir_Integer",
01495 "Tok_Dir_Interchange",
01496 "Tok_Dir_Ivdep",
01497 "Tok_Dir_List",
01498 "Tok_Dir_Mark",
01499 "Tok_Dir_Master",
01500 "Tok_Dir_Maxcpus",
01501 "Tok_Dir_Modinline",
01502 "Tok_Dir_Name",
01503 "Tok_Dir_Ncpus_Chunks",
01504 "Tok_Dir_Nextscalar",
01505 "Tok_Dir_Nobarrier",
01506 "Tok_Dir_Nobl",
01507 "Tok_Dir_Noblocking",
01508 "Tok_Dir_Nobounds",
01509 "Tok_Dir_Nocinv",
01510 "Tok_Dir_Nocode",
01511 "Tok_Dir_Noflow",
01512 "Tok_Dir_Noinline",
01513 "Tok_Dir_Nointerchange",
01514 "Tok_Dir_Nolist",
01515 "Tok_Dir_Nomark",
01516 "Tok_Dir_Nomodinline",
01517 "Tok_Dir_Nopattern",
01518 "Tok_Dir_Norecurrence",
01519 "Tok_Dir_Nosideeffects",
01520 "Tok_Dir_Nostream",
01521 "Tok_Dir_Notask",
01522 "Tok_Dir_Nounroll",
01523 "Tok_Dir_Novector",
01524 "Tok_Dir_Novsearch",
01525 "Tok_Dir_Numchunks",
01526 "Tok_Dir_Parallel_Only",
01527 "Tok_Dir_Pattern",
01528 "Tok_Dir_Pe_Private",
01529 "Tok_Dir_Pe_Resident",
01530 "Tok_Dir_Preferstream",
01531 "Tok_Dir_Prefertask",
01532 "Tok_Dir_Prefervector",
01533 "Tok_Dir_Private",
01534 "Tok_Dir_Recurrence",
01535 "Tok_Dir_Regfile",
01536 "Tok_Dir_Savelast",
01537 "Tok_Dir_Semextern",
01538 "Tok_Dir_Serial_Only",
01539 "Tok_Dir_Shared",
01540 "Tok_Dir_Shortloop",
01541 "Tok_Dir_Shortsequence",
01542 "Tok_Dir_Single",
01543 "Tok_Dir_Stack",
01544 "Tok_Dir_Static",
01545 "Tok_Dir_Stream",
01546 "Tok_Dir_Suppress",
01547 "Tok_Dir_Symmetric",
01548 "Tok_Dir_System_Module",
01549 "Tok_Dir_Task",
01550 "Tok_Dir_Taskcommon",
01551 "Tok_Dir_Taskhead",
01552 "Tok_Dir_Unknown",
01553 "Tok_Dir_Unknown_Shared",
01554 "Tok_Dir_Unroll",
01555 "Tok_Dir_Uses_Eregs",
01556 "Tok_Dir_Vector",
01557 "Tok_Dir_Vfunction",
01558 "Tok_Dir_Vsearch",
01559 "Tok_Dir_End",
01560 "Tok_Mic_Start",
01561 "Tok_Mic_Case",
01562 "Tok_Mic_End_Case",
01563 "Tok_Mic_Cncall",
01564 "Tok_Mic_Continue",
01565 "Tok_Mic_Do_All",
01566 "Tok_Mic_Do_Parallel",
01567 "Tok_Mic_End_Do",
01568 "Tok_Mic_Guard",
01569 "Tok_Mic_End_Guard",
01570 "Tok_Mic_If",
01571 "Tok_Mic_Maxcpus",
01572 "Tok_Mic_Numcpus",
01573 "Tok_Mic_Parallel",
01574 "Tok_Mic_End_Parallel",
01575 "Tok_Mic_Permutation",
01576 "Tok_Mic_Point",
01577 "Tok_Mic_Send",
01578 "Tok_Mic_Span",
01579 "Tok_Mic_Taskcommon",
01580 "Tok_Mic_Wait",
01581 "Tok_Mic_End",
01582 "Tok_Dbg_Sytb",
01583 "Tok_Dbg_Stmt",
01584 "Tok_Punct_Colon",
01585 "Tok_Punct_Colon_Colon",
01586 "Tok_Punct_Comma",
01587 "Tok_Punct_Dash",
01588 "Tok_Punct_Eq",
01589 "Tok_Punct_Lbrkt",
01590 "Tok_Punct_Lparen",
01591 "Tok_Punct_Rbrkt",
01592 "Tok_Punct_Rename",
01593 "Tok_Punct_Rparen",
01594 "Tok_Punct_Slash",
01595 "Tok_Punct_Star",
01596 "Tok_Const_False",
01597 "Tok_Const_True",
01598 "Tok_Const_Hollerith",
01599 "Tok_Const_Boolean",
01600 "Tok_Const_Boz",
01601 "Tok_Const_Char",
01602 "Tok_Const_Int",
01603 "Tok_Const_Real",
01604 "Tok_Const_Dbl",
01605 "Tok_Const_Quad",
01606 "Tok_Op_Add",
01607 "Tok_Op_Div",
01608 "Tok_Op_Mult",
01609 "Tok_Op_Power",
01610 "Tok_Op_Sub",
01611 "Tok_Op_Concat",
01612 "Tok_Op_Eq",
01613 "Tok_Op_Ge",
01614 "Tok_Op_Gt",
01615 "Tok_Op_Le",
01616 "Tok_Op_Lt",
01617 "Tok_Op_Ne",
01618 "Tok_Op_Lg",
01619 "Tok_Op_And",
01620 "Tok_Op_Eqv",
01621 "Tok_Op_Neqv",
01622 "Tok_Op_Not",
01623 "Tok_Op_Or",
01624 "Tok_Op_Assign",
01625 "Tok_Op_Defined",
01626 "Tok_Op_Deref",
01627 "Tok_Op_Ptr_Assign",
01628 "Tok_Unknown",
01629 "Tok_EOS",
01630 "Tok_EOF",
01631 "Tok_LAST"
01632 };
01633
01634 char *type_char_class_str[] = {
01635 "Unknown_Char",
01636 "Const_Len_Char",
01637 "Var_Len_Char",
01638 "Assumed_Size_Char"
01639 };
01640
01641
01642 char *type_desc_str[] = {
01643 "Default_Typed",
01644 "Star_Typed",
01645 "Kind_Typed"
01646 };
01647
01648 char *use_type_str[] = {
01649 "Use_Not",
01650 "Use_All",
01651 "Use_Renamed",
01652 "Use_Only"
01653 };
01654
01655 char *lin_type_str[] = {
01656 "Err_Res",
01657 "Short_Char_Const",
01658 "Short_Typeless_Const",
01659 "Typeless_1",
01660 "Typeless_2",
01661 "Typeless_4",
01662 "Typeless_8",
01663 "Long_Typeless",
01664 "Integer_1",
01665 "Integer_2",
01666 "Integer_4",
01667 "Integer_8",
01668 "Real_4",
01669 "Real_8",
01670 "Real_16",
01671 "Complex_4",
01672 "Complex_8",
01673 "Complex_16",
01674 "CRI_Ptr_8",
01675 "Logical_1",
01676 "Logical_2",
01677 "Logical_4",
01678 "Logical_8",
01679 "Character_1",
01680 "Character_2",
01681 "Character_4",
01682 "CRI_Ch_Ptr_8",
01683 "Structure_Type",
01684 "CRI_Parcel_Ptr_8"
01685 };
01686
01687
01688 char *opr_str[] = {
01689 "Null_Opr",
01690 "Defined_Un_Opr",
01691 "Readsm_Opr",
01692 "Alloc_Opr",
01693 "SSD_Alloc_Opr",
01694 "Cvrt_Opr",
01695 "Dealloc_Opr",
01696 "**",
01697 "*",
01698 "/",
01699 "+",
01700 "-",
01701 "+",
01702 "-",
01703 "||",
01704 ".eq.",
01705 ".ne.",
01706 ".lt.",
01707 ".le.",
01708 ".gt.",
01709 ".ge.",
01710 ".not.",
01711 "not(",
01712 ".and.",
01713 ".or.",
01714 "or(",
01715 ".eqv.",
01716 "eqv(",
01717 ".neqv.",
01718 "neqv(",
01719 "abs(",
01720 "cos(",
01721 "sin(",
01722 "Log_E_Opr",
01723 "Log_10_Opr",
01724 "tan(",
01725 "tanh(",
01726 "sinh(",
01727 "acos(",
01728 "asin(",
01729 "atan(",
01730 "cosh(",
01731 "atan2(",
01732 "aimag(",
01733 "sqrt(",
01734 "cot(",
01735 "exp(",
01736 "int(",
01737 "and(",
01738 "mod(",
01739 "anint(",
01740 "nint(",
01741 "sign(",
01742 "module(",
01743 "shift(",
01744 "shiftl(",
01745 "shiftr(",
01746 "leadz(",
01747 "popcnt(",
01748 "poppar(",
01749 "aint(",
01750 "dim(",
01751 "ranget(",
01752 "ranset(",
01753 "ranf(",
01754 "real(",
01755 "double(",
01756 "mask(",
01757 "conjg(",
01758 "dprod(",
01759 "i24mult(",
01760 "length(",
01761 "getpos(",
01762 "unit(",
01763 "cmplx(",
01764 "ichar(",
01765 "char(",
01766 "lint(",
01767 "index(",
01768 "lge(",
01769 "lgt(",
01770 "lle(",
01771 "llt(",
01772 "Fcd_Opr",
01773 "Numarg_Opr",
01774 "Rtc_Opr",
01775 "cvmgp(",
01776 "cvmgm(",
01777 "cvmgz(",
01778 "cvmgn(",
01779 "cvmgt(",
01780 "csmg(",
01781 "adjustl(",
01782 "adjustr(",
01783 "ceiling(",
01784 "exponent(",
01785 "floor(",
01786 "fraction(",
01787 "spacing(",
01788 "logical(",
01789 "nearest(",
01790 "rrspacing(",
01791 "scale(",
01792 "scan(",
01793 "set_Exponent_Opr",
01794 "verify(",
01795 "len_Trim(",
01796 "dshiftl(",
01797 "dshiftr(",
01798 "mmx(",
01799 "mldmx(",
01800 "mld(",
01801 "mul(",
01802 "mcbl(",
01803 "cshift(",
01804 "dot_Product(",
01805 "matmul(",
01806 "spread(",
01807 "transpose(",
01808 "all(",
01809 "any(",
01810 "count(",
01811 "product(",
01812 "sum(",
01813 "eoshift(",
01814 "maxval(",
01815 "minval(",
01816 "maxloc(",
01817 "minloc(",
01818 "reshape(",
01819 "selected_real_kind(",
01820 "selected_int_kind(",
01821 "repeat(",
01822 "trim(",
01823 "transfer(",
01824 "Defined_Bin_Opr",
01825 "=",
01826 "CALL ",
01827 "RETURN ",
01828 "CASE ",
01829 "ALLOCATE ",
01830 "DEALLOCATE ",
01831 "END ",
01832 "ENTRY",
01833 "FORALL",
01834 "IF",
01835 "NULLIFY ",
01836 "PAUSE ",
01837 "=>",
01838 "Flat_Array_Asg_Opr",
01839 "RETURN ",
01840 "SELECT ",
01841 "Stmt_Func_Call_Opr",
01842 "STOP ",
01843 "MAX(",
01844 "MIN(",
01845 "READ(",
01846 "READ(",
01847 "READ(",
01848 "WRITE(",
01849 "WRITE(",
01850 "WRITE(",
01851 "Inquire_Iolength_Opr",
01852 "Dv_Whole_Copy_Opr",
01853 "Dv_Whole_Def_Opr",
01854 "Dv_Deref_Opr",
01855 "Dv_Access_Base_Addr",
01856 "Dv_Set_Base_Addr",
01857 "Dv_Access_El_Len",
01858 "Dv_Set_El_Len",
01859 "Dv_Access_Assoc",
01860 "Dv_Set_Assoc",
01861 "Dv_Access_Ptr_Alloc",
01862 "Dv_Set_Ptr_Alloc",
01863 "Dv_Access_P_Or_A",
01864 "Dv_Set_P_Or_A",
01865 "Dv_Access_Unused",
01866 "Dv_Set_Unused",
01867 "Dv_Access_N_Dim",
01868 "Dv_Set_N_Dim",
01869 "Dv_Access_Typ_Code",
01870 "Dv_Set_Typ_Code",
01871 "Dv_Access_Orig_Base",
01872 "Dv_Set_Orig_Base",
01873 "Dv_Access_Orig_Size",
01874 "Dv_Set_Orig_Size",
01875 "Dv_Access_Low_Bound",
01876 "Dv_Set_Low_Bound",
01877 "Dv_Access_Extent",
01878 "Dv_Set_Extent",
01879 "Dv_Access_Stride_Mult",
01880 "Dv_Set_Stride_Mult",
01881 "Br_Aif_Opr",
01882 "Br_Asg_Opr",
01883 "Br_Index_Opr",
01884 "Br_True_Opr",
01885 "Br_Uncond_Opr",
01886 "Case_Range_Opr",
01887 "Implied_Do_Opr",
01888 "Kwd_Opr",
01889 "Loc_Opr",
01890 "Aloc_Opr",
01891 "Const_Tmp_Loc_Opr",
01892 "Len_Opr",
01893 "Clen_Opr",
01894 "(",
01895 "Struct_Opr",
01896 "Struct_Construct_Opr",
01897 "Array_Construct_Opr",
01898 "Constant_Struct_Construct_Opr",
01899 "Constant_Array_Construct_Opr",
01900 "(",
01901 "Whole_Subscript_Opr",
01902 "Section_Subscript_Opr",
01903 "Alloc_Obj_Opr",
01904 "Dealloc_Obj_Opr",
01905 "Substring_Opr",
01906 "Whole_Substring_Opr",
01907 "Triplet_Opr",
01908 "Label_Opr",
01909 "Loop_Info_Opr",
01910 "Loop_End_Opr",
01911 "Init_Opr",
01912 "Init_Reloc_Opr",
01913 "USE",
01914 "WHERE (",
01915 "Real_Div_To_Int_Opr",
01916 "!DIR$ SUPPRESS",
01917 "!DIR$ VECTOR",
01918 "!DIR$ NOVECTOR",
01919 "!DIR$ TASK",
01920 "!DIR$ NOTASK",
01921 "!DIR$ BOUNDS",
01922 "!DIR$ NOBOUNDS",
01923 "!DIR$ RECURRENCE",
01924 "!DIR$ NORECURRENCE",
01925 "!DIR$ VSEARCH",
01926 "!DIR$ NOVSEARCH",
01927 "!DIR$ BL",
01928 "!DIR$ NOBL",
01929 "!DIR$ INLINE",
01930 "!DIR$ NOINLINE",
01931 "!DIR$ IVDEP",
01932 "!DIR$ NEXTSCALAR",
01933 "!DIR$ SHORTLOOP",
01934 "!DIR$ SHORTLOOP128",
01935 "!DIR$ ALIGN",
01936 "!MIC$ CASE",
01937 "!MIC$ ENDCASE",
01938 "!MIC$ CONTINUE",
01939 "!MIC$ DOALL",
01940 "!MIC$ DOPARALLEL",
01941 "!MIC$ ENDDO",
01942 "!MIC$ GUARD",
01943 "!MIC$ ENDGUARD",
01944 "!MIC$ PARALLEL",
01945 "!MIC$ ENDPARALLEL",
01946 "!MIC$ TASKCOMMON",
01947 "!MIC$ WAIT",
01948 "!MIC$ SEND",
01949 "My_Pe_Opr",
01950 "Ieee_Unordered_Opr",
01951 "Ieee_Next_After_Opr",
01952 "Ieee_Remainder_Opr",
01953 "Ieee_Exponent_Opr",
01954 "Ieee_Copy_Sign_Opr",
01955 "Ieee_Int_Opr",
01956 "Ieee_Real_Opr",
01957 "Ieee_Finite_Opr",
01958 "Ieee_Is_Nan_Opr",
01959 "Ieee_Class_Opr",
01960 "Ieee_Binary_Scale_Opr",
01961 "Int_Mult_Upper_Opr",
01962 "Get_Ieee_Status_Opr",
01963 "Set_Ieee_Status_Opr",
01964 "Get_Ieee_Exceptions_Opr",
01965 "Set_Ieee_Exceptions_Opr",
01966 "Get_Ieee_Interrupts_Opr",
01967 "Set_Ieee_Interrupts_Opr",
01968 "Get_Ieee_Rounding_Mode_Opr",
01969 "Set_Ieee_Rounding_Mode_Opr",
01970 "Test_Ieee_Interrupt_Opr",
01971 "Test_Ieee_Exception_Opr",
01972 "Set_Ieee_Exception_Opr",
01973 "Clear_Ieee_Exception_Opr",
01974 "Enable_Ieee_Interrupt_Opr",
01975 "Disable_Ieee_Interrupt_Opr",
01976 "Cvrt_Unsigned_Opr",
01977 "SSD_Dealloc_Opr",
01978
01979 "The_Last_Opr"};
01980
01981 static char *dv_whole_def_str[] = {
01982 "BASE ADDR",
01983 "EL_LEN",
01984 "ASSOC",
01985 "PTR_ALLOC",
01986 "P_OR_A",
01987 "A_CONTIG",
01988 "N_DIM",
01989
01990 # define DEBUG_STR_TYPE_CODE 7
01991
01992 "TYPE_CODE",
01993 "ORIG_BASE",
01994 "ORIG_SIZE",
01995 "DIM %d LB",
01996 "DIM %d EX",
01997 "DIM %d SM",
01998 "DIM %d LB",
01999 "DIM %d EX",
02000 "DIM %d SM",
02001 "DIM %d LB",
02002 "DIM %d EX",
02003 "DIM %d SM",
02004 "DIM %d LB",
02005 "DIM %d EX",
02006 "DIM %d SM",
02007 "DIM %d LB",
02008 "DIM %d EX",
02009 "DIM %d SM",
02010 "DIM %d LB",
02011 "DIM %d EX",
02012 "DIM %d SM",
02013 "DIM %d LB",
02014 "DIM %d EX",
02015 "DIM %d SM"
02016 };
02017
02018 static char *open_mp_dir_opr_str[] = {
02019 "IF clause",
02020 "PRIVATE clause",
02021 "SHARED clause",
02022 "FIRSTPRIVATE clause",
02023 "DEFAULT clause",
02024 "COPYIN clause",
02025 "REDUCTION opr clause",
02026 "REDUCTION var clause",
02027 "LASTPRIVATE clause",
02028 "ORDERED clause",
02029 "SCHEDULE type",
02030 "SCHEDULE list",
02031 "COPYPRIVATE clause",
02032 "AFFINITY clause",
02033 "IS_THREAD clause",
02034 "THREAD_DATA clause",
02035 "ONTO clause",
02036 "NEST clause",
02037
02038
02039 "FLUSH clause"
02040 };
02041
02042 static char *mp_dir_opr_str[] = {
02043 "IF clause",
02044 "SHARE clause",
02045 "LASTLOCAL clause",
02046 "REDUCTION clause",
02047 "MP_SCHEDTYPE clause",
02048 "CHUNK clause",
02049 "AFFINITY clause",
02050 "IS_THREAD clause",
02051 "THREAD_DATA clause",
02052 "LOCAL clause",
02053 "ONTO clause",
02054 "NEST clause",
02055 "LASTTHREAD clause",
02056 "ORDERED clause",
02057 };
