Digital PDFs

AV-M763A-TE

2000

48 pages

Original

16MB

view download

OCR Version

14MB

view download

Document:	VAX-11 FORTRAN Language Summary
Order Number:	AV-M763A-TE
Revision:	0
Pages:	48
Original Filename:

OCR Text

FRo L1

WJTWTT.4SRBEgoTE1TATRT&sFet3TBRss¥
s

FORTRAN
Language
Summary

VAX-11

October 1982

VAX-11 FORTRAN
Language Summary
Order No. AV-M763A-TE

digital equipment corporation - maynard, massachusetts

First Printing, October 1982

The information in this document is subject to change without notice
and should not be construed as a commitment by Digital Equipment
Corporation. Digital Equipment Corporation assumes no responsibility
for any errors that may appear in this document.

The software described in this document is furnished under a license
and may be used or copied only in accordance with the terms of such
license.

No responsibility is assumed for the use or reliability of software on
equipment that is not supplied by Digital Equipment Corporation or its
affiliated companies.

Printed in U.S.A.

The following are trademarks of Digital Equipment Corporation:
DEC
DEC/CMS
DECnet
DECsystem-10
DECSYSTEM-20
DECUS
DECwriter

DIBOL
Edusystem
IAS
MASSBUS
PDP
PDT
RSTS

RSX
UNIBUS
VAX
VMS
VT

Eflgflnau
ZK2190

Contents

1.0

2.0
3.0
4.0
5.0

VAX-11 FORTRAN COMMAND FORMATS . . . . . . . . . 2
g e 2
FORTRAN Command . . . . . . . . . .. Foh
3
LINK Command. . - . . « « « suos 5 & & s % & & & » 3
1.2
RUN Command . . . . . . . . . . . . . . . . ... 4
1.3
VAX-11 FORTRAN STATEMENT SUMMARY . . . . . . . . 5
VAX-11 SYMBOLIC DEBUGGER COMMAND SUMMARY. 19
VAX-11 FORTRAN GENERIC AND INTRINSIC FUNCTIONS 22
ASCII CHABACTER SET . . . . .« + <« s 5 5 v 5 5 = 4 # & 38

Symbols and Conventions
Brackets ([ ]) enclose optional language elements.

Braces (] |) enclose lists of items from which one and only one item
must be chosen.

Horizontal ellipses (...) indicate that an item may be repeated one or
more times. If the ellipses are preceded with a comma (,...), the
items must be separated by commas.

Text in blue ink describes language features that are VAX-11 extensions to the FORTRAN-77 standard.

Where to Find More Information
The following documents contain more detailed information:

The VAX-11 FORTRAN Langage Reference Manual contains reference information on the FORTRAN language elements summarized
in this booklet.

The VAX-11 FORTRAN User's Guide describes how to compile,
link, debug, and execute programs written in the VAX-11 FORTRAN
language using the facilities of the VAX/VMS operating system. It

contains other information of interest to FORTRAN programmers,
such as FORTRAN input/output error processing, programming efficiency, compatibility between VAX-11 FORTRAN and VAX-11
FORTRAN-66, and compatibility between VAX-11 FORTRAN and
PDP-11 FORTRAN.

For a list of other related VAX/VMS documents, see the VAX-117 Information Directory and Index.

1.0 VAX-11 FORTRAN COMMAND FORMATS

1.1 FORTRAN Command
FORTRAN [/qualifiers] file-spec-list [/qualifiers]
Qualifiers

