Manuals / Intel / Computer Equipment / Laptop

Intel fortran-80 manual is evaluated as if it were written

Models: fortran-80

1 130

Download 130 pages 742 b

Page 21

is evaluated as if it were written

FORTRAN-SO

f'ORTRAN Concepts

Relational expressions are commonly used in the IF statement (Chapter 4).

IF (NUMB .GT. 99) STOP

IF (PNAME .EO. 'GEHRIG')PRINT 20, PNAME, AVG

2.2.4.3.2Interpretation of Arithmetic Relational Expressions. An arithmetic rela- tional expression is TRUE if the values of the operands satisfy the relational condi- tion set up by the operator, and is FALSE otherwise.

If the operands are of different types, type conversion is similar to that of arithmetic expressions. The relational expression

EXP1 operator EXP2

is evaluated as if it were written

(EXP1 - EXP2) operator 0

where '0' is the same type as (EXPI - EXP2) and 'operator' is the same relational operator in both expressions.

2.2.4.3.3Interpretation of Character Relational Expressions. A character rela- tional expression is TRUE if the values of the operands satisfy the relational condi- tion set up by the operator, and is FALSE otherwise.

If two character operands have different lengths, the shorter is 'extended' to the length of the longer by adding blanks on the right of the character string. The character expression EXP 1 is considered to be less than EXP2 if the value of EXP 1 precedes the value of EXP2 in the ASCII collating sequence, and vice versa (Appen- dix E).

2.2.4.4Logical Expressions. A logical expression performs a logical computa- tion and returns a TRUE or FALSE result of type logical. This expression can be a single logical operand (logical constant, logical variable reference, logical array ele- ment reference, logical function reference, or relational expression) or a combina- tion of logical operands joined by logical operators and parentheses.

2.2.4.4.1 Logical Operators. The logical operators are:

Operator	Meaning
.NOT.	Logical negation
.AND.	Logical conjunction
.OR.	Logical inclusive disjunction
.EQV.	Logical equivalence
.NEQV.	Logical nonequivalence

2.2.4.4.2Value and Length of Logical Expressions. The value of a logical operand involving .NOT. is as follows:

OP1

.NOT.OP1

TRUE FALSE

FALSE TRUE

The logical expression has the opposite value as its operand.

2-9

Image 21

Intel fortran-80 manual is evaluated as if it were written

Contents

