Click above to get retro games delivered to your door ever month!

                                FORTRAN  Statements
                                ___________________

ASSIGN label TO variable
        Label assignment: assigns the value of a format or statement label to
        an integer variable.

variable = expression
        Computational assignment:  evaluates an expression  and  assigns  the
        resulting value to the specified variable.

BACKSPACE {unitspec | ([UNIT=]unitspec[,ERR=errlab][,IOSTAT=iocheck])}
        Positions the file connected  to the specified unit  at the beginning
        of the preceding record.

BLOCK DATA [blockdataname]
        Identifies a block-data subprogram where variables and array elements
        in named common blocks can be initialized.

CALL subr [([actuals])]
        Calls and executes a subroutine from another program unit.

CHARACTER[*bytes] vname[attrs][(dim)][*lenght][/values/]
                        [,vname[attrs][(dim)][*lenght]][/values/]...
        Specifies that user-defined names are of the CHARACTER data type.

CLOSE ([UNIT=]unitspec[,ERR=errlabel][,IOSTAT=iocheck][,STATUS=status])
        Disconnects the specified unit and prevents subsequent I/O from being
        directed to that unit.

COMMON [/[cname][attrs]/]nlist [[,]/[cname][attrs]/nlist]...
        Provides for sharing memory between two or more program units.

COMPLEX[*bytes] vname[attrs][*lenght][(dim)][/values/]
                [,vname[attrs][*lenght][(dim)][/values/]]...
        Specifies that user-defined names are of the COMPLEX data type.

CONTINUE
        Does not have any effect;  used  as convenient point  for a statement
        label, particularly as the terminal statement in a DO loop.

DATA nlist /clist/ [[,]nlist /clist/]...
        Assigns initial values to variables. The nlist is a list of variables
        array elements, array names, substring names,  and  implied-DO lists,
        separated by commas.

DIMENSION array[attrs]([lower:]upper)[,array[attrs]([lower:]upper)]...
        Specefies the name of an array  and defines the number of elements in
        the array.

DO label [,]dovar = start,stop[,inc]
        Evaluates, repeatedly , the statements  following  the  DO  statement
        through the statement at "label".

DOUBLE PRECISION  vname[attrs][(dim)][/values/]
                        [,vname[attrs][(dim)][/values/]]...
        Specifies that user-defined names  are of the  DOUBLE PRECISION  data
        type.

ELSE
        Marks the beginning of an ELSE block.

ELSEIF (expression) THEN
        Causes execution of a block of statements if "expression" is true.

END
        In the main program,  terminates execution;  in a subprogram, returns
        control to the calling program unit.

ENDFILE {unitspec | ([UNIT=]unitspec[,ERR=errlabel][,IOSTAT=iocheck])}
        Writes an end-of-file record as the next record of the file connected
        to the specified unit.

ENDIF
        Terminates a block IF statements.

ENTRY ename[eattrs] [([formal[attrs][,formal[attrs]]...])]
        Specifies an entry point for a subroutine or function.

EQUIVALENCE (nlist) [,(nlist)]...
        Specifies that two or more variables  or  arrays  will share the same
        memory locations.

EXTERNAL name[attrs] [,name[attrs]]...
        Identifies a user-defined name as  an external subroutine or function
        that is defined elsewhere.

FORMAT ([editlist])
        Directs data editing.

[type] FUNCTION fname[fattrs] ( [formal[attrs]][,formal[attrs]]...)
        Identifies a program unit as a function  and supplies its type, name,
        and optional formal parameter(s).

GOTO label
        Unconditional GOTO:  transfers control to the statement  specified by
        "label".

GOTO (labels) [,] i
        Computed GOTO: transfers control  to the statement  at the i-th label
        in the list.

GOTO variable [[,](labels)]
        Assigned GOTO: causes the statement indicated by  last label assigned
        to "variable" to be the next statement executed.

IF (expression) label1,label2,label3
        Arithmetic IF: transfers control to the statement specified by one of
        the three labels, depending on the result of "expression".

IF (expression) statement
        Logical IF: executes  "statement"  if  "expression"  is true;  or, if
        "expression" is false,  continues  as  if a  CONTINUE  statement were
        encounered.

IF (expression) THEN
        Block IF: begins executing statements in the IF block if "expression"
        is true;  or, if "expression" is false, transfers control to the next
        ELSE, ELSEIF, or ENDIF statement at the same IF level.