[NOJBOUNDS
[NOJOVERFLOW

/CHECK=

[NOJUNDERFLOW
ALL

NONE

/NOCHECK
Specifies whether the compiler generates code to perform runtime

checks

for

the

specified

conditions.

Default

/CHECK=(NOBOUNDS, OVERFLOW, NOUNDERFLOW).

/CONTINUATIONS =n
Specifies the maximum number of continuation lines allowed in
a source statement. Default is n=19.

/INOJCROSS__REFERENCE
Specifies whether a cross-reference listing is generated as part
of the listing output. Default is /NOCROSS__REFERENCE.

[NOJSYMBOLS

/DEBUG=

[NOJTRACEBACK
ALL

NONE
Specifies whether the compiler provides information for use by
the VAX-11 Symbolic Debugger and run-time traceback mech-

anism. Default is /DEBUG=(NOSYMBOLS, TRACEBACK).

/INO|D__LINES
Specifies whether the compiler reads and compiles lines that
start with a D in column 1

in the source program. Default is

/NOD__LINES.

/DML
Specifies that the DML preprocessor is to be invoked.

[INOJF77
Specifies whether the

FORTRAN-77 interpretation

ruies are

used for those statements having a meaning incompatible with
FORTRAN-66. Default is /F77.

/INO]JG__FLOATING
Specifies how the compiler interprets REAL*8, COMPLEX*16,
DOUBLE

PRECISION,

and

DOUBLE

COMPLEX

quantities.

Default is /NOG__FLOATING.

/INOJI4
Specifies how the compiler interprets INTEGER and LOGICAL
declarations that do not specify a length. Default is /14.

VAX-11 FORTRAN Command Formats

1.0 VAX-11 FORTRAN COMMAND FORMATS (Cont.)
/LIBRARY
Indicates that the input file is a text library.

/LIST[=file-spec]

/NOLIST
Specifies whether a source listing file is produced. Default is
/NOLIST (interactive), /LIST (batch).

[INOJMACHINE__CODE
Specifies whether the listing file includes a symbolic listing of
the machine language code generated by the compiler. Default
is /NOMACHINE_CODE.

/OBJECT[=file-spec]
/NOOBJECT
Specifies whether the compiler produces an object module.
Default is /OBJECT.

[INO]JOPTIMIZE
Specifies whether the compiler optimizes the compiled program

to generate more efficient code. Default is /OPTIMIZE.
[NOJINCLUDE

[NOJMAP

/SHOW=

[NOJPROCESSOR
ALL

NONE
Specifies whether optionally listed source lines or the entire
symbol

map

appear

the

source

listing.

/CROSS__

REFERENCE is specified, the symbol map is always generated.

The

default

/SHOW=(NOPREPROCESSOR,

NOINCLUDE,

MAP).

[NOJSYNTAX

n
/STANDARD=

[NOJSOURCE__FORM
g
NONE

/NOSTANDARD
Specifies

whether

diagnostics

for

the

compiler

extensions

generates

informational

FORTRAN-77.

Default

/NOSTANDARD.

[[INOJWARNINGS

Specifies whether the compiler generates | and W diagnostic
messages in response to informational and warning-level errors. Default is /WARNINGS.

1.2 LINK Command
LINK [[command-qualifiers] file-spec[/file-qualifiers]...
Command-qualifiers

[INOJEXECUTABLE[=file-spec]
Specifies whether the linker produces an executable image. Default is /EXECUTABLE.

VAX-11 FORTRAN Command Formats

1.0 VAX-11 FORTRAN COMMAND FORMATS (Cont.)

/INO]JSHAREABLE[=file-spec]
Specifies whether the image generated by the linker has all its
internal references resolved and must be linked with one or

more object modules to produce an executable image. Default
is /NOSHAREABLE.

/MAP[=file-spec]
Specifies whether a map file is generated. Default is /NOMAP
(interactive), /MAP (batch).

/BRIEF
Specifies that the map file contain a summary of the image’s
characteristics

and

list of

contributing

modules

produced.

/FULL
Specifies that the map file contain a summary of the image’s
characteristics, a list of contributing modules, a list of global

symbols and values, and a summary of characteristic of image
sections in the linked image.

/[[NO]JCROSS__REFERENCE
Specifies
symbols

whether
is

cross-reference

produced

part

information
the

map

file.

for

global

Default

/NOCROSS_REFERENCE.

/[[NOJDEBUG
Specifies whether the VAX-11 Symbolic Debugger is included
in the executable image. Default is /NODEBUG.

/INOJTRACEBACK
Specifies whether the linker includes traceback information in
the image file. Default is /TRACEBACK.

File-qualifiers

/LIBRARY
Specifies that the input file is an object module or shareable
image library that is searched to resolve undefined symbols

referenced in other input modules.

/INCLUDE=module-name(s)
Specifies that the input file is an object module or shareable
image library and only module names specified are explicitly
included as input to the linker.

1.3 RUN Command
RUN [/[NO]DEBUG] file-spec

Qualifier

/INO]JDEBUG
Specifies whether the image is run with the VAX-11 Symbolic
Debugger, even if /DEBUG was not specified in the previous

compile or link commands. Default is /NODEBUG.

VAX-11 FORTRAN Command Formats

2.0 VAX-11 FORTRAN STATEMENT SUMMARY
ACCEPT

See READ

Arithmetic/Logical/Character Assignment
vV=e

is a variable name, an array element name, or a character substring name.

is an expression.

ASSIGN s TO v

is the label of a FORMAT statement or an executable
statement.

is an integer variable name.

BACKSPACE ([UNIT-]u[,I0STAT=ios][,ERR=s])
BACKSPACE u

is a logical unit specifier.

ios

is an 1I/0 status specifier.

is the label of an executable statement.

BLOCK DATA [nam]
nam

is a symbolic name.

CALL f[(lall,lal]...)]
f

is a subprogram name or entry point.

is an expression, an array name, a procedure name,
or an alternate return specifier. An alternate return
specifier is *s or &s, where s is the label of an executable statement.

CLOSE (JUNIT=]u[,p][,IOSTAT=ios|[,ERR=s])
P

is one of the following parameters:

"SAVE"

STATUS
DISPOSE
DISP

"KEEP"
‘BELETE"

"PRINT
‘SUBMIT”

"PRINT/DELETE"

"SUBMIT/DELETE"

is a logical unit specifier.

is the label of an exeuctable statement.

ios

is an 1/0 status specifier.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
COMMON [/[cb]/] nlist [[,)/[cb]/nlist]...
cb

is a common block name.

nlist

is a list of one or more variable names, array names,
or array declarators separated by commas.

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

is a list of one or more variable names, array names,

array element names, character substring names, or
implied-DO lists, separated by commas. Subscript expressions and substring expressions must be constant.

clist

is a list of one or more constants separated by commas, each optionally preceded by j*, where j is a nonzero, unsigned integer constant.

DECODE (c,f,b[,|OSTAT—ios|[,ERR=s])list]
C

is an integer expression.

is a format specifier.

is a variable name, array name, array element name,
or character substring name.

ios

is an I/0O status specifier.

is a label of an executable statément.

list

is an /0 list.

DEFINE FILE u(m,n,U,v)[,u(m,n,U,v)]...
u

is a logical unit specifier.

is a constant or variable.

specifies unformatted.

is an integer variable name.

DELETE ([UNIT=]u[,REC=r][,IOSTAT=ios][,ERR=s])
DELETE (u r[,IOSTAT=ios][,ERR=s])
u

is a logical unit specifier.

is a record specifier.

ios

is an I/0 status specifier.

is the label of an executable statement.

DIMENSION a(d)[,a(d)]...
a(d)

is an array declarator.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
DO [s],]| v=e1,e2],e3]

is the label of an executable statement.

is a variable name.

el,e2,e3

are numeric expressions.

DO [s|,]] WHILE (e)

is a statement label.

is a logical expression.

ELSE

ELSE IF (e) THEN

is a logical expression.

ENCODE (c,f,b|,I0STAT-ios|[,ERR=s]) [list|
g

is an integer expression.

is a format specifier.

is a variable name, array name, array element name,
or substring name.

ios

is an 1/0 status specifier.

is a label of an executable statement.

list

is an 1/0 list.

END

END DO

ENDFILE (JUNIT=|u[,IOSTAT=ios|[,ERR=s])
ENDFILE u

is a logical unit specifier.

ios

is an 1/0 status specifier.

is the label of an executable statement.

END IF

ENTRY nam|([pl,p]---1]
nam

is a subprogram name.

is a symbolic name or an alternate return specifier (*).

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

nlist

is a list of two or more variable names, array names,
array element names, or character substring names
separated by commas. Subscript expressions and
substring expressions must be compile-time constant
expressions.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
EXTERNAL I[,I]...
I

is a subprogram name.

FIND (JUNIT=]u,REC=r{,I0STAT-ios][ERR=s])
FIND (u

“r[,IOSTAT=ios][,ERR=s])

is a logical unit specifier.

is a direct access record number.

ios

is an 1/0 status specifier.

is the label of an executable statement.

FORMAT (code,...)

Code

Form

Effect

Alw]

Transfers alphanumeric

Blanks are ignored

Blanks are zeros

Dw.d

Transfers real values

Ew.d[Ee]

Transfers real values

Fw.d

Transfers real values

Gw.d[Ee]

Transfers real values

nHc...c

Transmits characters

Iw[.m]

Transfers decimal values

Transfers logical data

Ow[.m]

Transfers octal values

Obtain record size

Reinvokes optional +

Invokes manditory +

Suppresses optional +

Specifies positional tabulation

TLn

Specifies relative tabulation («)

TRn

Specifies relative tabulation (-)

n characters skipped

Zw([.m]

Transfers hexidecimal values

Suppresses carriage return
Terminates format control

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
Default Field Descriptor Values
Field
List Element

N
N N

BYTE

silele)

N
N N

OO0

m m m

>>P>22>2>>
TN M TC

00O

Descriptor

INTEGER+2,LOGICAL+2

INTEGER+4,LOGICAL+4

REAL+4

REAL+8

REAL+*16

LOGICAL

REAL, COMPLEX~*8

REAL+8, COMPLEX+*16

REAL+16

LOGICAL+1

LOGICAL+2,INTEGER=*2
LOGICAL+4,INTEGER+*4

2
4

REAL+4, COMPLEX+8

REAL+8, COMPLEX+16

REAL+16

CHARACTER+*n

Effect of Data Magnitude on G Format Conversions
Data Magnitude

Effective Conversion

m <

0.1

Ew.d[Ee]

0.1<m<

1.0

F(w-4).d, n("

1.0<m < 10.0

F(w-4).(d-1), n("

10**d-2 <m < 10**d-1

F(w-4).1, n("

10++d-1 <m < 10**d

F(w-4).0, n("

m > 10*+d

Ew.d[Ee]

Carriage Control
Meaning

Character

Overprinting: starts output at the beginning of the current line and returns to the
left margin after printing

Single spacing: starts output at the beginning of the next line

Double spacing: skips a line before starting output

Paging: starts output at the top of a new
page

Prompting: starts output at the beginning
of the next line, and suppresses carriage
return at the end of the line
ASCII NUL

Overprinting with no advance: starts out-

put at the beginning of the current line
and does not return to the left margin after printing

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)

[typ] FUNCTION nam[«n]{(Ipl,p]..-D]
typ

is a data type specifier.

nam

is a symbolic name.

is a data type length specifier.

is a symbolic name.

GO TO s
S

is a label of an executable statement.

GO TO

(slist)[,]
e

slist

is a list of one or more statement labels separated by
commas.

is an integer expression.

GO TO

v][,|(slist)]

is an integer variable name.

slist

is a list of one or more statement labels separated by
commas.

IF (e) s1,s2,s3

is an expression.

s1,52,53

are labels of executable statements.

IF (e) st

is an expression.

is any executable statement except a DO, END DO,
END, block IF, or logical IF.

IF (e1) THEN
block

ELSE IF (e2) THEN
block
ELSE

block
END IF

el,e2

are logical expressions.

block

is a series of zero or more FORTRAN statements.

IMPLICIT typ (a[,a]...)l,typ(a[,al...)]...
IMPLICIT NONE

typ

is a data type specifier.

is either a single letter, or two letters in alphabetical
order separated by a hyphen (that is, X-Y).

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
INCLUDE ~file specification[/[NOJLIST]"

INCLUDE [file specificatian](module-name)[/[NO]JLIST]|"
file specification

is a character constant that specifies the file to be

included.
module-name

is the name of a text module located in a text library.

/[NOJLIST

indicates that the statements in the specified file are to
be in the source listing.

INQUIRE (par],par]...)
par

is a keyword specification having the form:
key = value

key

is a keyword as described below.

value

depends on the keyword.
Values

Keyword
Inputs

fin

FILE

UNIT
fin

DEFAULTFILE

Outputs

ACCESS

BLANK

CARRIAGECONTROL

DIRECT

ERR

EXIST

FORM

FORMATTED

cVv

IOSTAT
KEYED

cVv

NAME

NAMED

NEXTREC

NUMBER
OPENED

ORGANIZATION

RECL
RECORDTYPE

SEQUENTIAL

UNFORMATTED

is a numeric expression.
is a character expression.

is an integer variable or integer array element.
is a logical variable or array element.

is a character variable, array element, or substring
reference.

is the label of an executable statement.
VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
INTRINSIC v[,v]...

\Y;

is an intrinsic function name.

NAMELIST /group-name/ namelist|[[,| /group-name/ namelist]...
group-name is a symbolic name.

namelist

is a list of one or more variables or array names.

OPEN (par]|,par]...)
par

keyword

specification

one

of the

following

forms:
key
key = value

key

is a keyword, as described below.

value

depends on the keyword.
Keyword

ACCESS

Values

"SEQUENTIAL"
"DIRECT"

"KEYED"
"APPEND’
ASSOCIATEVARIABLE

BLOCKSIZE
BLANK

e
"NULL"

"ZERO’
BUFFERCOUNT

CARRIAGECONTROL

"FORTRAN"
"LIST"
"NONE"’

DEFAULTFILE

DISP

(same as DISPOSE

DISPOSE

"KEEP" or "SAVE’
"PRINT"
"QELETE"

"SUBMIT"
"SUBMIT/DELETE"
"PRINT/DELETE"
ERR

EXTENDSIZE

FILE

FORM

"FORMATTED"
"UNFORMATTED"

INITIALSIZE

IOSTAT
KEY

MAXREC
NAME

Vv
keyspec

e
(same as FILE)

NOSPANBLOCKS

—

ORGANIZATION

"SEQUENTIAL"
"RELATIVE"
"INDEXED"

READONLY

—

RECL

RECORDSIZE

VAX-11 FORTRAN Statement Summary

(same as RECL)

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
OPEN (par|,par]...) (Cont.)

RECORDTYPE

"FIXED
"VARIABLE"

"SEGMENTED"

SHARED
STATUS

QLD
"NEW"
"SCRATCH"

"UNKNOWN’

TYPE

(same as STATUS)

UNIT

USEROPEN

Keyword
C

Values
is

character

expression,

numeric

array

name,

numeric variable name, numeric array element name,
or Hollerith constant.

is @ numeric expression.

is a program unit name.

is a statement label.

is an integer variable name.

keyspec

is (e1:e2[:type])
where:

el is the beginning byte of the key field.
e2 is the ending byte of the key field.

type is either INTEGER or CHARACTER.
OPTIONS qualifier |,qualifier...|

qualifier

is one of the following:
/[NO]JG__FLOATING
/[NO]I4

/[NOJF77
/[NO]JCHECK
ALL

[NO]JOVERFLOW
/CHECK=

[NO]JBOUNDS

[NOJUNDERFLOW
NONE
PARAMETER (p=c|,p=c]...)
P

is a symbolic name.

is a constant or compile-time constant expression.

PAUSE |[disp]|

disp

is a decimal digit string containing 1 to 5 digits or a
character constant.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
PROGRAM nam
nam

A symbolic name.

READ (JUNIT=]u,[FMT=|f[,IOSTAT=ios|[,END=s]|[,ERR=s]) [list]

READ f[,list]
ACCEPT f[,list]
u

is a logical unit specifier.

is a format specifier.

ios

is an I/0 status specifier.

is a label of an executable statement.

list

is an 1/0 list.

READ ([UNIT=]u,[FMT=]+[,I0OSTAT=ios][,END=s][,ERR=s]) [list]

READ +[,list]

ACCEPT +[,list]
u

is a logical unit specifier.

denotes list-directed formatting.

ios

is an 1/0 status specifier.

is a label of an executable statement.

list

is an 1/0 list.

READ (JUNIT=]u,[NML=|nl[,IOSTAT-ios|[,END-s][,ERR-s])

READ nl

ACCEPT nl
u

is a logical unit specifier.

is a namelist group-name.

ios

is an I/0 status specifier.

is a label of an executable statement.

READ ([UNIT=]u[,lIOSTAT=ios][,END=s][,ERR=s]) [list]
u

is a logical unit specifier.

ios

is an 1/0O status specifier.

is a label of an executable statement.

list

is an 1/0 list.

READ ([UNIT]=u,[FMT=]f,REC=r[,lI0STAT=ios][,ERR=s]) [list]

READ (u "r,[FMT=]f{,lOSTAT=ios][,ERR=s]) [list]
u

is a logical unit specifier.

is a record specifier.

is a format specifier.

ios

is an 1/0 status specifier.

is a label of an executable statement.

list

is an 1/0 list.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
READ ([UNIT=]u,REC=r[,I0STAT=ios][,ERR=s]) [list]

READ (u

r[,lIOSTAT=ios|[,ERR=s]) [list]
is a logical unit specifier.

is a record specifier.

is an 1/0 status specifier.

ios
S

is a label of an executable statement.

list

is an 1/0 list.

READ ([UNIT=|u,[FMT=|f,keyspec|,KEYID=kn][,IOSTAT-ios|
[,ERR=s]) [list]

READ (JUNIT=]u,keyspec|,KEYID=kn][,IOSTAT=ios]
[,ERR=s]) [list]
u

is a logical unit specifier.

is a format specifier.

keyspec

is a key specifier (see Section 7.2.1.5).

is a key-of-reference specifier.

ios

is an 1/0 status specifier.

is the label of an executable statemert.

list

is an 1/0 list.

READ (JUNIT - |c,|FMT=]f[,IOSTAT-ios|[,ERR=s|[,END-s]) [list]
C

is an internal file specifier.

is a format specifier.

ios

is an I/0 status specifier.

is the label of an executable statement.

list

is an 1/0 list.

RETURN
|i]
is an integer value that indicates which alternate re-

turn is to be taken.

REWIND (JUNIT- Ju[,IOSTAT=ios|[,ERR=s])
REWIND u
u

is a logical unit specifier.

los

is an I/0 status specifier.

is the label of an executable statement.

REWRITE (JUNIT-

|u,|FMT-|f|,IOSTAT

REWRITE (JUNIT-

Jul,IOSTAT

-ios|[,ERR-s]) [list]

is a logical unit specifier.

is a format specifier.

ios

is an 1/0 status specifier.
is the label of an executable statement.

list

is an 1/0 list.
VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
SAVE [a[,a...]

is the name of a variable, an array, or a named com-

mon a block enclosed in slashes.
Statement Function

f(lpl.pl...]) = e
f

is a symbolic name.

is an expression.

STOP |disp]
disp

is a decimal digit string containing 1 to 5 digits or a
character constant.

SUBROUTINE nam|([pl,p]---NI
nam

is a symbolic name.

is a symbolic name or an alternate return specifier (*).

TYPE

See WRITE

Type Declaration

type v|/clist/|, v|/clist/]]...
type

is one of the following data type specifiers:
BYTE
LOGICAL

LOGICAL*1

LOGICAL+2
LOGICAL+4
INTEGER

INTEGER*2
INTEGER*4
REAL

REAL+4

REAL+8

REAL+16
DOUBLE PRECISION

COMPLEX

COMPLEX+8
COMPLEX*16
DOUBLE COMPLEX
CHARACTER-+len
CHARACTERx(+)

is a variable name, array name, function or function
entry name, or an array declarator. The name can op-

tionally be followed by a data type length specifier

(*n). For character entities, the length specifier can be
*len or *(*).
clist

is an initial value or values to be assigned to the immediately preceding variable or array element.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
UNLOCK ([UNIT=]u[,I0OSTAT=ios||,ERR=s])
UNLOCK u

is a logical unit specifier.

i0s

is an 1/0 status specifier.

is the label of an executable statement.

VIRTUAL a(d)|,a(d)]...

a(d)

is an array declarator.

WRITE ([UNIT=|u,[FMT=]f[,I0OSTAT=ios][,ERR=s]) [list]
PRINT f],list]
TYPE f[,list|

is a logical unit specifier.

is a format specifier.

ios

is an /0 status specifier.

]

is a label of an executable statement.

list

is an 1/0 list.

WRITE ([UNIT=]u,[FMT=]+[,I0STAT=ios][,ERR=s]) [list]
PRINT +[,list]

TYPE +|,list]

is a logical unit specifier.

denotes list-directed formatting.

ios

is an 1/0 status specifier.

is a label of an executable statement.

list

is an 1/0 list.

WRITE (JUNIT=]u,[NML=]nI[,IOSTAT=ios]|[,ERR=s])
PRINT nl

TYPE nl
u

is a logical unit specifier.

is a namelist grbup-name.

ios

is an 1/0 status specifier.

is a label of an executable statement.

WRITE ([UNIT=]u[,IOSTAT=ios][,ERR=s]) [list]
u

is a logical unit specifier.

is a label of an executable statement label.

ios

is an 1/0 status specifier.

list

is an 1/0 list.

VAX-11 FORTRAN Statement Summary

2.0 VAX-11 FORTRAN STATEMENT SUMMARY (Cont.)
WRITE (JUNIT=]u,REC=r,[FMT=]f[,|OSTAT=ios][,ERR=s]) [list]

WRITE (u "r,f[,ERR=s]) [list]
u

is a logical unit specifier.

is a record specifier.

is a format specifier.

ios

is an I/0 status specifier.

is a label of an executable statement.

list

is an /0 list.

WRITE (JUNIT=]u,REC=r],IOSTAT=ios][,ERR=s]) [list]

WRITE (u r[,IOSTAT=ios][,ERR=s]) [list]
u

is a logical unit specifier.

is a record specifier.

ios

is an 1/0 status specifier.

is a label of an executable statement label.

list

is an /0 list.

WRITE (JUNIT=|c,|FMT=f][,IOSTAT=ios]|,ERR=s]) [list]
C

is an internal file specifier.

is a format specifier.

is the label of an executable statement.

ios

is an I/0 status specifier.

list

is an 1/0 list.

VAX-11 FORTRAN Statement Summary

3.0 VAX-11 SYMBOLIC DEBUGGER COMMAND SUMMARY
CALL NAME [(argument-list)]
CANCEL ALL

CANCEL BREAK [/qualifier] [address-expression]
/ALL

CANCEL EXCEPTION BREAK
CANCEL MODE

CANCEL MODULE [/qualifier] module [,module...]
/ALL

CANCEL SCOPE

CANCEL SOURCE

CANCEL TRACE [/qualifier] [address-expression]

CANCEL TYPE OVERRIDE

CANCEL WATCH [/qualifier] [address-expression]
/ALL

DEFINE symbol=expression [,symbol=expression...]
DEPOSIT [/qualifier]...address-expression = data
[,data ...]

/ASCIll:length
/BYTE

/DECIMAL
/D_FLOAT

/FLOAT
/G_FLOAT

/HEXADECIMAL
/H_FLOAT

/INSTRUCTION
/LONG

/OCTAL

/OCTAWORD
/QUADWORD
/WORD

EVALUATE[/qualifier]...expression [,expression...]
/ADDRESS

VAX-11 Symbolic Debugger Command Summary

3.0 VAX-11 SYMBOLIC DEBUGGER COMMAND

SUMMARY (Cont.)
EXAMINE [/qualifier]...addr-expr[:addr-expr]
[,addr-expr[:addr-expr]...]

/ASClIl:length
/BYTE

/DECIMAL
/D_FLOAT

/FLOAT

/G_FLOAT
/HEXADECIMAL
/H_FLOAT

/INSTRUCTION

/LONG
/NOSYMBOLIC

/OCTAL
/OCTAWORD
/QUADWORD
/SYMBOLIC

/WORD
EXIT
@file-spec

GO [address-expression]
HELP topic [subtopic ...]

SEARCHY][/qualifier [/qualifier]] range string
/ALL
/NEXT
/IDENTIFIER

/STRING

SET keyword [/qualifier] parameter
SET BREAK]/qualifier] address-expression
[DO (cmd[:cmd...])]

/AFTER

SET EXCEPTION BREAK
SET LANGUAGE language-name
SET LOG
rm

SET MARGIN

Im :rm
Im

SET MAX_SOURCE__FILES
SET MODE modekeyword [,modekeyword...]
SET MODULE [/qualifier] [module-name [module-name] ...]
/ALL

VAX-11 Symbolic Debugger Command Summary

3.0 VAX-11 SYMBOLIC DEBUGGER COMMAND

SUMMARY (Cont.)
SET OUTPUT parameter[,parameter...]
SET SCOPE scope [,scope ...]
SET SEARCH parameter[,parameter]
SET SOURCE [/MODULE=modname] dirname/,dirname...]
SET STEP parameter[,parameter...]
SET TRACE [/qualifier] [address-expression]
/BRANCH

/CALL

SET TYPE [/qualifier] [address-expression]
OVERRIDE
SET WATCH address-expression

SHOW BREAK
SHOW CALLS [integer]

SHOW LANGUAGE
SHOW LOG
SHOW MARGIN
SHOW MAX_SOURCE__FILES

SHOW MODE
SHOW MODULE
SHOW OUTPUT
SHOW SCOPE
SHOW SEARCH

SHOW SOURCE
SHOW STEP

SHOW TRACE
SHOW TYPE

SHOW WATCH
STEP [/qualifier] [integer]
/INSTRUCTION
/LINE

/INTO

/OVER
/NOSOURCE
/NOSYSTEM

/SOURCE
/SYSTEM
TYPE [[modname\] line-number[:line-number]]

VAX-11 Symbolic Debugger Command Summary

VAX-11 FORTRAN Generic and Intrinsic Functions

ccglidouUuuslIee0sbS|j)ouO](DBBe8]3(18(69381p.6)186p8)p) aNSanVnOsNiL0ovsl NAdSaVvNnNOs.viV0Lo1.sladid 8y8yp++*+111vvv333ddyYd panuijuodp81E8p)++v+R1131uYvvvo333GPdyY1+xau(ebed

u$Il0S)BB aSSaNaNIn0s0vSio0.Odsa0d1oadD 9899881+x1+1+XXL11133+vXvv11X333ddy3yTyII11NNddOOWWDOODD 89998811xx+++LXX1+T==33vXvX113v3ddyTd3TINdY10NdOO0WDOODD

