Manuals / Intel / Computer Equipment / Laptop

Intel fortran-80 manual

Models: fortran-80

1 130

Download 130 pages 742 b

Page 129

Image 129

Intel fortran-80 manual

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Chapter Programming Guidelines IllustrationsGlossary FORTRAN-SO Chapter Introduction to Fortran An Introductory ExampleComment Lines Input Statements Type StatementValue Assignment Statement Output StatementsProgram Termination Summary Of FORTRAN·SO StatementsExecutable Statements Nonexecutable StatementsFormat Order of StatementsProgram Units and Procedures Chapter Fortran ConceptsFortran Program Structure Prog RAM Statement Statements and LinesProgram name Character Set Fortran Statement Elements#Pol.1ndSign = 8*C + D* *2/EB52 Constants and VariablesArithmeticoverflow Error Murphyslaw +64101 #14010 Where#4567Q +#AF2CH Sl#d ...bSqdiag = Sqrt 2*S* *2 Sperim = 4*S Sqarea = S**2Relational Expressions EXP1 operator EXP2 If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVGEXP1 EXP2 operator OP1 NOT.OP1 True False False TrueStop OP1 OP2 OP1 .NEQV. OP2 Precedence of Operators15/3 + 18/9 = 5 + 2 = 15/3 + 18/9 = 15/3 + 2 = 15/5 = Scope of SymbolsNotational Conventions Call sub arg,argCall ROUT1A, 3.72 Page Type Statements Chapter Defining Variables ARRAYS, and MemoryReal Type Statement Integer Type StatementVa,luernustueiA, Qp4 Logical Type StatementLen Aryd* len Character * len, name ,nameImplicit REALA-B, D-H, Character C Array DefinitionImplicit Integer I-N, Logical O-l Character TICTAC3,3 Logical ,3,3Logical Table Integer Array Dimension ,3, ARRAY3,3,3 Dimension StatementKinds of Array Declarators ARRAY3,MI00LE,THIRDProperties of Arrays Dimension ,3Referencing Array Elements Ary s ,sARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Assignment StatementsArithmetic Assignment Statement Logical FLAG, ,3 = exp= char CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = GehrigAssign stlTO name Data StatementAssign 1010 to LOOP1 Goto LOOP1 R*cEquivalence Statement Data I,J,K/10,20,301Data Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Real Fpnumb Common StatementArray List FpnumbBlock Data Subprograms Block Data Statement Block Data nameZEROS/1 0 Transferring Program Oontrol Program Execution ControlsUnconditional GO to Statement Computed GO to StatementAssigned GO to Statement Arithmetic if StatementAssign 10TO Start Gotostart Assign 999 to Done 6 IF, Else IF, and Else Blocks Logical if StatementDone = a * *2 .GT **2 If Done Pause If .NOT. Done GO to StartElse if Statement Block if StatementIf exp then Else if exp thenEND if Statement Else StatementIf Flag .EO then Else if Flag .EO then Write 6,40 FedtaxLoop Control Statements Operation of a do LoopDo Statement Continue Statement Program Termination StatementsContinue CHARACTER*12 PnameStop Statement Pause StatementPause Pause BREAK12Chapter Functions and Subroutines Intrinsic and Statement FunctionsIntrinsic Functions Statement Functions Intri Nsic StatementIntrinsic tunc ,tunc Intrinsic Sqrt Intrinsic EXP, LOG, LOG10156.8 Function Statement External ProceduresFunction Subprogram Limitations SubroutinesDo 100 K = 1 Total = Total + Arrayk 100CONTINUE Return ENDRetu RN Statement Subroutine StatementProgram CALL.. Subroutine SU Brouti N E subdum,dumExternal Statement Save StatementSave lebl ,Iebl External proe ,proeCall Statement Arguments And Common Blocks RevisitedCommon Blocks Dummy And Actual ArgumentsAssociation Of Arguments Agreement Of Argument Lengths Function FA,B,C FX, YPage Records, Files, And Units Chapter INPUT/OUTPUTRecord Properties File PropertiesFile Name File ExistenceFile Position External And Internal FilesUnit Properties File AccessOpen Statement File-Handling StatementsUnit Specifier 1.2 1/0 Status SpecifierError Specifier File Name SpecifierFile Status Specifier Access = Sequential Access Method SpecifierAccess = SEQUENTIAL,FORM = Formatted Formatting SpecifierBlank Specifier Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcrForm = FORMATTED,RECL=80 Blank = blnkOpening a Connected Unit Close StatementClose close-list Close 3, IOSTAT= ERRFLG, ERR=Rewi N D Statement Backspace StatementFile Disposition Specifier BackspaceEndfile Statement Data-Transfer 1/0 StatementsRead Statement Endfile arg-listControl 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 Print Statement Formatted And Unformatted Data TransferUnformatted Data Transfer Print 120, PNAME, AVGPrinting Formatted Records Formatted Data TransferStl Format flist Format StatementIs Ff OY1 Y2 Y1 Y2 Y3± Y1 Y2···Ye Z5editdesctiptor Either a sjgu ora letter indicatingthebas¢Write 7,100 Itstno Format Thisis the Test NUMBER,2X Write 7,100Format 1X, A12, 4X, F4.3 DollytSigfjl$ijitrrrg· Read 2,50 INTNUM, FpnumList-Directed Input List·Directed FormattingPaint 25, Pname Format A20, $List-Directed Output Page Chapter Programming Guidelines Problem DefinitionProgram Development Program DocumentationRefining The Problem Definition Level OneLevel Two Final Coding Otherwise Print Employee Data and Update Totals ElseLevel Three Write unit, 60 EMP, HRS, GRPAY, Netpay Format flistFunctions And Subroutines Fortran CodingGO to Statement Crossing Unit LinesReminders References= 2217*r* *2 PI =Programming Guidelines Appendix a FORTRAN-80 Statement Summary Statement SequenceStatement Summary ERR = stl Stname Iostat =Status = StatContinue execution provides END FORTRAN-80 FORTRAN-80 FORTRAN-SO Iostat = Return Rewind Statement Subroutine Statement Category Executable Text Reference .2.2 Intrinsic Function Summary Appendix B Intrinsic FunctionsCategory Function Arguments Int-12.8 = Page Hollerith As a Data Type Appendix C Hollerith Data TypeHollerith Constant Hollerith Constants In Data StatementsAEditing Of Hollerith Data Hollerith Format SpecificationAppendix D Extensions to Ansi Fortran Standard Extensions To 1977 SubsetNonstandard Extensions To 1977 Fortran Differences From 1966 Fortran More Specific Semantics Than 1977 FortranFORTRAN-80 Page Ascii Codes Ascii CodesPage Appendix F 8080/8085 Processor Dependencies Processor Limitations On LanguageCompiler Extensions Call Input port, var Call Output port, exp Where the $must be in columnCall INPUT1, TEST1 Call OUTPUT2 $REENTRANTInterpretation of do Statements Default Data LengthsIncluding Source Files $0077F1MYPROG UNIT4 LP, Unit 5 Fosysin Unit n = deviceIndex Block Data Function Subroutine Index Page Page Page Inter Postage will be paid by Addressee WED Like Your CommentsRequest for Readerscomments 111111 Page Inter