IMPLICIT type (letters) [type (letters)]...
        Defines the default type for user-declared names.

INQUIRE ({[UNIT=]unitspec | FILE=file}[,ACCESS=access][,BINARY=binary]
                [,BLANK=blank][,BLOCKSIZE=blocksize][,DIRECT=direct]
                [,ERR=errlabel][,EXIST=exist][,FORM=form]
                [,FORMATTED=formatted][,IOSTAT=iocheck]
                [,MODE=mode][,NAME=name][,NAMED=named][,NEXTREC=nextrec]
                [,NUMBER=num][,OPENED=opened][,RECL=recl][,SEQUENTIAL=seq]
                [,SHARE=share],[UNFORMATTED=unformatted])
        Examines the properties of a unit or a named file.

INTEGER{[*bytes] | [C]} vname[attrs][*lenght][(dim)][/values/]
                [,vname[attrs][*lenght][(dim)][/values/]]...
        Specifies that user-defined names are of the INTEGER data type.

INTERFACE TO {functionstatement | subroutinestatement}
        Declares a subprogram, its attributes, and its formal argument types.

INTRINSIC names
        Declares that "names" are intrinsic functions.

LOCKING ([UNIT=]unitspec[,ERR=errlabel][,IOSTAT=iocheck]
                [,LOCKMODE=lockmode][,REC=rec][,RECORDS=recnum])
        Locks direct-access files and records to prevent access by other user
        in a network enviroment.

LOGICAL[*bytes] vname[attrs][*lenght][(dim)][/values/]
                [,vname[attrs][*lenght][(dim)][/values/]]...
        Specifies that user-defined names are of the LOGICAL data type.

OPEN ([UNIT=]unitspec[,ACCESS=access][,BLANK=blank]
                [,BLOCKSIZE=blocksize][,ERR=errlabel][,FILE=file][,FORM=form]
                [,IOSTAT=iocheck][,MODE=mode][,RECL=recl][,SHARE=share]
                [,STATUS=status]
        Associates a unit number with an external device or with a file on an
        external device.

PARAMETER (name=expression [,name=expression]...)
        Gives a constant a symbolic name.

PAUSE [prompt]
        Temporarily suspends program execution and allows the user to execute
        operating-system commands.

PRINT formatspec [,ioslist]
        Specifies screen output. The "iolist" may be empty, or may comprise a
        variable,  array,  array-element,  or  character-substring name;  any
        expression; or an implied-DO list.

PROGRAM pname
        Identifies the program unit as a main program and gives it a name.

READ {formatspec | ([UNIT=]unitspec[,[FMT=]formatspec][,END=endlabel]
                [,ERR=errlabel][,IOSTAT=iocheck][,REC=rec])}iolist
        Transfers data from the file associated with "unitspec"  to the items
        in the "iolist", unless the end-of-file is reached or a error occurs.
        The  "iolist"  may be  empty,  or  may  comprise  a variable,  array,
        array-element, or character-substring name, or an implied-DO list.

REAL[*bytes] vname[attrs][*lenght][(dim)][/values/]
                [,vname[attrs][*lenght][(dim)][/values/]]...
        Specifies that user-defined names are of the REAL data type.

RETURN [ordinal]
        Returns control to the calling program unit.

REWIND {unitspec | ([UNIT=]unitspec[,ERR=errlabel][,IOSTAT=iocheck])}
        Repositions a file to its first record.

SAVE [names]
        Causes variables  and common blocks  to retain  their values  between
        invocations of the procedure in which they are defined.

fname ([formals])  =  expression
        Statement-function statement: defines a function in one statement.

STOP [message]
        Terminates the program.

SUBROUTINE subr[sattrs] [([formal[attrs][,formal[attrs]]...])]
        Identifies a program unit  as  a subroutine,  gives  it  a name,  and
        identifies its formal arguments.

WRITE ([UNIT=]unitspec[,[FMT=]formatspec][,ERR=errlabel]
                [,IOSTAT=iocheck][,REC=rec])iolist
        Transfers data to the file associated with  "unitspec" from the items
        in the "iolist", unless the end-of-file is reached or a error occurs.
        The  "iolist"  may be  empty,  or  may  comprise  a variable,  array,
        array-element,  or  character-substring name;  any expression;  or an
        implied-DO list.