Manuals / Intel / Computer Equipment / Laptop

Intel fortran-80 manual Examples

Models: fortran-80

1 130

Download 130 pages 742 b

Page 72

Manual background

Input/Output

FORTRAN-SO

If the asterisk option is selected, 'ctl-list' must not include a record number specifier. If the unit specifier is an internal file, the format specifier must be present, but can- not be an asterisk.

Examples:

READ (2,25) PNAME, AS, HITS

25 FORMAT ...

READ 25, PNAM E, AS, HITS

25 FpRMAT ...

ASSIGN 25 TO INFMT

READ (2,INFMT) PNAME

25FORMAT ...

READ (2, *) PNAM E

6.3.1.1.3Record Number Specifier. The record number specifier is included in 'ctl- list' if and only if the file to be read is connected for direct access. It has the format

REC = recno

where 'recno' is an integer expression whose value is positive. The value of this ex- pression is the number of the record to be read.

Examples:

READ (2, REC = 20)

READ (2, REC = K)

READ (2, REC = K+ 1)

6.3.1.1.4Input/Output Status Specifier. The 110 status specifier, 10STAT, is essentially interpreted as it was for the OPEN statement (section 6.2.1.2). In the case of data-transfer 110 statements, however, the variable 'stname' is also assigned a negative value at end-oF-file.

6.3.1.1.5Error Specifier. The error specifier has the same interpretation as for the OPEN statement (section 6.2.1.3).

6.3.1.1.6End-Of-File Specifier. The format of the end-of-file specifier is

END = stl

where 'stl' is the label of an executable statement in the same program unit as the statement containing this specifier.

When the end-of-file is detected during a read operation, execution of the READ statement terminates, 'stname' is assigned a negative value (6.3.1.1.4), and execu- tion continues with the statement specified by END.

If END is specified, the file must be connected for sequential access.

Example:

READ (2,25,IOSTAT=STFLG,ERR= 1200,END=860) A,S,C

6-12

Image 72

Intel fortran-80 manual Examples

Contents

