1 " BEGIN INCLUDE FILE fort_operator_table.incl.alm
2 "
3 " Extracted from fort_cg_macros_.alm and fort_opt_macros_.alm
4 " on 7 February 1980 by C R Davis
5 "
6 " Modified:
7 " 22 Jun 84, MM - Install typeless functions support.
8 " 17 Jun 83, HH - 383: Add 'process_param_list'.
9 " 12 Jan 83, HH - Add 'form_VLA_packed_ptr'.
10 " 28 October 1981, C R Davis - add inquire.
11 " 20 October 1981, C R Davis - add read write_internal_file.
12 " 11 May 1981, C R Davis - add equiv, not_equiv.
13 " 8 December 1980, C R Davis - add block_if, else_if, and else.
14 "
15 "
16 operator_table:
17 zero assign 1
18 zero add 2
19 zero sub 3
20 zero mult 4
21 zero div 5
22 zero exponentiation 6
23 zero negate 7
24 zero less 8
25 zero less_or_equal 9
26 zero equal 10
27 zero not_equal 11
28 zero greater_or_equal 12
29 zero greater 13
30 zero or 14
31 zero and 15
32 zero not 16
33 zero jump 17
34 zero jump_logical 18
35 zero jump_arithmetic 19
36 zero jump_computed 20
37 zero jump_assigned 21
38 zero assign_label 22
39 zero read 23
40 zero write 24
41 zero format 25
42 zero end_label 26
43 zero error_label 27
44 zero xmit_scalar 28
45 zero xmit_array 29
46 zero xmit_vector 30
47 zero endfile 31
48 zero rewind 32
49 zero backspace 33
50 zero margin 34
51 zero openfile 35
52 zero closefile 36
53 zero record_number 37
54 zero string 38
55 zero string_length 39
56 zero terminate 40
57 zero return 41
58 zero pause 42
59 zero stop 43
60 zero item 44
61 zero exit 45
62 zero eol 46
63 zero do 47
64 zero builtin 48
65 zero sf 49
66 zero sf_def 50
67 zero subscript 51
68 zero func_ref 52
69 zero block_data 53
70 zero increment_polish 54
71 zero main 55
72 zero func 56
73 zero subr 57
74 zero stat 58
75 zero label_operator 59
76 zero call 60
77 zero chain 61
78 zero endunit 62
79 zero non_executable 63
80 zero no_op 64
81 zero form_VLA_packed_ptr 65
82 zero opt_subscript 66
83 zero left_shift 67
84 zero right_shift 68
85 zero store_zero 69
86 zero storage_add 70
87 zero storage_sub 71
88 zero neg_storage_add 72
89 zero storage_add_one 73
90 zero namelist 74
91 zero open 75
92 zero close 76
93 zero iostat 77
94 zero convert_to_int 78
95 zero convert_to_real 79
96 zero convert_to_dp 80
97 zero convert_to_cmpx 81
98 zero read_scalar 82
99 zero read_array 83
100 zero read_vector 84
101 zero write_scalar 85
102 zero write_array 86
103 zero write_vector 87
104 zero jump_true 88
105 zero jump_false 89
106 zero sub_index 90
107 zero loop_end 91
108 zero read_namelist 92
109 zero write_namelist 93
110 zero decode_string 94
111 zero encode_string 95
112 zero cat 96
113 zero substr 97
114 zero load_xreg 98
115 zero load_preg 99
116 zero block_if 100
117 zero else_if 101
118 zero else 102
119 zero equiv 103
120 zero not_equiv 104
121 zero read_internal_file 105
122 zero write_internal_file 106
123 zero inquire 107
124 zero process_param_list 108
125 zero lhs_fld 109
126
127 "
128 " NOTE: If you add entries to this table, you must change
129 " both fort_cg_macros_ and fort_opt_macros_!!
130 "
131 " END INCLUDE FILE fort_operator_table.incl.alm