struct(1)
NAME
struct − structure Fortran programs
SYNTAX
struct [ option... ] file
DESCRIPTION
The struct command translates the Fortran program file (standard input default) into a Ratfor program. Wherever possible, Ratfor control constructs replace the original Fortran. Statement numbers appear only where still necessary. Cosmetic changes are made, including changing Hollerith strings into quoted strings and relational operators into symbols. For example, .GT. into >. The output is appropriately indented.
OPTIONS
−s Input is accepted in standard format; that is, comments are specified by a c, C, or * in column 1, and continuation lines are specified by a nonzero, nonblank character in column 6. Normally, a statement whose first nonblank character is not alphanumeric is treated as a continuation.
−i Do not turn computed goto statements into switches. Ratfor does not turn switches back into computed goto statements.
−a Turn sequences of else ifs into a non-Ratfor switch of the form
switch {
case pred1: code
case pred2: code
case pred3: code
default: code
}
The case predicates are tested in order; the code appropriate to only one case is executed. This generalized form of switch statement does not occur in Ratfor.
−b Generate goto statements instead of multilevel break statements.
−n Generate goto statements instead of multilevel next statements.
−en
If n is 0 (default), place code within a loop only if it can lead to an iteration of the loop. If n is nonzero, admit code segments with fewer than n statements to a loop if otherwise the loop would have exits to several places including the segment, and the segment can be reached only from the loop.
RESTRICTIONS
Knows Fortran 66 syntax, but not full Fortran 77 (alternate returns, IF...THEN...ELSE).
If an input Fortran program contains identifiers which are reserved words in Ratfor, the structured version of the program will not be a valid Ratfor program.
Extended range DOs generate cryptic errors.
Columns 73-80 are not special even when −s is in effect.
Will not generate Ratfor FOR statements.
FILES
/tmp/struct*
/usr/lib/struct/*