FORTRAN-SOPROGRAMMING MANUAL Manual Order Number: 9800481 ACopyright 1978 Intel Corporation PRINTED IN U.S.A./A151/1279/5K CP PREFACE Page CONTENTS PREFACE GLOSSARY CHAPTER INTRODUCTION TO FORTRANCHAPTER FORTRAN CONCEPTSILLUSTRATIONS CHAPTER PROGRAMMING GUIDELINESAPPENDIX A FORTRAN-80STATEMENT SUMMARYGLOSSARY Record - A sequence of values or characters CHAPTER INTRODUCTION TO FORTRAN 1.1 An Introductory Example1.1.1 Comment Lines 1.1.2 Type Statement 1.1.3 Input Statements1.1.4 Value Assignment Statement 1.1.5 Output Statements1.2 Summary Of FORTRAN·SO Statements 1.1.6 Program Termination1.2.1 Executable Statements 1.2.2 Nonexecutable Statements1.2.3 Order of Statements FEN:• • • • 2.1.2 The PROG RAM Statement 2.1.3 Statements and LinesPROGRAM name 2.2 FORTRAN Statement Elements 2.2.1 Character Set2.2.2 Constants and Variables ARITHMETICOVERFLOW ERROR MURPHYSLAW FORTRAN-80PNAME AB HITS AVG where+64101 #14010 #4567Q+#AF2CH2.2.4 Expressions and Operators 2.2.4.3 Relational Expressions is evaluated as if it were written 10FLAG = FLAG + IF FLAG1 .EQV. FLAG2 RETURN 2.2.5 Scope of Symbols 15/3 + 18/9 = 5 + 2 =15/3 + 18/9 = 15/3 + 2 = 15/5 = 2.3 Notational Conventions CALL sub arg,argPage CHAPTER DEFINING VARIABLES ARRAYS, AND MEMORY 3.1Type Statements3.1.1 REAL Type Statement 3.1.2 INTEGER Type Statement3.1.3 LOGICAL Type Statement •va,luernustueiA, Qp43.1.4 CHARACTER Type Statement 3.1.5 IMPLICIT StatementCHARACTER * len, name ,name v* len aryd* len3.2 Array Definition 3.2.1 DIMENSION Statement 3.2.2 Kinds of Array Declarators3.2.3 Properties of Arrays 3.2.4 Referencing Array Elementsary s ,s 3.3 Assignment Statements DimensionElement Declarator3.3.1 Arithmetic Assignment Statement TYPE OFTYPE OF exp RESULT3.3.2 Logical Assignment Statement 3.3.3Character Assignment Statement3.3.4 ASSIG N Statement v = exp3.3.5DATA Statement ASSIGN stlTO namer*c,r*c 3.4.1 EQUIVALENCE Statement 3.4 Memory DefinitionDATA I,J,K/10,20,301 DATA ZEROS 110*0/1,J,K 110,20,301 &NAMES2 IOTTI3.4.2COMMON Statement COMMON /eb! nlist ,/ eb! nlist3.4.3BLOCK DATA Subprograms 3.4.2.1 Common Block Memory Sequence3.4.2.2 Named and Blank Common Blocks 3.4.4 BLOCK DATA Statement CHAPTER 4 PROGRAM EXECUTION CONTROLS 4.1 Transferring Program Oontrol4.1.1 Unconditional GO TO Statement 4.1.2 Computed GO TO StatementGO TO name n, stl ,stl IFexps1,s2,s34.1.3Assigned GO TO Statement 4.1.4Arithmetic IF Statement4.1.5 Logical IF Statement 4.1.6 IF, ELSE IF, and ELSE Blocks4.1.7 Block IF Statement 4.1.8ELSE IF Statement4.1.9 ELSE Statement 4.1.10 END IF Statement4.2 Loop Control Statements 4.2.1 Operation of a DO Loop4.2.2 DO Statement 4.3 Program Termination Statements 4.2.3CONTINUE Statement4.3.1 PAUSE Statement 4.3.2 STOP Statement4.3.3EN 0 Statement CHAPTER FUNCTIONS AND SUBROUTINES 5.1Intrinsic and Statement Functions5.1.1Intrinsic Functions A = 33 + SQRT85.1.2 INTRI NSIC Statement 5.1.3 Statement FunctionsINTRINSIC tunc ,tunc tunc dum ,dum ... = exp5.1.3.1 Referencing Statement Functions 5.1.3.2 Statement Function Limitations156.8 5.2 External Procedures 5.2.1 FUNCTION Statement5.2.1.1 Referencing External Functions typ FUNCTION tunc dum ,dum5.2.2Subroutines 5.2.1.2 FUNCTION Subprogram Limitations~RETURN CA.~END5.2.3 SUBROUTINE Statement 5.2.4 RETU RN Statement5.2.5SAVE Statement 5.2.6EXTERNAL StatementSAVE lebl ,Iebl EXTERNAL proe ,proe5.3 Arguments And Common Blocks Revisited 5.2.7 CALL Statement5.3.1 Common Blocks 5.3.2 Dummy And Actual Arguments5.3.3 Association Of Arguments Functions And Subroutines5.3.3.4 Procedures As Dummy Arguments 5.3.3.1 Agreement Of Argument Lengths5.3.3.2 Variables As Dummy Arguments 5.3.3.3 Arrays As Dummy Arguments5.3.3.5Argument Association Limitations FX, Y,Page CHAPTER INPUT/OUTPUT 6.1Records, Files, And Units6.1.1Record Properties 6.1.2 File Properties6.1.2.1 File Existence 6.1.2.2 File Name6.1.2.3 File Position 6.1.2.4 External And Internal Files6.1.2.5 File Access 6.1.3 Unit Properties6.2 File-HandlingStatements 6.2.1 OPEN Statement6.2.1.1 Unit Specifier 6.2.1.21/0 Status Specifier6.2.1.3 Error Specifier 6.2.1.4 File Name Specifier6.2.1.5 File Status Specifier 6.2.1.6 Access Method Specifier 6.2.1.7 Formatting Specifier6.2.1.8 Record Length Specifier 6.2.1.9 Blank Specifier 6.2.2CLOSE Statement 6.2.1.11 Opening A Connected Unit6.2.2.1 Unit Specifier CLOSE close-list6.2.3 BACKSPACE Statement 6.2.4 REWI N D Statement6.2.2.2 File Disposition Specifier REWI N Darg-list6.3 Data-Transfer 1/0 Statements 6.2.5 ENDFILE Statement6.3.1 READ Statement REWIND REWIND 3, IOSTAT= ERRFLG, ERR=6.3.1.1 Control Information List Examples 6.3.2WRITE Statement 6.3.1.2 Input List6.3.1.3 Implied-DOList WRITE ctl-list out-list6.4Formatted And Unformatted Data Transfer 6.3.3 PRINT Statement6.4.1 Unformatted Data Transfer 6.4.2 Formatted Data Transfer 6.4.2.1 Printing Formatted Records6.4.2.2 Format Control 6.4.3FORMAT Statement 6.4.3.t Edit Descriptorsstl FORMAT flist 1 is Ff Edit Descriptor Absolute value of expForm of exp OY1 Y2either a sjgu ora letter indicatingthebas¢ a Z5editdesctiptorExample FS.2 DollytSigfjl$ijitrrrg·6.4.4List·Directed Formatting 6.4.4.1 List-Directed Input6.4.4.2 List-DirectedOutput Page 7.1.1 Problem Definition CHAPTER PROGRAMMING GUIDELINES7.1 Program Development 7.1.2 Program Documentation7.1.3 Refining The Problem Definition 7.1.4 Final Coding 7.2 FORTRAN Coding 7.2.1 Functions And Subroutines7.2.2 GO TO Statement 7.2.3 Crossing Unit Lines7.3 References 7.2.5 RemindersX = 2217*r* *2 PI =1972 APPENDIX A FORTRAN-80STATEMENT SUMMARY A.1 Statement SequenceA.2 Statement Summary ERR = stl ERR = stl FORTRAN-80Statement SummaryDATA Statement Category: Nonexecutable ELSE IF Statement Category: Executable, Block IF EQUIVALENCE Statement FUNCTION Statement Category: Nonexecutable IMPLICIT Statement OPEN Statement fORTRAN-80Statement Summary REWIND Statement SUBROUTINE Statement Category: Executable APPENDIX B INTRINSIC FUNCTIONS B.1 Intrinsic Function SummaryIntrinsic Functions FORTRAN-80<ORM CATEGORYB.2 Notes On Intrinsic Functions Page APPENDIX C HOLLERITH DATA TYPE C.1 Hollerith As A Data TypeC.2 The Hollerith Constant C.2.1 Hollerith Constants In DATA StatementsC.3 Hollerith Format Specification C.4 AEditing Of Hollerith DataHollerith Data Type APPENDIX D EXTENSIONS TO ANSI FORTRAN 0.1 Standard Extensions To 1977 Subset0.2Nonstandard Extensions To 1977 FORTRAN 0.3 More Specific Semantics Than 1977 FORTRAN 0.4 Differences From 1966 FORTRANMiscellaneous extensions Seven-dimensionalarrays Page ASCII CODES APPENDIX EPage APPENDIX F 8080/8085 PROCESSOR DEPENDENCIES F.1 Processor Limitations On LanguageF.2 Compiler Extensions LengthF.2.3 Reentrant Procedures F.2.1 Lowercase LettersF.2.2 Port Input/Output F.2.4 Free-formLine FormatF.2.6 Default Data Lengths F.2.5 Interpretation of DO StatementsF.2.7 Including Source Files $0077F.2.8 REel Specification For Sequential Files F.2.9 Flexibility In Standard RestrictionsF.3 Unit Preconnection INDEX Index FREEFORM Compiler Control, F-2 FORTRAN-SO IndexPage NOTES NOTES SOFTWARE PROBLEM REPORT inter111111 BUSINESS REPLY CARDPostage will be paid by Addressee Intel Corporation Attn: Literature DepartmentREQUEST FOR READERSCOMMENTS FORTRAN·80PROGRAMMING MANUAL 9800481 A111111 BUSINESS REPLY CARD0LIKE YOUR COMMENTS Intel Corporation Attn: Literature DepartmentPage inter Printed in U.S.A