goulS NIS NNaSIIN0SSI0OSDO 99A9111R+-+V111EvvvL333Yyd 1999V1113+++Y111vvvP333+YYY
aLDsoNVo0 91+T7v3Y 91+1v3dy

8+1v3y
p+1v3d

8+1v3y
y+1v3y

NISVd
NISY

NISV

UIS 21y2V
B¢ ,®UIS

VAX-11 FORTRAN Generic and Intrinsic Functions

8InjosqygeNIeAsgvsgavilZ2+43D3LNINIZ2*43ID3

yue|e HNV.Ld8+1v3y8+7v3y
HHsSSNagvOIdSoa2DD 99981L1++*1777vvv333yyY 999811+L+7+7vvv333yyY

ZoljoyyusqyloiseDudeABjH¢8deul/Iglseo) HNSIOS adsHHNNggSVIINv0YSSvaDOLA1lndVvDaD 998vy1L+1+1**vX713v3y31YddNODpanujuo?)98gpyu+1L+o*7+1v}7v3xv3aaY3yyuy(ebed

HsNgVvLo1D 981*+X*31vd3yIN0D 9v31Y+y7v¥3+y

ooulyyot,gy.-cgulieuujsebbcuuee]/]be(e2162p) AZsZNaVNvYViLLYlVAsZZsaNgNvyVVivYiLlLrvVlaY¥ZgEvy¢++R+1*1v1E"v3vR43a3NyIyyO]d3LI1N2I2v¢8tE¥+*3*Ld1v1yE3v3vRD3a3vNyyy+1N1I22

