Intel fortran-80 manual FORTRAN-80

FORTRAN-80 FORTRAN-80 Statement Summary

FUNCTION Statement

Category: Nonexecutable

Text Reference: Section 5.2.1

Format	Function
[type] FUNCTION func ([d[,d] ... J)	Name the FUNCTION subprogram
	'func,' define its type and dummy
	parameter(s) 'd.'

GO TO Statements

Category: Executable

Text Reference: Section 4.1.1,4.1.2,4.1.3

Formats	Function
GOTOs	Transfer control to statement
GO TO (s[,s] ... )[,]exp	labeled 's' or ASSIGNED to
GO TO i [[,](s[,s] ... )]	variable name 'i'.
Notes:

First format branches unconditionally.

Second format branches based on value of integer expression 'exp.'

Third format branches unconditionally, but statement label corresponding to 'i' must be included in list.

IF Statements

Cagetory: Executable

Text Reference: Sections 4.1.4,4.1.5,4.1.6,4.1.7

Formats	Function
IF (e) sl, s2, s3	Transfer control to a specified
IF (e) st	statement or perform specified ac-
IF (e) THEN	tion(s) based on the value of expres-
	sion 'e'.

Notes:

In first format 'e' is an arithmetic expression and s 1, s2, s3 are standard labels; con- trol passes to:

sl ife<O s2 if e = 0 s3ife>O

In second format, statement 'st' is executed if logical expression 'e' is TRUE. Third format introduces IF block; statements following IF-THEN are executed if logical expression 'e' is TRUE.

A-7