FORTRAN 77 Statements

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