pH+oLl1Nuj0svqVba3udAaeYy]Hy Es2eRaEvIRiNr

8I+N1vI3dy
sjuawnbay

VAX-11 FORTRAN Generic and Intrinsic Functions

—- +1IA=EREINVOID0T

LLININY 1——LLLIxNNNNN3IIQOzDNNiIrIYGDlIP. 2ZL299988¥+¥+11L+++*I*1L*1114V1+V77vvv3O1vvv333Iv22O3yyy3DII3YyODDL00N1I1 9ZEy821++R*11E4vv3R33INDyyIYL1NAIt

EPCUAdL+[}Ee(X]I3eN-)R0uA4b8i7sSxRugOIOUN4 1LLIIXNNI3INzNQDI =LL1LIINXNN3INNIQOZQONNADI1IPIlIrP I298y981glv+V+e1+3L77OH+11Y+vvII7vd33DDv3aa¥O3yyy+TLNLI+panuiuod)uPZZpZEEo222*RR**HH44H4EE1I333xRIDDIIIaODOINNIuAI3LL3L(aNNNeI=2IIIbed

91PO+T719VvO3vNd3SY
28

VAX-11 FORTRAN Generic and Intrinsic Functions

J8+Tvab3aHju¥lE-C0I1d-H0+7v3Y)(uolsieAu09 L 1v0O14d X1IL40I1r4a Z7*+d13vI3DYILNI N8+1v134asy=E1E
= 7*HIOILNI 91+1v3y

U1gU90I0OO«¥R1IIXE+HgSS°3T+vII1yTABBd3ydARY3yIUU-YNOO0-DDOl10eD-)oOO1-|}}e81w4b8o‘9a6bl81j8yxu+)1iXU7uo)3]|vmT)93]|dY(IUs(NoujOiIouDsSiIswo8inAaBuUA0OuiDoyd z2AZ21'ibiL!lLLC'} ZXp1e4XR0EEl3dl10eN)4OIR e.——--r=1 IX—-31a1LL.1X4OvL1v37lxOo0131To44a 9*EZ78v98Zy9v8Z21¢LH211+++L+R+**»*yIX41X11d4E4*TO3T3v33vv3XNIOII1D31333O7DTOadIIyydNyD+3D1TILIII4dSdLILNNNIIN=NIOONINIDDOODDpanunuo)uo8887y9Z999x*++++111LL}HXXX1+1+++x337a3v1v1171ITITu13v3vvvOa1T1dDYy333y(ddIIyyydeILNbNNOeOOIdDDD

Ce«le
30

VAX-11 FORTRAN Generic and Intrinsic Functions

aqikises)om)(siuswnbie OXVINOXVINI¢*d3O3LNI¢*d3O3LNI
EONIAIPrY LyN+I1vP3+Yd3O psanuluo?)uyo+*1d1v3X8OadIuL(N8DIbed

I
X
V
I
N
G
8
+
1
v
3
y
8
+
1
v
3
y
Buoweay)yJuswnbie‘1s1)aJ4ay)Isnw EONXVTIANYIY p*xdv3Od3LNI Pv+1v3dy