FORTRAN-SOPROGRAMMING MANUAL Manual Order Number: 9800481 ACopyright 1978 Intel Corporation PRINTED IN U.S.A./A151/1279/5K CP PREFACE Page PREFACE GLOSSARY CHAPTER INTRODUCTION TO FORTRAN CONTENTSCHAPTER FORTRAN CONCEPTSCHAPTER PROGRAMMING GUIDELINES ILLUSTRATIONSAPPENDIX 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.3 Input Statements 1.1.2 Type Statement1.1.4 Value Assignment Statement 1.1.5 Output Statements1.1.6 Program Termination 1.2 Summary Of FORTRAN·SO Statements1.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.1 Character Set 2.2 FORTRAN Statement Elements2.2.2 Constants and Variables FORTRAN-80 ARITHMETICOVERFLOW ERROR MURPHYSLAWwhere PNAME AB HITS AVG+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 = CALL sub arg,arg 2.3 Notational ConventionsPage 3.1Type Statements CHAPTER DEFINING VARIABLES ARRAYS, AND MEMORY3.1.1 REAL Type Statement 3.1.2 INTEGER Type Statement•va,luernustueiA, Qp4 3.1.3 LOGICAL Type Statement3.1.5 IMPLICIT Statement 3.1.4 CHARACTER Type StatementCHARACTER * len, name ,name v* len aryd* len3.2 Array Definition 3.2.2 Kinds of Array Declarators 3.2.1 DIMENSION Statement3.2.3 Properties of Arrays 3.2.4 Referencing Array Elementsary s ,s Dimension 3.3 Assignment StatementsElement DeclaratorTYPE OF 3.3.1 Arithmetic Assignment StatementTYPE OF exp RESULT3.3.3Character Assignment Statement 3.3.2 Logical Assignment Statement3.3.4 ASSIG N Statement v = exp3.3.5DATA Statement ASSIGN stlTO namer*c,r*c 3.4 Memory Definition 3.4.1 EQUIVALENCE StatementDATA I,J,K/10,20,301 DATA ZEROS 110*0/1,J,K 110,20,301 &NAMES2 IOTTICOMMON /eb! nlist ,/ eb! nlist 3.4.2COMMON Statement3.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 4.1 Transferring Program Oontrol CHAPTER 4 PROGRAM EXECUTION CONTROLS4.1.1 Unconditional GO TO Statement 4.1.2 Computed GO TO StatementIFexps1,s2,s3 GO TO name n, stl ,stl4.1.3Assigned GO TO Statement 4.1.4Arithmetic IF Statement4.1.6 IF, ELSE IF, and ELSE Blocks 4.1.5 Logical IF Statement4.1.8ELSE IF Statement 4.1.7 Block IF Statement4.1.10 END IF Statement 4.1.9 ELSE Statement4.2 Loop Control Statements 4.2.1 Operation of a DO Loop4.2.2 DO Statement 4.2.3CONTINUE Statement 4.3 Program Termination Statements4.3.1 PAUSE Statement 4.3.2 STOP Statement4.3.3EN 0 Statement 5.1Intrinsic and Statement Functions CHAPTER FUNCTIONS AND SUBROUTINES5.1.1Intrinsic Functions A = 33 + SQRT85.1.3 Statement Functions 5.1.2 INTRI NSIC StatementINTRINSIC tunc ,tunc tunc dum ,dum ... = exp5.1.3.1 Referencing Statement Functions 5.1.3.2 Statement Function Limitations156.8 5.2.1 FUNCTION Statement 5.2 External Procedures5.2.1.1 Referencing External Functions typ FUNCTION tunc dum ,dum5.2.1.2 FUNCTION Subprogram Limitations 5.2.2SubroutinesCA.~END ~RETURN5.2.3 SUBROUTINE Statement 5.2.4 RETU RN Statement5.2.6EXTERNAL Statement 5.2.5SAVE StatementSAVE lebl ,Iebl EXTERNAL proe ,proe5.2.7 CALL Statement 5.3 Arguments And Common Blocks Revisited5.3.2 Dummy And Actual Arguments 5.3.1 Common Blocks5.3.3 Association Of Arguments Functions And Subroutines5.3.3.1 Agreement Of Argument Lengths 5.3.3.4 Procedures As Dummy Arguments5.3.3.2 Variables As Dummy Arguments 5.3.3.3 Arrays As Dummy ArgumentsFX, Y, 5.3.3.5Argument Association LimitationsPage 6.1Records, Files, And Units CHAPTER INPUT/OUTPUT6.1.1Record Properties 6.1.2 File Properties6.1.2.2 File Name 6.1.2.1 File Existence6.1.2.3 File Position 6.1.2.4 External And Internal Files6.1.3 Unit Properties 6.1.2.5 File Access6.2.1 OPEN Statement 6.2 File-HandlingStatements6.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.1.11 Opening A Connected Unit 6.2.2CLOSE Statement6.2.2.1 Unit Specifier CLOSE close-list6.2.4 REWI N D Statement 6.2.3 BACKSPACE Statement6.2.2.2 File Disposition Specifier REWI N Darg-list6.2.5 ENDFILE Statement 6.3 Data-Transfer 1/0 Statements6.3.1 READ Statement REWIND REWIND 3, IOSTAT= ERRFLG, ERR=6.3.1.1 Control Information List Examples 6.3.1.2 Input List 6.3.2WRITE Statement6.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 Absolute value of exp Edit DescriptorForm of exp OY1 Y2a Z5editdesctiptor either a sjgu ora letter indicatingthebas¢Example DollytSigfjl$ijitrrrg· FS.26.4.4.1 List-Directed Input 6.4.4List·Directed Formatting6.4.4.2 List-DirectedOutput Page CHAPTER PROGRAMMING GUIDELINES 7.1.1 Problem Definition7.1 Program Development 7.1.2 Program Documentation7.1.3 Refining The Problem Definition 7.1.4 Final Coding 7.2.1 Functions And Subroutines 7.2 FORTRAN Coding7.2.2 GO TO Statement 7.2.3 Crossing Unit Lines7.2.5 Reminders 7.3 ReferencesX = 2217*r* *2 PI =1972 APPENDIX A FORTRAN-80STATEMENT SUMMARY A.1 Statement SequenceA.2 Statement Summary ERR = stl FORTRAN-80Statement Summary ERR = stlDATA 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 B.1 Intrinsic Function Summary APPENDIX B INTRINSIC FUNCTIONSFORTRAN-80 Intrinsic Functions<ORM CATEGORYB.2 Notes On Intrinsic Functions Page C.1 Hollerith As A Data Type APPENDIX C HOLLERITH 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.4 Differences From 1966 FORTRAN 0.3 More Specific Semantics Than 1977 FORTRANMiscellaneous extensions Seven-dimensionalarrays Page APPENDIX E ASCII CODESPage F.1 Processor Limitations On Language APPENDIX F 8080/8085 PROCESSOR DEPENDENCIESF.2 Compiler Extensions LengthF.2.1 Lowercase Letters F.2.3 Reentrant ProceduresF.2.2 Port Input/Output F.2.4 Free-formLine FormatF.2.5 Interpretation of DO Statements F.2.6 Default Data LengthsF.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 Index FORTRAN-SOPage NOTES NOTES inter SOFTWARE PROBLEM REPORTBUSINESS REPLY CARD 111111Postage will be paid by Addressee Intel Corporation Attn: Literature DepartmentFORTRAN·80PROGRAMMING MANUAL 9800481 A REQUEST FOR READERSCOMMENTSBUSINESS REPLY CARD 1111110LIKE YOUR COMMENTS Intel Corporation Attn: Literature DepartmentPage Printed in U.S.A inter