Manuals / Intel / Computer Equipment / Laptop

Intel fortran-80 manual INTRI NSIC Statement, Statement Functions, INTRINSIC tunc ,tunc

Models: fortran-80

1 130

Download 130 pages 742 b

Page 50

5.1.2 INTRI NSIC Statement

Functions And Subroutines

FORTRAN-SO

If the name of an intrinsic function appears in the dummy argument list of a FUNC- TION or SUBROUTINE subprogram, the name is considered to have no relation to the intrinsic function within the scope of the program unit and the name itself loses its intrinsic quality. The data type associated with the symbolic name is specified as normal (by default or by a type statement).

If the name of an intrinsic function is to be used as an actual argument in an external procedure reference, the name must first be specified in an INTRINSIC statement.

5.1.2 INTRI NSIC Statement

The INTRINSIC statement confirms that a symbolic name represents an intrinsic function and allows that name to be used as an actual argument. Only one ap- pearance of a symbolic name in all of the INTRINSIC statements in a given program unit is allowed. A symbolic name may not appear in an INTRINSIC statement and an EXTERNAL statement in the same program unit.

The format of the INTRINSIC statement is

INTRINSIC tunc [,tunc] ...

where 'func' is an intrinsic function name.

The names of certain intrinsic functions cannot be used as actual arguments and, therefore, cannot appear in INTRINSIC statements. These are the functions for type conversion (lNT, IFIX, FLOAT, REAL, ICHAR) and the functions for choos- ing a largest or smallest value (MAXO, AMAXI, AMAXO, MAXI, MINO, AMINI, AMINO, MINI).

Examples:

INTRINSIC SQRT

INTRINSIC EXP, LOG, LOG10

5.1.3 Statement Functions

Straightforward mathematical functions like

f(x) = ax 2 + bx + c

are defined in FORTRAN using statement functions. These functions have no keyword; the format is

tunc ([dum [,dum] ...]) = exp

where

June is the symbolic name of the statement function

dum is a dummy argument to be replaced by an actual argument when the function is referenced

exp is an expression

As an example, the mathematical function above would be written

F(X) = A*(X**2)+ 8*X + C

Substituting the actual argument '3' for the dummy argument 'X' in this function would result in the value '9A + 3B + C.'

5-2

Image 50

Intel fortran-80 manual INTRI NSIC Statement, Statement Functions, INTRINSIC tunc ,tunc, tunc dum ,dum ... = exp

Contents

