![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ioinit.3f CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / man / man3|
Return to ioinit.3f CVS log | Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / man / man3 |
1.1 root 1: .TH IOINIT 3F "13 June 1983"
2: .UC 4
3: .SH NAME
4: ioinit \- change f77 I/O initialization
5: .SH SYNOPSIS
6: \fBlogical function ioinit (cctl, bzro, apnd, prefix, vrbose)\fP
7: .br
8: .B logical cctl, bzro, apnd, vrbose
9: .br
10: .B character*(*) prefix
11: .SH DESCRIPTION
12: This routine will initialize several global parameters in the f77 I/O system,
13: and attach externally defined files to logical units at run time.
14: The effect of the flag arguments applies to logical units opened after
15: .I ioinit
16: is called.
17: The exception is the preassigned units, 5 and 6, to which
18: .I cctl
19: and
20: .I bzro
21: will apply at any time.
22: .I Ioinit
23: is written in Fortran-77.
24: .PP
25: By default,
26: carriage control is not recognized on any logical unit. If
27: .I cctl
28: is
29: .B .true.
30: then carriage control will be recognized on formatted output
31: to all logical units except unit 0, the diagnostic channel.
32: Otherwise the default will be restored.
33: .PP
34: By default, trailing and embedded blanks in input data fields
35: are ignored. If
36: .I bzro
37: is
38: .B .true.
39: then such blanks will be treated as zero's.
40: Otherwise the default will be restored.
41: .PP
42: By default, all files opened for sequential access are positioned at
43: their beginning.
44: It is sometimes necessary or convenient to open at the END-OF-FILE
45: so that a write will append to the existing data.
46: If
47: .I apnd
48: is
49: .B .true.
50: then files opened subsequently on any logical unit
51: will be positioned at their end upon opening.
52: A value of
53: .B .false.
54: will restore the default behavior.
55: .PP
56: Many systems provide an automatic association of global names with
57: fortran logical units when a program is run.
58: There is no such automatic association in
59: .UX
60: f77.
61: However, if the argument
62: .I prefix
63: is a non-blank string, then names of the form
64: .BR prefix NN
65: will be sought in the program environment. The value associated with
66: each such name found will be used to open logical unit NN for formatted
67: sequential access.
68: For example, if f77 program
69: .I myprogram
70: included the call
71: .nf
72:
73: call ioinit (.true., .false., .false., \(fmFORT\(fm, .false.)
74:
75: .fi
76: then when the following sequence
77: .nf
78:
79: % setenv FORT01 mydata
80: % setenv FORT12 myresults
81: % myprogram
82:
83: .fi
84: would result in logical unit 1 opened to file
85: .I mydata
86: and logical unit 12 opened to file
87: .IR myresults .
88: Both files would be positioned at their beginning.
89: Any formatted output would have column 1 removed and interpreted
90: as carriage control.
91: Embedded and trailing blanks would be ignored on input.
92: .PP
93: If the argument
94: .I vrbose
95: is
96: .B .true.
97: then
98: .I ioinit
99: will report on its activity.
100: .PP
101: The effect of
102: .nf
103:
104: call ioinit (.true., .true., .false., \(fm\(fm, .false.)
105:
106: .fi
107: can be achieved without the actual call by including ``\-lI66''
108: on the
109: .I f77
110: command line.
111: This gives carriage control on all logical units except 0,
112: causes files to be opened at their beginning, and causes
113: blanks to be interpreted as zero's.
114: .PP
115: The internal flags are stored in a labeled common block with the following
116: definition:
117: .nf
118:
119: integer*2 ieof, ictl, ibzr
120: common /ioiflg/ ieof, ictl, ibzr
121:
122: .fi
123: .SH FILES
124: .ta \w'/usr/ucb/lib/libI77.a 'u
125: .ie \nM /usr/ucb/lib/libI77.a f77 I/O library
126: .el /usr/lib/libI77.a f77 I/O library
127: .br
128: .ie \nM /usr/ucb/lib/libI66.a sets older fortran I/O modes
129: .el /usr/lib/libI66.a sets older fortran I/O modes
130: .SH "SEE ALSO"
131: getarg(3F), getenv(3F), ``Introduction to the f77 I/O Library''
132: .SH BUGS
133: .I Prefix
134: can be no longer than 30 characters.
135: A pathname associated with an environment name can be no longer than 255
136: characters.
137: .PP
138: The ``+'' carriage control does not work.
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.