1 /* BEGIN INCLUDE FILE fortran_inquire_data.incl.pl1 */
 2 
 3 /* This include file describes the information passed between a fortran program
 4    and fortran_io_.  The specified, file, and unit fields are passed from the
 5    fortran program to fortran_io_; all other fields are passed from fortran_io_
 6    to the fortran program.  See also fortran_inquire_data.incl.alm, which
 7    describes the same structure for use by pl1_operators_.
 8 
 9    Written 22 October 1981 by C R Davis. */
10 
11 declare
12 
13      1 fortran_inquire_data aligned structure based (addr (fortran_buffer_.buf)),
14 
15        2 specified unaligned structure,                     /* WORD 0 */
16          3 pad1 bit (3),
17          3 filename bit (1),                                /*  4 */
18          3 pad2 bit (1),
19          3 access bit (1),                                  /*  6 */
20          3 form bit (1),                                    /*  7 */
21          3 recl bit (1),                                    /*  8 */
22          3 pad3 bit (4),
23          3 blank bit (1),                                   /* 13 */
24          3 unit bit (1),                                    /* 14 */
25          3 pad4 bit (2),
26          3 exist bit (1),                                   /* 17 */
27          3 opened bit (1),                                  /* 18 */
28          3 number bit (1),                                  /* 19 */
29          3 named bit (1),                                   /* 20 */
30          3 name bit (1),                                    /* 21 */
31          3 sequential bit (1),                              /* 22 */
32          3 formatted bit (1),                               /* 23 */
33          3 unformatted bit (1),                             /* 24 */
34          3 nextrec bit (1),                                 /* 25 */
35          3 direct bit (1),                                  /* 26 */
36          3 pad5 bit (10),
37 
38        2 unit fixed binary (18),                            /* WORD 1 */
39 
40        2 filename character (168) unaligned,                /* WORDS 2-43 */
41 
42        2 access aligned structure,                          /* WORDS 44-45 */
43          3 pointer pointer unaligned,
44          3 length fixed binary (18),
45 
46        2 form aligned structure,                            /* WORDS 46-47 */
47          3 pointer pointer unaligned,
48          3 length fixed binary (18),
49 
50        2 recl pointer unaligned,                            /* WORD 48 */
51 
52        2 blank aligned structure,                           /* WORDS 49-50 */
53          3 pointer pointer unaligned,
54          3 length fixed binary (18),
55 
56        2 exist pointer unaligned,                           /* WORD 51 */
57 
58        2 opened pointer unaligned,                          /* WORD 52 */
59 
60        2 number pointer unaligned,                          /* WORD 53 */
61 
62        2 named pointer unaligned,                           /* WORD 54 */
63 
64        2 name aligned structure,                            /* WORDS 55-56 */
65          3 pointer pointer unaligned,
66          3 length fixed binary (18),
67 
68        2 sequential aligned structure,                      /* WORDS 57-58 */
69          3 pointer pointer unaligned,
70          3 length fixed binary (18),
71 
72        2 formatted aligned structure,                       /* WORDS 59-60 */
73          3 pointer pointer unaligned,
74          3 length fixed binary (18),
75 
76        2 unformatted aligned structure,                     /* WORDS 61-62 */
77          3 pointer pointer unaligned,
78          3 length fixed binary (18),
79 
80        2 nextrec pointer unaligned,                         /* WORD 63 */
81 
82        2 direct aligned structure,                          /* WORDS 64-65 */
83          3 pointer pointer unaligned,
84          3 length fixed binary (18);
85 
86 /* END INCLUDE FILE fortran_inquire_data.incl.pl1 */