Intel fortran-80 guide

NOTES

Image 124

Intel fortran-80 manual

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Illustrations Chapter Programming Guidelines Glossary FORTRAN-SO An Introductory Example Chapter Introduction to FortranComment Lines Type Statement Input StatementsValue Assignment Statement Output Statements Summary Of FORTRAN·SO Statements Program TerminationExecutable Statements Nonexecutable Statements Order of Statements Format Chapter Fortran Concepts Program Units and ProceduresFortran Program Structure Statements and Lines Prog RAM StatementProgram name Fortran Statement Elements Character Set#Pol.1ndSign = 8*C + D* *2/E Constants and Variables B52 Arithmeticoverflow Error Murphyslaw Where +64101 #14010#4567Q +#AF2CH Sl#d ...b Sperim = 4*S Sqarea = S**2 Sqdiag = Sqrt 2*S* *2 Relational Expressions If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVG EXP1 operator EXP2EXP1 EXP2 operator 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 Chapter Defining Variables ARRAYS, and Memory Type StatementsReal Type Statement Integer Type Statement Logical Type Statement Va,luernustueiA, Qp4 Character * len, name ,name Len Aryd* len Array Definition Implicit REALA-B, D-H, Character CImplicit Integer I-N, Logical O-l Character TICTAC3,3 Logical ,3,3 Dimension Statement Logical Table Integer Array Dimension ,3, ARRAY3,3,3Kinds of Array Declarators ARRAY3,MI00LE,THIRD Dimension ,3 Properties of ArraysReferencing Array Elements Ary s ,s Assignment Statements ARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Arithmetic Assignment Statement = exp Logical FLAG, ,3= char CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = Gehrig Data Statement Assign stlTO nameAssign 1010 to LOOP1 Goto LOOP1 R*c Data I,J,K/10,20,301 Equivalence StatementData Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Common Statement Real FpnumbArray List Fpnumb Block Data Subprograms Block Data name Block Data StatementZEROS/1 0 Program Execution Controls Transferring Program OontrolUnconditional GO to Statement Computed GO to Statement Arithmetic if Statement Assigned GO to StatementAssign 10TO Start Gotostart Assign 999 to Done Logical if Statement 6 IF, Else IF, and Else BlocksDone = a * *2 .GT **2 If Done Pause If .NOT. Done GO to Start Block if Statement Else if StatementIf exp then Else if exp then Else Statement END if StatementIf Flag .EO then Else if Flag .EO then Write 6,40 Fedtax Operation of a do Loop Loop Control StatementsDo Statement Program Termination Statements Continue StatementContinue CHARACTER*12 Pname Pause Statement Stop StatementPause Pause BREAK12 Intrinsic and Statement Functions Chapter Functions and SubroutinesIntrinsic Functions Intri Nsic Statement Statement FunctionsIntrinsic tunc ,tunc Intrinsic Sqrt Intrinsic EXP, LOG, LOG10 156.8 External Procedures Function Statement Subroutines Function Subprogram LimitationsDo 100 K = 1 Total = Total + Arrayk 100CONTINUE Return END Subroutine Statement Retu RN StatementProgram CALL.. Subroutine SU Brouti N E subdum,dum Save Statement External StatementSave lebl ,Iebl 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 Chapter INPUT/OUTPUT Records, Files, And UnitsRecord Properties File Properties File Existence File NameFile Position External And Internal Files File Access Unit Properties File-Handling Statements Open StatementUnit Specifier 1.2 1/0 Status Specifier File Name Specifier Error SpecifierFile Status Specifier Access Method Specifier Access = SequentialAccess = SEQUENTIAL,FORM = Formatted Formatting Specifier Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcr Blank SpecifierForm = FORMATTED,RECL=80 Blank = blnk Close Statement Opening a Connected UnitClose close-list Close 3, IOSTAT= ERRFLG, ERR= Backspace Statement Rewi N D StatementFile Disposition Specifier Backspace Data-Transfer 1/0 Statements Endfile StatementRead 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 Formatted And Unformatted Data Transfer Print StatementUnformatted Data Transfer 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· List·Directed Formatting List-Directed InputPaint 25, Pname Format A20, $ List-Directed Output Page Problem Definition Chapter Programming GuidelinesProgram Development Program Documentation Level One Refining The Problem DefinitionLevel Two Otherwise Print Employee Data and Update Totals Else Final CodingLevel Three Write unit, 60 EMP, HRS, GRPAY, Netpay Format flist Fortran Coding Functions And SubroutinesGO to Statement Crossing Unit Lines References Reminders= 2217*r* *2 PI = Programming Guidelines Statement Sequence Appendix a FORTRAN-80 Statement SummaryStatement Summary ERR = stl Iostat = StnameStatus = 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 Appendix C Hollerith Data Type Hollerith As a Data TypeHollerith Constant 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 Where the $must be in column Call Input port, var Call Output port, expCall INPUT1, TEST1 Call OUTPUT2 $REENTRANT Default Data Lengths Interpretation of do StatementsIncluding Source Files $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