Wnwslsuuieii)xnnxeiieaapdwu))ez8ay8y}l(Uwwennwuiwuiixwewen8jnejAeABuWowowJe} XVIN IOIOOEOLXXXXNVVVVIIIIIAAAANNPGIPYPRO 9Pyp¢pv8i*++*+d1dd713v3v93OD3OyI3y3LdLLNNNIII LPYyr8¢9N+d*1Ix173d+d3PvO37I*33OvOdy3III3YLLLONNN3III

Op(x*UNde3—IOCNIeL'PNbIe)uiw (1os)eumsaw)n|B¢Oi*Ned3IO3WLNI

NODISIP p+4IOILNI EIENNA

NNDDIISSdD 19v13+y1v83+y 89+11+v13vY3y

weEpxiIHaEOiILrN p*Nv7IOIy+3Say

VAX-11 FORTRAN Generic and Intrinsic Functions

sasistmewlwj)JuigosAojwjjJiaiuaeaads|di))wboaueo||ed|p)eaw98oAuyiIlbnsyoeSjsNs|oAyu(XaN1la|9VYCOeuou(Usouqg 1_ON dL1d4A40ONHIoV3SrvPiIIrrP ¢PpNL+*+NI"HHd3P1y3I4I+9DOddI=3LLEONNEII3penuiuog)uopL1LPNN++1IIdHx3I7vaP¢IA+u**DOHHdI(I33LeLIObNDNO3eII3d

aulnoiqgns

81gess9iimywjBBsm1luouuioluuis8oosiluiitenngwgypp]ijonuuIeHe"A9b‘ooXu0lu(N0eddItIYi)ss1VeSexee"a8N3syIiio|t}yNOeiqYsooX(aL3ddsnC"ojjesH((e|JssanO1ye1nubbiqggjsnSqo1(i+C1IeygyAj1ouN-m€weo11+laCseCAes 1S14dAS3ON0i5HlVg13S4IlI9 1s1dsHA3ii4O50sNslH33V4gglSI1aliIl1rl9g pE¢¢yL¢N**+*EIHdddNI333¢IdDN9O9*OIDDd]3IL33LILT1oILNNNOII3I ¢Lp¢N+**1I*d4Vdy¢v3IV3O*ODO9dID33O1LL1I0DONNT03II1

VAX-11 FORTRAN Generic and Intrinsic Functions

isj“¢g||ofeDiSsao[y‘eYjeyjyA)idjnl|nSmipboOaylSuauwo|ulynwnaei)sVjud|wooA"AjslnLal0qj«bn4geoegji0|eueae(iaalJ@bnjJSeoyoj0J|wuoeO‘laajmN1‘nuIJlHbYDaSsoeeOy0Dwa)ds‘S7nyNbV}I|J‘eiSoaJ1eyNAd‘uHeW©s1aOJ‘00wliNS8be1nIqA‘dbdSAuuDJJ4Neeo0Iy‘jyS)LH4eeS0saO1‘ll‘0DASbbNS|DI‘uU[OeeSe|yVDynO)‘b)I}Da04sA1‘L0N0Io0Ag}DWSA‘4V[O'SNzY8eT0AOqnV1V8b8L‘JsZDyNd‘}II00‘se}SW1nNa"wa49VD0Wb0wL47anu8‘zeaSqbNyOuiV}‘J.selL4Vy‘A0L4pso‘D|1eSe0aH8nOyiT1b}b0ODsTeV[pD0eA‘}aNAl1'"yN0i0JS]V4seHO8LndzjOYwuV8T|s31|D‘A7wyg‘G17nD'0UZb1ydlioNni'zesVIsdL8SnuslyeYw|}l4pp'0j‘}aedo1njsauesNHaI8SDly9Y)SAYs(tdOoj:8|u'40ynsA0}0wpHN)1noI3[ebwHSL1dViYOOi'eAoVSD0u9HslAtd'€iVDp‘dSYaHosjOlneOoja9dJeyVv)At IPV*OIVDOITD0P1+

S310N

‘0S0VA40JSOVD ShW8I SS9|ueY)Jo|enba0]'}

