1 
 2 /* BEGIN fort_cg_vars.incl.pl1 */
 3 
 4 /* Created:         June 1976
 5 
 6    Modified:
 7                     9 December 1976, David Levin - change version_name to ext static
 8                     10 September 1976, David Levin - to add date time compiled, user id, options,version, and compiler name
 9                     6 June 1978, Richard Barnes - for loop optimizer
10                     9 Oct 1978, Paul E. Smee - changes for larger common and arrays.
11                     30 Nov 1978, Paul E. Smee - add fort_version_info$version_number*/
12 
13             2 num_of_lib_names          fixed bin(17),
14             2 first_lib_name            fixed bin (18) unsigned,
15             2 last_lib_name             fixed bin (18) unsigned,
16 
17             2 error_level               fixed bin(17),
18 
19             2 message_structure         structure aligned,
20               3 message_number          fixed bin (18),
21               3 number_of_operands      fixed bin,
22               3 operands(3),
23                 4 is_string             bit(1) aligned,
24                 4 operand_index         fixed bin (18),
25                 4 string_length         fixed bin,
26                 4 string_ptr            ptr,
27 
28             2 print_message_op          entry variable,
29             2 create_constant_block     entry(ptr,fixed bin) returns(fixed bin (18) unsigned)
30                                         variable,
31             2 date_time_compiled        fixed bin(71),
32             2 objectname                char(32) varying,
33             2 vuser_id                  char(32) varying,
34             2 options_string            char(256) varying;
35 
36 dcl       fort_version_info$version_name char(132) varying ext static;
37 dcl       fort_version_info$version_number char(16) ext static;
38 
39 dcl       compiler_name char(8) int static options(constant) init("fortran2");
40 
41 /* END   fort_cg_vars.incl.pl1 */