Intel fortran-80 guide

Image 84

Intel fortran-80 manual

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Illustrations Chapter Programming Guidelines Glossary FORTRAN-SO Chapter Introduction to Fortran An Introductory ExampleComment Lines Type Statement Input StatementsValue Assignment Statement Output Statements Summary Of FORTRAN·SO Statements Program TerminationExecutable Statements Nonexecutable Statements Order of Statements Format Program Units and Procedures Chapter Fortran ConceptsFortran Program Structure Prog RAM Statement Statements and LinesProgram 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 = Notational Conventions Call sub arg,argCall 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 Equivalence Statement Data I,J,K/10,20,301Data Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Common Statement Real FpnumbArray List Fpnumb Block Data Subprograms Block Data Statement Block Data nameZEROS/1 0 Program Execution Controls Transferring Program OontrolUnconditional GO to Statement Computed GO to Statement Assigned GO to Statement Arithmetic if 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 Loop Control Statements Operation of a do LoopDo Statement Program Termination Statements Continue StatementContinue CHARACTER*12 Pname Pause Statement Stop StatementPause Pause BREAK12 Chapter Functions and Subroutines Intrinsic and Statement FunctionsIntrinsic 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 Common Blocks Dummy And Actual ArgumentsAssociation 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 Error Specifier File Name 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 Control Information List Read 2 PNAME, AB, HitsFMT =f Read 2,25 PNAME, AS, Hits Read 25, Pnam E, AS, HitsAssign 25 to Infmt Read 2,INFMT Pname Input List Implied-DO 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 OY1 Y2 Y1 Y2 Y3± Y1 Y2···Ye Either a sjgu ora letter indicatingthebas¢ Z5editdesctiptor Write 7,100 Itstno Format Thisis the Test NUMBER,2X Write 7,100Format 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 Refining The Problem Definition Level OneLevel 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 Appendix a FORTRAN-80 Statement Summary Statement SequenceStatement 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 Appendix D Extensions to Ansi Fortran Standard Extensions To 1977 SubsetNonstandard Extensions To 1977 Fortran More Specific Semantics Than 1977 Fortran Differences From 1966 Fortran FORTRAN-80 Page Ascii Codes Ascii CodesPage Appendix F 8080/8085 Processor Dependencies Processor Limitations On LanguageCompiler 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