Intel fortran-80 guide

Image 129

Intel fortran-80 manual

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Chapter Programming Guidelines Illustrations Glossary FORTRAN-SO Chapter Introduction to Fortran An Introductory ExampleComment Lines Input Statements Type StatementValue Assignment Statement Output Statements Program Termination Summary Of FORTRAN·SO StatementsExecutable Statements Nonexecutable Statements Format Order of Statements Program 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/E B52 Constants and Variables Arithmeticoverflow Error Murphyslaw +64101 #14010 Where#4567Q +#AF2CH Sl#d ...b Sqdiag = Sqrt 2*S* *2 Sperim = 4*S Sqarea = S**2 Relational Expressions EXP1 operator EXP2 If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVGEXP1 EXP2 operator OP1 NOT.OP1 True False False True Stop OP1 OP2 OP1 .NEQV. OP2 Precedence of Operators 15/3 + 18/9 = 5 + 2 = 15/3 + 18/9 = 15/3 + 2 = 15/5 = Scope of Symbols Notational Conventions Call sub arg,argCall ROUT1A, 3.72 Page Type Statements Chapter Defining Variables ARRAYS, and MemoryReal Type Statement Integer Type Statement Va,luernustueiA, Qp4 Logical Type Statement Len Aryd* len Character * len, name ,name Implicit REALA-B, D-H, Character C Array DefinitionImplicit Integer I-N, Logical O-l Character TICTAC3,3 Logical ,3,3 Logical Table Integer Array Dimension ,3, ARRAY3,3,3 Dimension StatementKinds of Array Declarators ARRAY3,MI00LE,THIRD Properties of Arrays Dimension ,3Referencing Array Elements Ary s ,s ARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Assignment Statements Arithmetic Assignment Statement Logical FLAG, ,3 = exp= char CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = Gehrig Assign stlTO name Data StatementAssign 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 Real Fpnumb Common StatementArray List Fpnumb Block Data Subprograms Block Data Statement Block Data nameZEROS/1 0 Transferring Program Oontrol Program Execution ControlsUnconditional GO to Statement Computed GO to Statement Assigned 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 Start Else if Statement Block if StatementIf exp then Else if exp then END if Statement Else StatementIf Flag .EO then Else if Flag .EO then Write 6,40 Fedtax Loop Control Statements Operation of a do LoopDo Statement Continue Statement Program Termination StatementsContinue CHARACTER*12 Pname Stop Statement Pause StatementPause Pause BREAK12 Chapter Functions and Subroutines Intrinsic and Statement FunctionsIntrinsic Functions Statement Functions Intri Nsic StatementIntrinsic tunc ,tunc Intrinsic Sqrt Intrinsic EXP, LOG, LOG10 156.8 Function Statement External Procedures Function Subprogram Limitations SubroutinesDo 100 K = 1 Total = Total + Arrayk 100CONTINUE Return END Retu RN Statement Subroutine StatementProgram CALL.. Subroutine SU Brouti N E subdum,dum External Statement Save StatementSave lebl ,Iebl External proe ,proe Call Statement Arguments And Common Blocks Revisited Common 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 Properties File Name File ExistenceFile Position External And Internal Files Unit Properties File Access Open Statement File-Handling StatementsUnit Specifier 1.2 1/0 Status Specifier Error Specifier File Name SpecifierFile Status Specifier Access = Sequential Access Method SpecifierAccess = SEQUENTIAL,FORM = Formatted Formatting Specifier Blank Specifier Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcrForm = FORMATTED,RECL=80 Blank = blnk Opening a Connected Unit Close StatementClose close-list Close 3, IOSTAT= ERRFLG, ERR= Rewi N D Statement Backspace StatementFile Disposition Specifier Backspace Endfile Statement Data-Transfer 1/0 StatementsRead 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 Print Statement Formatted And Unformatted Data TransferUnformatted Data Transfer Print 120, PNAME, AVG Printing Formatted Records Formatted Data Transfer Stl Format flist Format Statement Is 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, Fpnum List-Directed Input List·Directed FormattingPaint 25, Pname Format A20, $ List-Directed Output Page Chapter Programming Guidelines Problem DefinitionProgram Development Program Documentation Refining 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 flist Functions And Subroutines Fortran CodingGO to Statement Crossing Unit Lines Reminders References= 2217*r* *2 PI = Programming Guidelines Appendix a FORTRAN-80 Statement Summary Statement SequenceStatement Summary ERR = stl Stname Iostat =Status = Stat Continue 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 Functions Category Function Arguments Int-12.8 = Page Hollerith As a Data Type Appendix C Hollerith Data TypeHollerith Constant Hollerith Constants In Data Statements AEditing Of Hollerith Data Hollerith Format Specification Appendix D Extensions to Ansi Fortran Standard Extensions To 1977 SubsetNonstandard Extensions To 1977 Fortran Differences From 1966 Fortran More Specific Semantics Than 1977 Fortran FORTRAN-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 $REENTRANT Interpretation of do Statements Default Data LengthsIncluding Source Files $0077 F1MYPROG UNIT4 LP, Unit 5 Fosysin Unit n = device Index Block Data Function Subroutine Index Page Page Page Inter Postage will be paid by Addressee WED Like Your Comments Request for Readerscomments 111111 Page Inter