yibus| 0 (1

1IO‘isSusjYijunos|jew1aI2nlRNb)IYiED8eAy|}suy[o}|lQsjSsVuaisadwnxnjsbeiAe1JeOyI}8syn}wse9yQBB 42b 31H9Y7HOI HH3I1LOOVVHHVVYHHOO vEI*VROEIVRDON0I]TD01P2T+

‘soa.bap 08| = }nseJ > saaubep 08L- SI AZNVYLVD 'AZNV.Ld ZNVYLV

J0 @n[BA 83U} UBUM "@ANIsod s1 }nsal 8y} ‘eAlisod sI GgNYLVYD 10 ‘AZNVLVA ‘AZNV.LY Jo luswnbie isil 8yy JO SnjeA 8y} |

'saa4bep ul sl ZNV.LVD 10 'AgNvLva

"SUEIped
'aNISVA
'ANISVO‘SOOV
‘dSOOV‘'SO0VA
‘ANVLY
'ANVLvVa
‘dgNV1Y
8yl
40 1Ins8J
'NISY syl
'NISVAJO §nses
‘NISVOdNISVY
‘NVLY 'SOOVO
‘NVLvVd‘dS0OVA
'NV1VD'‘dSOOVD
'ZNVLY
40 'ZNVLVA
Ul SI NV LVO‘GNYLIVD

