Inter | Intel fortran-80 manual

inter

INTEL CORPORATION, 3065 Bowers Avenue, Santa Clara, California 95051 (408) 987-8080

Printed in U.S.A.

Image 130

Intel fortran-80 manual Inter

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Illustrations Chapter Programming Guidelines Glossary FORTRAN-SO An Introductory Example Chapter Introduction to FortranComment Lines Value Assignment Statement Type StatementInput Statements Output Statements Executable Statements Summary Of FORTRAN·SO StatementsProgram Termination Nonexecutable Statements Order of Statements Format Chapter Fortran Concepts Program Units and ProceduresFortran Program Structure Statements and Lines Prog RAM StatementProgram 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 = Call sub arg,arg Notational ConventionsCall 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 Data I,J,K/10,20,301 Equivalence StatementData Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Array List Common StatementReal Fpnumb Fpnumb Block Data Subprograms Block Data name Block Data StatementZEROS/1 0 Unconditional GO to Statement Program Execution ControlsTransferring Program Oontrol Computed GO to Statement Arithmetic if Statement Assigned GO to 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 Operation of a do Loop Loop Control StatementsDo Statement Continue Program Termination StatementsContinue Statement CHARACTER*12 Pname Pause Pause StatementStop Statement Pause BREAK12 Intrinsic and Statement Functions Chapter Functions and SubroutinesIntrinsic 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 Dummy And Actual Arguments Common BlocksAssociation 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 File Name Specifier Error 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 Read 2 PNAME, AB, Hits Control Information ListFMT =f Read 25, Pnam E, AS, Hits Read 2,25 PNAME, AS, HitsAssign 25 to Infmt Read 2,INFMT Pname Implied-DO List Input 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 Y1 Y2 Y3 OY1 Y2± Y1 Y2···Ye Either a sjgu ora letter indicatingthebas¢ Z5editdesctiptor Write 7,100 Write 7,100 Itstno Format Thisis the Test NUMBER,2XFormat 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 Level One Refining The Problem DefinitionLevel 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 Statement Sequence Appendix a FORTRAN-80 Statement SummaryStatement 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 Standard Extensions To 1977 Subset Appendix D Extensions to Ansi FortranNonstandard Extensions To 1977 Fortran More Specific Semantics Than 1977 Fortran Differences From 1966 Fortran FORTRAN-80 Page Ascii Codes Ascii CodesPage Processor Limitations On Language Appendix F 8080/8085 Processor DependenciesCompiler 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