FORTRAN Reference Manual

Statements
FORTRAN Reference Manual—528615-001
7-64
INQUIRE Statement
with A, X, Y, and Z are character type and represent character data that is 15
characters long.
IMPLICIT CHARACTER*15 (a, x-z)
•
The data type of an item declared in a type declaration statement overrides the
type specified in an IMPLICIT statement. The following statements declare that
symbolic names that begin with the letters M through Z are type real and names
that begin with C are type character with a length of 15:
IMPLICIT REAL (m-z), CHARACTER * 15 (c)
INTEGER margin, point of sale
CHARACTER *20 city
DIMENSION net(10)
The variable names MARGIN and POINT OF SALE are explicitly declared to be
integer, and CITY is a character variable with length 20. The data type of NET
defaults to real.
Examples
IMPLICIT INTEGER*4(a-e), DOUBLE PRECISION(f-h)
IMPLICIT CHARACTER*20 (i,j,l-o)
INQUIRE Statement
The INQUIRE statement ascertains the properties of a file or the properties of the
connection of a specified unit.
[UNIT=] unit
is a unit specifier. unit is an integer expression whose value is in the range 1
through 999 that identifies the unit for which information is to be returned.
FILE = file-name
is a file specifier where file-name is a character expression that specifies the
name of the file for which information is to be returned. The file might neither exist
nor be connected to a unit. For information about the format of file names, see the
Guardian Programmer’s Guide.
INQUIRE ( [, inq-spec ]... )
UNIT=[] unit
FILE=filename