Copyright 1978 Intel Corporation FORTRAN-SOPROGRAMMING MANUALManual Order Number: 9800481 A PRINTED IN U.S.A./A151/1279/5K CP PREFACE Page CHAPTER CONTENTSPREFACE GLOSSARY CHAPTER INTRODUCTION TO FORTRAN FORTRAN CONCEPTSAPPENDIX A ILLUSTRATIONSCHAPTER PROGRAMMING GUIDELINES FORTRAN-80STATEMENT SUMMARYGLOSSARY Record - A sequence of values or characters 1.1.1 Comment Lines CHAPTER INTRODUCTION TO FORTRAN1.1 An Introductory Example 1.1.4 Value Assignment Statement 1.1.2 Type Statement1.1.3 Input Statements 1.1.5 Output Statements1.2.1 Executable Statements 1.2 Summary Of FORTRAN·SO Statements1.1.6 Program Termination 1.2.2 Nonexecutable Statements1.2.3 Order of Statements FEN:• • • • PROGRAM name 2.1.2 The PROG RAM Statement2.1.3 Statements and Lines 2.2 FORTRAN Statement Elements 2.2.1 Character Set2.2.2 Constants and Variables ARITHMETICOVERFLOW ERROR MURPHYSLAW FORTRAN-80+64101 #14010 PNAME AB HITS AVGwhere #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 15/3 + 18/9 = 15/3 + 2 = 15/5 = 2.2.5 Scope of Symbols15/3 + 18/9 = 5 + 2 = 2.3 Notational Conventions CALL sub arg,argPage 3.1.1 REAL Type Statement CHAPTER DEFINING VARIABLES ARRAYS, AND MEMORY3.1Type Statements 3.1.2 INTEGER Type Statement3.1.3 LOGICAL Type Statement •va,luernustueiA, Qp4CHARACTER * len, name ,name 3.1.4 CHARACTER Type Statement3.1.5 IMPLICIT Statement v* len aryd* len3.2 Array Definition 3.2.1 DIMENSION Statement 3.2.2 Kinds of Array Declaratorsary s ,s 3.2.3 Properties of Arrays3.2.4 Referencing Array Elements Element 3.3 Assignment StatementsDimension DeclaratorTYPE OF exp 3.3.1 Arithmetic Assignment StatementTYPE OF RESULT3.3.4 ASSIG N Statement 3.3.2 Logical Assignment Statement3.3.3Character Assignment Statement v = expr*c,r*c 3.3.5DATA StatementASSIGN stlTO name DATA I,J,K/10,20,301 3.4.1 EQUIVALENCE Statement3.4 Memory Definition DATA ZEROS 110*0/1,J,K 110,20,301 &NAMES2 IOTTI3.4.2COMMON Statement COMMON /eb! nlist ,/ eb! nlist3.4.2.2 Named and Blank Common Blocks 3.4.3BLOCK DATA Subprograms3.4.2.1 Common Block Memory Sequence 3.4.4 BLOCK DATA Statement 4.1.1 Unconditional GO TO Statement CHAPTER 4 PROGRAM EXECUTION CONTROLS4.1 Transferring Program Oontrol 4.1.2 Computed GO TO Statement4.1.3Assigned GO TO Statement GO TO name n, stl ,stlIFexps1,s2,s3 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.2 DO Statement 4.2 Loop Control Statements4.2.1 Operation of a DO Loop 4.3 Program Termination Statements 4.2.3CONTINUE Statement4.3.3EN 0 Statement 4.3.1 PAUSE Statement4.3.2 STOP Statement 5.1.1Intrinsic Functions CHAPTER FUNCTIONS AND SUBROUTINES5.1Intrinsic and Statement Functions A = 33 + SQRT8INTRINSIC tunc ,tunc 5.1.2 INTRI NSIC Statement5.1.3 Statement Functions tunc dum ,dum ... = exp156.8 5.1.3.1 Referencing Statement Functions5.1.3.2 Statement Function Limitations 5.2.1.1 Referencing External Functions 5.2 External Procedures5.2.1 FUNCTION Statement typ FUNCTION tunc dum ,dum5.2.2Subroutines 5.2.1.2 FUNCTION Subprogram Limitations5.2.3 SUBROUTINE Statement ~RETURNCA.~END 5.2.4 RETU RN StatementSAVE lebl ,Iebl 5.2.5SAVE Statement5.2.6EXTERNAL Statement EXTERNAL proe ,proe5.3 Arguments And Common Blocks Revisited 5.2.7 CALL Statement5.3.3 Association Of Arguments 5.3.1 Common Blocks5.3.2 Dummy And Actual Arguments Functions And Subroutines5.3.3.2 Variables As Dummy Arguments 5.3.3.4 Procedures As Dummy Arguments5.3.3.1 Agreement Of Argument Lengths 5.3.3.3 Arrays As Dummy Arguments5.3.3.5Argument Association Limitations FX, Y,Page 6.1.1Record Properties CHAPTER INPUT/OUTPUT6.1Records, Files, And Units 6.1.2 File Properties6.1.2.3 File Position 6.1.2.1 File Existence6.1.2.2 File Name 6.1.2.4 External And Internal Files6.1.2.5 File Access 6.1.3 Unit Properties6.2.1.1 Unit Specifier 6.2 File-HandlingStatements6.2.1 OPEN Statement 6.2.1.21/0 Status Specifier6.2.1.5 File Status Specifier 6.2.1.3 Error Specifier6.2.1.4 File Name Specifier 6.2.1.8 Record Length Specifier 6.2.1.6 Access Method Specifier6.2.1.7 Formatting Specifier 6.2.1.9 Blank Specifier 6.2.2.1 Unit Specifier 6.2.2CLOSE Statement6.2.1.11 Opening A Connected Unit CLOSE close-list6.2.2.2 File Disposition Specifier 6.2.3 BACKSPACE Statement6.2.4 REWI N D Statement REWI N Darg-list6.3.1 READ Statement 6.3 Data-Transfer 1/0 Statements6.2.5 ENDFILE Statement REWIND REWIND 3, IOSTAT= ERRFLG, ERR=6.3.1.1 Control Information List Examples 6.3.1.3 Implied-DOList 6.3.2WRITE Statement6.3.1.2 Input List WRITE ctl-list out-list6.4.1 Unformatted Data Transfer 6.4Formatted And Unformatted Data Transfer6.3.3 PRINT Statement 6.4.2.2 Format Control 6.4.2 Formatted Data Transfer6.4.2.1 Printing Formatted Records stl FORMAT flist 6.4.3FORMAT Statement6.4.3.t Edit Descriptors 1 is Ff Form of exp Edit DescriptorAbsolute value 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 Program Development 7.1.1 Problem DefinitionCHAPTER PROGRAMMING GUIDELINES 7.1.2 Program Documentation7.1.3 Refining The Problem Definition 7.1.4 Final Coding 7.2.2 GO TO Statement 7.2 FORTRAN Coding7.2.1 Functions And Subroutines 7.2.3 Crossing Unit LinesX = 2217*r* *2 7.3 References7.2.5 Reminders PI =1972 A.2 Statement Summary APPENDIX A FORTRAN-80STATEMENT SUMMARYA.1 Statement Sequence 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 Summary<ORM Intrinsic FunctionsFORTRAN-80 CATEGORYB.2 Notes On Intrinsic Functions Page C.2 The Hollerith Constant APPENDIX C HOLLERITH DATA TYPEC.1 Hollerith As A Data Type C.2.1 Hollerith Constants In DATA StatementsHollerith Data Type C.3 Hollerith Format SpecificationC.4 AEditing Of Hollerith Data 0.2Nonstandard Extensions To 1977 FORTRAN APPENDIX D EXTENSIONS TO ANSI FORTRAN0.1 Standard Extensions To 1977 Subset 0.3 More Specific Semantics Than 1977 FORTRAN 0.4 Differences From 1966 FORTRANMiscellaneous extensions Seven-dimensionalarrays Page ASCII CODES APPENDIX EPage F.2 Compiler Extensions APPENDIX F 8080/8085 PROCESSOR DEPENDENCIESF.1 Processor Limitations On Language LengthF.2.2 Port Input/Output F.2.3 Reentrant ProceduresF.2.1 Lowercase Letters F.2.4 Free-formLine FormatF.2.7 Including Source Files F.2.6 Default Data LengthsF.2.5 Interpretation of DO Statements $0077F.3 Unit Preconnection F.2.8 REel Specification For Sequential FilesF.2.9 Flexibility In Standard Restrictions INDEX Index FREEFORM Compiler Control, F-2 FORTRAN-SO IndexPage NOTES NOTES SOFTWARE PROBLEM REPORT interPostage will be paid by Addressee 111111BUSINESS REPLY CARD Intel Corporation Attn: Literature DepartmentREQUEST FOR READERSCOMMENTS FORTRAN·80PROGRAMMING MANUAL 9800481 A0LIKE YOUR COMMENTS 111111BUSINESS REPLY CARD Intel Corporation Attn: Literature DepartmentPage inter Printed in U.S.A