FORTRAN 77 •¶

ASSIGN label TO variable

BACKSPACE {unitspec |

([UNIT=]unitspec
[, ERR=errlabel]
[, IOSTAT=iocheck] )}

BLOCK DATA [blockdataname]

CALL sub [([actuals] )]

CHARACTER [*chars] vname [*length] [(dim)] [,vname [*length] [(dim)]

CLOSE ([UNIT=]unitspec

[, ERR=errlabel]
[, IOSTAT=iocheck]
[, STATUS=status] )

COMMON [/[cname] /] nlist[[,] / [cname] /nlist] ...

COMPLEX vnam [(dim)] [, vname [(dim)]] ...

CONTINUE

DATA nlist /clist/ [[,] nlist /clist/] ...

DIMENSION array ([lower:]upper [, {[lower:]upper] )

DO [label [,] ] dovar = start, stop [, inc]

DOUBLE PRECISION vname [(dim)] [, vname [(dim)] ] ...

ELSE

statementblock

ELSE IF (expression) THEN

statementblock

END

END IF

ENDFILE {unitspec |

([UNIT=] unitspec
[, ERR=errlabel]
[, IOSTAT=iocheck] )}

ENTRY ename [ ( [formal [, formal ] ...] )]

EQUIVALENCE (nlist) [, (nlist)] ...

EXTERNAL name [, name ] ...

FORMAT [editlist]

[type] FUNCTION func ([formal ] [, formal] ...)

GOTO variable [ [,] (labels)]

GOTO (labels) [,] n

GOTO label

IF (expression) label1, label2, label3

IF (expression) statement

IF (expression) THEN

statementblock1

[ELSE IF (expression) THEN

statementblock2] ...

[ELSE

statementblock3]

END IF

IMPLICIT type (letters) [, type (letters)] ...

INQUIRE ({[UNIT=]unitspec | FILE=file}

[, ACCESS=access]
[, BLANK=blank] [, DIRECT=direct] [, ERR=errlabel] [, EXIST=exist] [, FORM=form]
[, FORMATTED=formatted] [, IOSTAT=iocheck]
[, NAME=name] [, NAMED=named]
[, NEXTREC=nextrec] [, NUMBER=num] [, OPENED=opened]
[, RECL=recl] [, SEQUENTIAL=seq] [, UNFORMATTED=unformatted] )

INTEGER vname [(dim)] [, vname [ (dim)] ] ...

INTRINSIC names

LOGICAL vname [(dim)] [, vname [(dim)] ] ...

OPEN ([UNIT=]unitspec [, ACCESS=access]

[, BLANK=blanks]
[, ERR=errlabel] [, FILE=file]
[, FORM=form] [, IOSTAT=iocheck]
[, RECL=recl] [, STATUS=status] )

PARAMETER (name=constexpr [, name=constexpr] ...)

PAUSE [prompt]

PRINT { *, | formatspec | } [, iolist]

PROGRAM program-name

READ {formatspec, | ( [UNIT=] unitspec

[, [FMT=]formatspec]
[, END=endlabel ]
[, ERR=errlabel]
[, IOSTAT=iocheck]
[, REC=rec] )}
iolist

REAL vname [(dim)] [, vname [(dim)] ] ...

RETURN [ordinal ]

REWIND { unitspec | ([UNIT=] unitspec

[, ERR=errlabel]
[, IOSTAT=iocheck] )}

SAVE [names]

STOP [ message]

SUBROUTINE subr [([ formal [, formal ] ...] )]

WRITE ( [UNIT=] unitspec

[, [FMT=] formatspec]
[, ERR=errlabel]
[, IOSTAT=iocheck]
[, REC=rec] )
iolist