VAX-11 FORTRAN Generic and Intrinsic Functions

puBwWWOJelienbSIUl10840gx4IDTILNISenjeA§I8ly|ON/JelenbS|UlJ0H8

J-a-UepSJyOuNU]IROsegOSYwMo}I0isuIB1UNaubMA8X)oiNUzTdns4"O1NeoUsD|dyueO1I|)nIBpJN"SyyOaYD9S}IyIS8“u1bpBUAyLomiuSNlUs@WIeNOUS1DElBse)*D1LEiJoL}N)eU4I-SbOJQXeaIul8|jyNVSsuAyI“lwBLXnLA‘NibUNIyaeiOOuyAN!DsieOYwbyUH"oJneNj1OLbwAu]NHajilSIOueTUNa‘oHOylpi“)yaueBIdbel|NoeIuYanpNl‘iybG)yumaIJdaueABwo“])adLn[iNe8bo0ajeIu}iyodNn)eJOy‘sTalJ}yX8uejXs3}‘o1aweOunylmJe|jb)u/eia“sYBedEwNuyAX8Unsmu)VBybsI)}iBaNwYepun91iIoub01SrnNi|}+odIeiP[1usNdaBnjlUoy3paOuYJyu)Ia3}ueA1J‘sPUgau(OLQxwsEDnXgaebI|UnYsdZOjbiew[u}moluJe0ddj8BnWuy)ieIlai}o8On|xdJ8jgsUyapneI|}lao+sdaUpAs4wyOJs3o}ueO1oud8piI9asnLb}JliN0ojeBwIadAIe|iwaBdJlsYxosaDi‘1uNaJ|'efopySudele)UAsOwjioI4neudl}pBAsOo9iuUw‘UeNoan}}dboj7uAye1U}gAe/l

