FORTRAN-SO Programming Manual

Manual Order Number: 9800481 A

Copyright © 1978 Intel Corporation	. I
Intel Corporation, 3065 Bowers Avenue, Santa Clara, California 95051

Page 1

Image 1

Intel fortran-80 manual FORTRAN-SO Programming Manual

Contents

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