Control Information List, Read 2 PNAME, AB, Hits | Intel fortran-80

FORTRAN-SO

Input/Output

The list of control information specifiers is:

[UNIT =] unit [FMT =] f REC = recno IOSTAT = stname ERR = stl

END = stl

U nit specifier Format specifier Record number specifier I/O status specifier Error specifier End-of-file specifier

6.3.1.1 Control Information List

The control information list must contain a unit specifier. If the second form of the READ statement shown above is used (that is, if no unit is specified), the unit read is the default unit.

The 'ctl-list' may contain, at most, one of each of the other specifiers.

The following sections 6.3.1.1.1 through 6.3.1.1.6 describe control list specifiers in detail.

6.3.1.1.1Unit Specifier. The unit specifier has the same interpretation as for the OPEN statement (section 6.2.1.1). In addition, for data-transfer I/O statements, 'unit' may be an asterisk. If this is the case, the specifier identifies a particular processor-determined external unit.

The unit specifier may also point to an internal file (that is, 'unit' may be the name of a character variable, character array, or character array element name). In this case, 'ctl-list' must contain a format identifier (other than asterisk) and may not contain a record number specifier.

If the optional 'UNIT ='is omitted, the unit specifier must be the first item in 'ctl- list.'

Example:

READ (2) PNAME, AB, HITS

6.3.1.1.2Format Specifier. If 'ctl-list' contains a format specifier, the READ state- ment is aformatted I/O statement; otherwise, it is an unformatted I/O statement.

The format of this specifier is

[FMT =]f

where 'f' is one of the following:

•The label of a FORMAT statement in the same program unit as the READ;

•An integer variable ASSIGNed the label of a FORMAT statement;

•A character array name, character variable name, or character expression containing a format specification;

•An asterisk (*) specifying list-directed formatting (section 6.4.4);

•An integer, real, or logical array containing a format specification as Hollerith data.

If the optional 'FMT ='is omitted, the format specifier must be the second item in 'ctl-list' and the first item must be the unit specifier without the optional characters 'UNIT =.'

6-11

Image 71

