Fortran-So

FORTRAN-80 Statement Summary

IMPLICIT Statement

Category: Nonexecutable, specification

Text Reference: Section 3.1.5

Format	Function

IMPLICIT type (1[, 1] ... )[,type(1[,I] ... )] ...	Define implicit typing for variable
	names whose first letter is '1' or in
	range '1,1.'

INTEGER Statement

Category: Nonexecutable, specification, type

Text Reference: Section 3.1.2

Format	Function

INTEGER [* len [,]] name [,name] ...	Define 'name' to be of type integer
	with length 'len.'

INTRINSIC Statement

Category: Nonexecutable, specification

Text Reference: Section 5.1.2

. Format	Function

INTRINSIC fune [,func] ...	Allow intrinsic function(s) 'fune' to
	be used as actual argument(s).

LOGICAL Statement

Category: Nonexecutable, specification, type

Text Reference: Section 3.1.3

Format	,.'
	Function

LOGICAL [* len [,]] name [,name] ... Define 'name' to be of type logical with length 'len.'

A-8

Page 98

Image 98

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Illustrations Chapter Programming Guidelines Glossary FORTRAN-SO Comment Lines Chapter Introduction to FortranAn Introductory Example Value Assignment Statement Type StatementInput Statements Output Statements Executable Statements Summary Of FORTRAN·SO StatementsProgram Termination Nonexecutable Statements Order of Statements Format Fortran Program Structure Program Units and ProceduresChapter Fortran Concepts Program name Prog RAM StatementStatements and Lines #Pol.1ndSign Fortran Statement ElementsCharacter Set = 8*C + D* *2/E Constants and Variables B52 Arithmeticoverflow Error Murphyslaw #4567Q +#AF2CH Where+64101 #14010 Sl#d ...b Sperim = 4*S Sqarea = S**2 Sqdiag = Sqrt 2*S* *2 Relational Expressions EXP1 EXP2 operator If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVGEXP1 operator EXP2 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 Real Type Statement Chapter Defining Variables ARRAYS, and MemoryType Statements Integer Type Statement Logical Type Statement Va,luernustueiA, Qp4 Character * len, name ,name Len Aryd* len Implicit Integer I-N, Logical O-l Array DefinitionImplicit REALA-B, D-H, Character C Character TICTAC3,3 Logical ,3,3 Kinds of Array Declarators Dimension StatementLogical Table Integer Array Dimension ,3, ARRAY3,3,3 ARRAY3,MI00LE,THIRD Referencing Array Elements Dimension ,3Properties of Arrays Ary s ,s Assignment Statements ARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Arithmetic Assignment Statement = char = expLogical FLAG, ,3 CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = Gehrig Assign 1010 to LOOP1 Goto LOOP1 Data StatementAssign stlTO name R*c Data Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Equivalence StatementData I,J,K/10,20,301 Array List Common StatementReal Fpnumb Fpnumb Block Data Subprograms ZEROS/1 0 Block Data StatementBlock Data name Unconditional GO to Statement Program Execution ControlsTransferring Program Oontrol Computed GO to Statement Assign 10TO Start Gotostart Assign 999 to Done Assigned GO to StatementArithmetic if Statement Done = a * *2 .GT **2 Logical if Statement6 IF, Else IF, and Else Blocks If Done Pause If .NOT. Done GO to Start If exp then Block if StatementElse if Statement Else if exp then If Flag .EO then Else StatementEND if Statement Else if Flag .EO then Write 6,40 Fedtax Do Statement Loop Control StatementsOperation of a do Loop Continue Program Termination StatementsContinue Statement CHARACTER*12 Pname Pause Pause StatementStop Statement Pause BREAK12 Intrinsic Functions Chapter Functions and SubroutinesIntrinsic and Statement Functions Intrinsic tunc ,tunc Intri Nsic StatementStatement Functions Intrinsic Sqrt Intrinsic EXP, LOG, LOG10 156.8 External Procedures Function Statement Do 100 K = 1 SubroutinesFunction Subprogram Limitations Total = Total + Arrayk 100CONTINUE Return END Program CALL.. Subroutine Subroutine StatementRetu RN Statement SU Brouti N E subdum,dum Save lebl ,Iebl Save StatementExternal Statement 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 Record Properties Chapter INPUT/OUTPUTRecords, Files, And Units File Properties File Position File ExistenceFile Name External And Internal Files File Access Unit Properties Unit Specifier File-Handling StatementsOpen Statement 1.2 1/0 Status Specifier File Status Specifier Error SpecifierFile Name Specifier Access = SEQUENTIAL,FORM = Formatted Access Method SpecifierAccess = Sequential Formatting Specifier Form = FORMATTED,RECL=80 Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcrBlank Specifier Blank = blnk Close close-list Close StatementOpening a Connected Unit Close 3, IOSTAT= ERRFLG, ERR= File Disposition Specifier Backspace StatementRewi N D Statement Backspace Read Statement Data-Transfer 1/0 StatementsEndfile 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 Unformatted Data Transfer Formatted And Unformatted Data TransferPrint Statement 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· Paint 25, Pname List·Directed FormattingList-Directed Input Format A20, $ List-Directed Output Page Program Development Problem DefinitionChapter Programming Guidelines Program Documentation Level Two Refining The Problem DefinitionLevel One Level Three Otherwise Print Employee Data and Update Totals ElseFinal Coding Write unit, 60 EMP, HRS, GRPAY, Netpay Format flist GO to Statement Fortran CodingFunctions And Subroutines Crossing Unit Lines = 2217*r* *2 ReferencesReminders PI = Programming Guidelines Statement Summary Appendix a FORTRAN-80 Statement SummaryStatement Sequence ERR = stl Status = Iostat =Stname 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 Hollerith Constant Appendix C Hollerith Data TypeHollerith As a Data Type 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 Call INPUT1, TEST1 Call OUTPUT2 Where the $must be in columnCall Input port, var Call Output port, exp $REENTRANT Including Source Files Default Data LengthsInterpretation of do Statements $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