5.0 ASCIl CHARACTER SET
ASCII
Decimal

Number

NUL

Null

SOH

Start of heading

STX

Start of text

ETX

End of text

EOT

End of transmission

ENQ

Enquiry

ACK

Acknowledgement

BEL

Bell

Backspace

Horizontal tab

Line feed

Vertical tab

Form feed

Carriage return

Shift out

Shift in

DLE

Data link escape

DC1

Device control 1

DC2

Device control 2

DC3

Device control 3

DC4

Device control 4

NAK

Negative acknowledgement

SYN

Synchronous idle

ETB

End of transmission block

CAN

Cancel

End of medium

SuUB

Substitute

ESC

Escape

File separator

Group separator

Record separator

Unit separator

Space or blank

Exclamation mark

Quotation mark

Number sign

Dollar sign

Percent sign

Ampersand
Apostrophe

Left Parenthesis

Meaning

Character

)

Right parenthesis

Asterisk

Plus sign

)

Comma

Minus sign or hyphen

Period or decimal point

Slash

Zero

One

Two

Three

Four

Five

Six

ASCII Character Set

5.0 ASCII CHARACTER SET (Cont.)
ASCII

Decimal
Meaning

Character
Seven
Eight

\9‘9‘—'/'—'N-<><§<C—ICDJJO‘UOZ§I_XL_IG)THTIUOUJID@'O\/ | A =

Nine

3 - X7 TISQ
*T0 Q0 oT®

Number

Colon

Semicolon
Left angle bracket
Equal sign

Right angle bracket

Question mark
At sign

Uppercase A
Uppercase B

Uppercase C
Uppercase D
Uppercase E
Uppercase F

Uppercase G
Uppercase H
Uppercase |

Uppercase J
Uppercase K
Uppercase L

Uppercase M
Uppercase N
Uppercase O
- Uppercase P

Uppercase Q

Uppercase R

Uppercase S
Uppercase T
Uppercase U
Uppercase V

Uppercase W
Uppercase X
Uppercase Y

Uppercase Z
Left square bracket
Back slash
Right square bracket

Circumflex or up arrow
Back arrow or underscore
Grave accent
Lowercase a
Lowercase b
Lowercase ¢
Lowercase d
Lowercase e
Lowercase f

Lowercase g
Lowercase h
Lowercase i
Lowercase |
Lowercase k
Lowercase |
Lowercase m

ASCII Character Set

5.0 ASCII CHARACTER SET (Cont.)
ASCII

Decimal

Number

Meaning

Character

110

Lowercase n

111

Lowercase o

112

Lowercase p

113

Lowercase ¢

114

Lowercase r

115

Lowercase s

116

Lowercase t

117

Lowercase u

118

Lowercase v

119

Lowercase w

120

Lowercase x

121

Lowercase y

122

Lowercase z

123

Left brace

124
125

I
|

Vertical line
Right brace

126

Tilde

127

DEL

Delete

ASCII Character Set

||
I

]
Tt

se=s

BImn

Tl
-

:. )

- "I:-' .- l..'. =

.--

)

= l.. )

)

.-'
'.l ..lr-:l.s.r..
=

.
T

-.-*ml. L]

]
R

BEESS
S
A
=
L]

)
j

T
:

s
.