Intel fortran-80 manual Control Information List, Read 2 PNAME, AB, Hits, FMT =f

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Chapter Programming Guidelines Illustrations Glossary FORTRAN-SO Comment Lines Chapter Introduction to FortranAn Introductory Example Output Statements Type StatementInput Statements Value Assignment Statement Nonexecutable Statements Summary Of FORTRAN·SO StatementsProgram Termination Executable Statements Format Order of Statements Fortran Program Structure Program Units and ProceduresChapter Fortran Concepts Program name Prog RAM StatementStatements and Lines = 8*C + D* *2/E Fortran Statement ElementsCharacter Set #Pol.1ndSign B52 Constants and Variables Arithmeticoverflow Error Murphyslaw Sl#d ...b Where+64101 #14010 #4567Q +#AF2CH Sqdiag = Sqrt 2*S* *2 Sperim = 4*S Sqarea = S**2 Relational Expressions OP1 NOT.OP1 True False False True If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVGEXP1 operator EXP2 EXP1 EXP2 operator Stop OP1 OP2 OP1 .NEQV. OP2 Precedence of Operators 15/3 + 18/9 = 5 + 2 = 15/3 + 18/9 = 15/3 + 2 = 15/5 = Scope of Symbols Call ROUT1A, 3.72 Notational ConventionsCall sub arg,arg Page Integer Type Statement Chapter Defining Variables ARRAYS, and MemoryType Statements Real Type Statement Va,luernustueiA, Qp4 Logical Type Statement Len Aryd* len Character * len, name ,name Character TICTAC3,3 Logical ,3,3 Array DefinitionImplicit REALA-B, D-H, Character C Implicit Integer I-N, Logical O-l ARRAY3,MI00LE,THIRD Dimension StatementLogical Table Integer Array Dimension ,3, ARRAY3,3,3 Kinds of Array Declarators Ary s ,s Dimension ,3Properties of Arrays Referencing Array Elements ARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Assignment Statements Arithmetic Assignment Statement CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = Gehrig = expLogical FLAG, ,3 = char R*c Data StatementAssign stlTO name Assign 1010 to LOOP1 Goto LOOP1 Data Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Equivalence StatementData I,J,K/10,20,301 Fpnumb Common StatementReal Fpnumb Array List Block Data Subprograms ZEROS/1 0 Block Data StatementBlock Data name Computed GO to Statement Program Execution ControlsTransferring Program Oontrol Unconditional GO to Statement Assign 10TO Start Gotostart Assign 999 to Done Assigned GO to StatementArithmetic if Statement If Done Pause If .NOT. Done GO to Start Logical if Statement6 IF, Else IF, and Else Blocks Done = a * *2 .GT **2 Else if exp then Block if StatementElse if Statement If exp then Else if Flag .EO then Write 6,40 Fedtax Else StatementEND if Statement If Flag .EO then Do Statement Loop Control StatementsOperation of a do Loop CHARACTER*12 Pname Program Termination StatementsContinue Statement Continue Pause BREAK12 Pause StatementStop Statement Pause Intrinsic Functions Chapter Functions and SubroutinesIntrinsic and Statement Functions Intrinsic Sqrt Intrinsic EXP, LOG, LOG10 Intri Nsic StatementStatement Functions Intrinsic tunc ,tunc 156.8 Function Statement External Procedures Total = Total + Arrayk 100CONTINUE Return END SubroutinesFunction Subprogram Limitations Do 100 K = 1 SU Brouti N E subdum,dum Subroutine StatementRetu RN Statement Program CALL.. Subroutine External proe ,proe Save StatementExternal Statement Save lebl ,Iebl Call Statement Arguments And Common Blocks Revisited Association Of Arguments Common BlocksDummy And Actual Arguments Agreement Of Argument Lengths Function FA,B,C FX, YPage File Properties Chapter INPUT/OUTPUTRecords, Files, And Units Record Properties External And Internal Files File ExistenceFile Name File Position Unit Properties File Access 1.2 1/0 Status Specifier File-Handling StatementsOpen Statement Unit Specifier File Status Specifier Error SpecifierFile Name Specifier Formatting Specifier Access Method SpecifierAccess = Sequential Access = SEQUENTIAL,FORM = Formatted Blank = blnk Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcrBlank Specifier Form = FORMATTED,RECL=80 Close 3, IOSTAT= ERRFLG, ERR= Close StatementOpening a Connected Unit Close close-list Backspace Backspace StatementRewi N D Statement File Disposition Specifier Endfile arg-list Data-Transfer 1/0 StatementsEndfile Statement Read Statement FMT =f Control Information ListRead 2 PNAME, AB, Hits Assign 25 to Infmt Read 2,INFMT Pname Read 2,25 PNAME, AS, HitsRead 25, Pnam E, AS, Hits Write ctl-list out-list Input ListImplied-DO List Print 120, PNAME, AVG Formatted And Unformatted Data TransferPrint Statement Unformatted Data Transfer Printing Formatted Records Formatted Data Transfer Stl Format flist Format Statement Is Ff ± Y1 Y2···Ye OY1 Y2Y1 Y2 Y3 Z5editdesctiptor Either a sjgu ora letter indicatingthebas¢ Format 1X, A12, 4X, F4.3 Write 7,100 Itstno Format Thisis the Test NUMBER,2XWrite 7,100 DollytSigfjl$ijitrrrg· Read 2,50 INTNUM, Fpnum Format A20, $ List·Directed FormattingList-Directed Input Paint 25, Pname List-Directed Output Page Program Documentation Problem DefinitionChapter Programming Guidelines Program Development Level Two Refining The Problem DefinitionLevel One Write unit, 60 EMP, HRS, GRPAY, Netpay Format flist Otherwise Print Employee Data and Update Totals ElseFinal Coding Level Three Crossing Unit Lines Fortran CodingFunctions And Subroutines GO to Statement PI = ReferencesReminders = 2217*r* *2 Programming Guidelines Statement Summary Appendix a FORTRAN-80 Statement SummaryStatement Sequence ERR = stl Stat Iostat =Stname Status = Continue execution provides END FORTRAN-80 FORTRAN-80 FORTRAN-SO Iostat = Return Rewind Statement Subroutine Statement Category Executable Text Reference .2.2 Intrinsic Function Summary Appendix B Intrinsic Functions Category Function Arguments Int-12.8 = Page Hollerith Constants In Data Statements Appendix C Hollerith Data TypeHollerith As a Data Type Hollerith Constant AEditing Of Hollerith Data Hollerith Format Specification Nonstandard Extensions To 1977 Fortran Appendix D Extensions to Ansi FortranStandard Extensions To 1977 Subset Differences From 1966 Fortran More Specific Semantics Than 1977 Fortran FORTRAN-80 Page Ascii Codes Ascii CodesPage Compiler Extensions Appendix F 8080/8085 Processor DependenciesProcessor Limitations On Language $REENTRANT Where the $must be in columnCall Input port, var Call Output port, exp Call INPUT1, TEST1 Call OUTPUT2 $0077 Default Data LengthsInterpretation of do Statements Including Source Files F1MYPROG UNIT4 LP, Unit 5 Fosysin Unit n = device Index Block Data Function Subroutine Index Page Page Page Inter Postage will be paid by Addressee WED Like Your Comments Request for Readerscomments 111111 Page Inter