Fortran/Beginning Fortran

Introduction
Fortran programs are made up of the main program and modules, each can contain subroutines and functions.

Code that should be executed when the program is run should be placed in a  block, like this: Indentation is not required, but is recommended. The name of the program must start with a letter, and can otherwise contain letters, numbers, and the _ (underscore) character. Each statement terminates with the end of the line.

Free Form and Fixed Form
The Fortran 77 syntax requires that you give 6 spaces before any commands. These 6 spaces originate from the punched card version of Fortran. After the first 6 spaces, you may place additional spaces for indentation if you wish.

However, there is a maximum total line width of 72 characters (including the first 6 spaces). If you require extra space you can put any character (except 0 with some compilers) in column 6; this is called a "continuation character". With punched cards, this meant that you could continue the line onto a second card.

On some compilers you can turn off the 6 spaces rule, and turn off fixed length lines, by specifying "free form" and not "fixed form" mode. If you use the GNU Fortran compiler (gfortran), you can use the -ffree-form command line option when compiling for the same purpose.

Commenting
Inclusion of an exclamation mark, !, on a line makes the rest of the line a comment, like this:

In fixed-form mode, you can also mark a whole line as a comment by placing a * or a c in the first column.

Variables
See Variables

There are many different types and options for variables, but for now we'll stick to the basics.

It is recommended to use the  statement before variable declarations to avoid typing errors by forcing the explicit declaration of every program variable.

Mathematical operators
See Mathematics


 * Add, subtract, multiply, divide


 * Assignment


 * To the power of ( 2**4 is two to the fourth power = 16 )

The mathematical operators have a certain precedence order:

** [exponentiation] always comes first, it is right to left associative. i.e. 2**3**2 = 512, not 64

Next comes * [multiplication] and / [division], these are left to right associative, i.e., 1.0/1.0/2.0*6.0 = ((1.0/1.0)/2.0)*6.0 = 3.0, not 12.0.

Next in order is + [addition] and - [subtraction], these are left to right associative as well, so x-y+z = (x-y)+z = x+(-y)+z.

Finally comes = [assignment].

Intrinsic functions
Fortran has a wide range of functions useful in numerical work, such as,  , and. The argument of a function must have the proper type, and it is enclosed in parentheses: The intrinsic math functions of Fortran are, meaning that they can take arrays as well as scalars as arguments and return a scalar or an array of the same shape: The above program fragment sets the two elements of array  ,   and  , equal to   and   respectively.

Comparative and Logical operators
In  statements, and in some other places, you can code relational operators =, <, >, ≤, ≥, and ≠, respectively as ,  ,  ,  ,  , and. Another way to write these operators would be: ==, <, >, <=, >=, and /=, respectively.

You can also use the logical operators,   and  , as well as the logical constants   and. When combining these items, do not double up on the dots. For instance,  is the same as , but not.

WRITE statements
See Input and Output

means to use the default output with default options, usually print to screen. Things inside quotes are printed as they look in the code, and the value of the variable is printed. Objects must be separated by commas, and the write statement automatically ends the line by default.

The full formal syntax is:

Note that some versions of Fortran don't allow double-quotes, and require single-quotes. An enclosed single-quote can be represented by doubling. For instance,.

The first parenthesized argument to  or   is the unit number. Unit numbers are associated with input or output streams in a way determined by the operating system. In very old systems, the unit number is the device address. In IBM JCL systems, the association between unit numbers and files are done with JCL  statements. In other versions, there is some statement that associates files and units. The  tag may be omitted. If an asterisk is used for the unit number, then the I/O involved is the standard input channel, or the standard output channel.

The second parenthesized argument to  or   is the record number. Note that this argument, if present, is separated from the unit number by a single quote. If present, this variable defines which record number is read from or written to. For instance, writes x, y, and z in packed machine-specific format into record number 5. Note, of course, that this usage requires that your OS or Fortran compiler know what constitutes a record. In byte-organized files, the above code would write x, y, and z starting at the file's byte #5.

The third parenthesized argument to  or   is the format number. If this third argument is present as an asterisk, as above, then the formatting is the obvious default. If you'd rather use a  statement to format the input or output, then include the statement number for the   statement. For example: Note that a  statement is not executable as an in-line statement. It is only used where referenced by  or. The  tag may be omitted. The entire argument may be omitted, too. However, if you omit the format argument, the I/O will be performed unformatted, using machine-specific, packed data.

The last parenthesized argument to  or   is the error handler statement label. For instance, if is coded, this means that output is to be unformatted to unit 5. If an error occurs, execution continues at statement 2 (the statement with a statement label of 2 in front of it). If an error occurs, and there is no  argument, then the program abnormally terminates. Thus,  is the closest equivalent of   in other languages. Although this last argument may be omitted entirely,  can't be omitted from the argument once used.

Example Code
See More Examples in Fortran

Some versions of Fortran, or in some settings, use format characters. When formatting characters are used, the first character of the line determines how the line is printed. means new page. means 2 line-feeds before the line (double-space). means 3 line-feeds before the line (triple-spacing). means no line-feeds before the line (overprinting). And a space means a single line-feed before the line (normal printing).

Here's the same program in archaic form, with this forms-control character: