Fortran-So

Glossary

Program Unit - Another name for a main program or a subprogram. Every program unit must be terminated by an END statement.

Record - A sequence of values or characters.

Statement - A sequence of syntactic items: statement label, keyword, arguments, ex- pressions, etc. A statement has an 'initial' line and up to nine 'continuation' lines.

Statement Label- A 1-5 digit integer in columns 1-5 of a statement's initial line. Can be given a symbolic name by the ASSIGN statement.

Subprogram - A tJlock of code having a FUNCTION, SUBROUTINE, or BLOCK DA T A statement as its first statement and the END statement as its last statement.

Subroutine - A group of statements for performing a frequently-used operation. The SUBROUTINE statement mllst be the first statement; the END statement must be the last.

Unit - A logical way of referring to a file. Once connected, it is the same as a file.

viii

Page 8

Image 8

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Illustrations Chapter Programming Guidelines Glossary FORTRAN-SO Comment Lines Chapter Introduction to FortranAn Introductory Example Type Statement Input StatementsValue Assignment Statement Output Statements Summary Of FORTRAN·SO Statements Program TerminationExecutable Statements Nonexecutable Statements Order of Statements Format Fortran Program Structure Program Units and ProceduresChapter Fortran Concepts Program name Prog RAM StatementStatements and Lines 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 ROUT1A, 3.72 Notational ConventionsCall sub arg,arg 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 Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Equivalence StatementData I,J,K/10,20,301 Common Statement Real FpnumbArray List Fpnumb Block Data Subprograms ZEROS/1 0 Block Data StatementBlock Data name Program Execution Controls Transferring Program OontrolUnconditional GO to Statement Computed GO to Statement Assign 10TO Start Gotostart Assign 999 to Done Assigned GO to StatementArithmetic if Statement 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 Do Statement Loop Control StatementsOperation of a do Loop Program Termination Statements Continue StatementContinue CHARACTER*12 Pname Pause Statement Stop StatementPause Pause BREAK12 Intrinsic Functions Chapter Functions and SubroutinesIntrinsic and Statement 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 Association Of Arguments Common BlocksDummy And Actual 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 Status Specifier Error SpecifierFile Name 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 FMT =f Control Information ListRead 2 PNAME, AB, Hits Assign 25 to Infmt Read 2,INFMT Pname Read 2,25 PNAME, AS, HitsRead 25, Pnam E, AS, Hits Write ctl-list out-list Input ListImplied-DO 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···Ye OY1 Y2Y1 Y2 Y3 Either a sjgu ora letter indicatingthebas¢ Z5editdesctiptor Format 1X, A12, 4X, F4.3 Write 7,100 Itstno Format Thisis the Test NUMBER,2XWrite 7,100 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 Two Refining The Problem DefinitionLevel One 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 Summary Appendix a FORTRAN-80 Statement SummaryStatement Sequence 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 Nonstandard Extensions To 1977 Fortran Appendix D Extensions to Ansi FortranStandard Extensions To 1977 Subset More Specific Semantics Than 1977 Fortran Differences From 1966 Fortran FORTRAN-80 Page Ascii Codes Ascii CodesPage Compiler Extensions Appendix F 8080/8085 Processor DependenciesProcessor Limitations On Language 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

Intel fortran-80 manual Fortran-So

Models: fortran-80

FORTRAN-SO