forked from johannesgerer/jburkardt-f
-
Notifications
You must be signed in to change notification settings - Fork 1
/
fixcon.html
273 lines (238 loc) · 7.09 KB
/
fixcon.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
<html>
<head>
<title>
FIXCON - Convert F77 to F90 Continuation
</title>
</head>
<body bgcolor="#EEEEEE" link="#CC0000" alink="#FF3300" vlink="#000055">
<h1 align="center">
FIXCON <br> Convert F77 to F90 Continuation
</h1>
<hr>
<p>
<b>FIXCON</b>
is a FORTRAN90 program which
converts the line continuation scheme used in a FORTRAN77
file to that used in FORTRAN90 files.
</p>
<p>
In FORTRAN77, if a line
is not a comment line, then a nonblank character (actually, the character
can't be '0' either) in column six indicates that the current line is a
continuation of the previous one. (Complications include what happens
when the previous line is a comment, and how you deal with the joy
of TAB characters). For example, the following would be a legally
continued line in FORTRAN 77 (assuming that the dollar sign is
actually in column 6):
<pre>
x = 1 + 2 + 3 + 4
$ + 5 + 6
</pre>
</p>
<p>
In FORTRAN90, a line can extend to the next line by having an
ampersand as its last character. Thus, the FORTRAN90 version
of the same line looks like this:
<pre>
x = 1 + 2 + 3 + 4 &
+ 5 + 6
</pre>
</p>
<p>
<b>FIXCON</b> reads a file that uses the FORTRAN77 convention, and writes
a copy that uses the F90 convention. If you've ever tried to do this
by hand on a substantial file, it might be worth your while to try
this program instead.
</p>
<p>
With nose firmly squeezed shut, the program has been modified to
try to deal with the evil of TAB characters. The program's treatment
is simply to replace each TAB by six blanks.
</p>
<p>
Two other small fixes are applied.
<ul>
<li>
First, the code will only read the first 72 columns of input.
FORTRAN77 allows you to put any junk you want beyond column
72, but it will not be seen by the compiler).
</li>
<li>
Secondly, all lines that look like comment lines (beginning
with a <b>C</b> or <b>c</b> or <b>D</b> or <b>d</b> or <b>*</b>)
are modified to use the FORTRAN90 comment convention of
beginning with an exclamation mark.
</li>
</ul>
</p>
<h3 align = "center">
Usage:
</h3>
<p>
<blockquote>
<b>fixcon</b> <i>file.f file.f90</i>
</blockquote>
<dl>
<dt>
file.f
</dt>
<dd>
The input file, which uses the FORTRAN77 convention.
</dd>
<dt>
file.f90
</dt>
<dd>
The output file, which uses the FORTRAN90 convention.
</dd>
</dl>
</p>
<h3 align = "center">
Licensing:
</h3>
<p>
The computer code and data files described and made available on this web page
are distributed under
<a href = "../../txt/gnu_lgpl.txt">the GNU LGPL license.</a>
</p>
<h3 align = "center">
Related Data and Programs:
</h3>
<p>
<a href = "../../cpp_src/catalog/catalog.html">
CATALOG</a>,
a C++ program which
reads a C, C++, FORTRAN77 or FORTRAN90 program and prints every line
that begins with a special index tag. If the program has been marked
up expecting this convention, it is a handy way of making a table
of contents of a program file.
</p>
<p>
<a href = "../../f_src/extract/extract.html">
EXTRACT</a>,
a FORTRAN90 program which
extracts one routine from a FORTRAN77 or FORTRAN90 file;
</p>
<p>
<a href = "../../f_src/f77_cleanup/f77_cleanup.html">
F77_CLEANUP</a>,
a FORTRAN90 program which
makes a copy of a FORTRAN77 file in which some minor cleanups have
been made.
</p>
<p>
<a href = "../../c_src/f77split/f77split.html">
F77SPLIT</a>,
a C program which
splits a file containing
multiple FORTRAN77 routines into separate files;
</p>
<p>
<a href = "../../c_src/f90split/f90split.html">
F90SPLIT</a>,
a C program which
splits a file containing multiple FORTRAN90 routines into separate files;
</p>
<p>
<a href = "../../f_src/f90split/f90split.html">
F90SPLIT</a>,
a FORTRAN90 program which
reads a FORTRAN file and creates individual files for every
subroutine or function in the file.
</p>
<p>
<a href = "../../f_src/include_files/include_files.html">
INCLUDE_FILES</a>,
a FORTRAN90 program which
reads a FORTRAN file with INCLUDE statements, and makes a copy in which the
indicated files have been included;
</p>
<p>
<a href = "../../f_src/module_mark/module_mark.html">
MODULE_MARK</a>,
a FORTRAN90 program which
replaces bare "END" statements by "END (module name)" statements
in a FORTRAN90 file.
</p>
<p>
<a href = "../../cpp_src/recomment/recomment.html">
RECOMMENT</a>,
a C++ program which
converts C style comments to C++ style.
</p>
<h3 align = "center">
Source code:
</h3>
<p>
<ul>
<li>
<a href = "fixcon.f90">fixcon.f90</a>, the source code.
</li>
<li>
<a href = "fixcon.sh">fixcon.sh</a>,
commands to compile and load the source code.
</li>
</ul>
</p>
<h3 align = "center">
Examples and Tests:
</h3>
<p>
<ul>
<li>
<a href = "input.f">input.f</a>, a sample input file.
</li>
<li>
<a href = "output.f90">output.f90</a>, the resulting output file.
</li>
</ul>
</p>
<p>
Another test works with TAB characters. Files you may copy include:
<ul>
<li>
<a href = "tabs.f">tabs.f</a>, a sample input file with TAB's.
</li>
<li>
<a href = "notabs.f90">notabs.f90</a>, the resulting output file,
with no TAB's.
</li>
</ul>
</p>
<h3 align = "center">
List of Routines:
</h3>
<p>
<ul>
<li>
<b>FIXCON</b> gets information from a user about the FORTRAN77 file to convert.
</li>
<li>
<b>FILE_NAME_EXT_SWAP</b> replaces the current "extension" of a file name.
</li>
<li>
<b>FILE_NAME_EXT_GET</b> determines the "extension" of a file name.
</li>
<li>
<b>FIX_CONTINUATION</b> copies a FORTRAN77 file, using FORTRAN90 continuation.
</li>
<li>
<b>S_CAT</b> concatenates two strings to make a third string.
</li>
<li>
<b>S_INDEX_LAST</b> finds the LAST occurrence of a given substring.
</li>
<li>
<b>S_TAB_BLANKS</b> replaces TAB characters by 6 spaces.
</li>
<li>
<b>TIMESTAMP</b> prints the current YMDHMS date as a time stamp.
</li>
</ul>
</p>
<hr>
<i>
Last revised on 27 January 2003.
</i>
</body>
</html>