Access Method Specifier, Formatting Specifier | Intel fortran-80

Input/Output

FORTRAN-SO

If 'OLD' or 'NEW' is specified, the FILE specifier must be present also. An 'OLD' file must exist already; a 'NEW' file cannot exist already.

The 'SCRATCH' option must not be specified with a named file. When it is specified with an unnamed file, the file is connected to the specified unit for the duration of program execution or until a CLOSE statement is issued for the same unit.

If 'UNKNOWN' is specified, the file status is processor dependent.

Example:

OPEN (3, FllE= 'MYPROG.SRC',STATUS = 'NEW')

6.2.1.6 Access Method Specifier

The format of the access method specifier is

ACCESS = ace

where 'acc' is a character expression evaulating to 'SEQUENTIAL' or 'DIRECT' (see section 6.1.2.5). If the ACCESS specifier is omitted, the default is 'SEQUEN- TIAL'.

If the file already exists, the specified access method must be allowable for that file. For a new file, the processor creates the file with the specified access method. If the access method is 'DIRECT', the record length specifier (6.2.1.8) must also be pre- sent in 'open-list.'

Example:

OPEN (3, FllE='MYPROG',STATUS='NEW',

&ACCESS = 'SEQUENTIAL')

6.2.1.7 Formatting Specifier

The formatting specifier states whether a file is being connected for formatted or un- formatted input/ output. Its format is

FORM = (mat

where 'fmat' is a character expression evaluating to 'FORMATTED' or 'UN- FORMATTED'. If the FORM specifier is omitted, the default value is 'UN- FORMATTED' when the file is being connected for direct access, and 'FORMAT- TED' when the file is being connected for sequential access.

If the file already exists, the specified formatting must be legal for that file. For a new file, the processor creates the file with the specified formatting.

Example:

OPEN (3, FllE='MYPROG',STATUS='NEW',

&ACCESS = 'SEQUENTIAL',FORM = 'FORMATTED')

6.2.1.8 Record Length Specifier

The record length specifier identifies the length of each record in a file being con- nected for direct access. Its format is

RECl = ree/en

where 'reelen' is a positive integer expression.

6-6

Image 66

Intel fortran-80 manual Access Method Specifier, Formatting Specifier, Record Length Specifier, Access = Sequential

Contents

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