Programming Guidelines

FORTRAN-SO

McCracken, Daniel A., A Simplified Guide to FORTRAN Programming, John Wiley & Sons, New York, 1974.

Mills, Harlan B., Mathematical Foundations for Structured Programming, Technical Report, FSC 72-6012, IBM Federal Systems Division, Gaithersburg, Md.,

1972.

Ogdin, Carol A., 'Software Design Course,' EDN, June 5, 1977.

Wirth, Niklaus, 'Program Development by Stepwise Refinement,' Communications of the ACM, Vol. 14, No.4, April 1971.

7-6

Page 90

Image 90

Intel fortran-80 manual Programming Guidelines

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Illustrations Chapter Programming Guidelines Glossary FORTRAN-SO Chapter Introduction to Fortran An Introductory ExampleComment Lines Value Assignment Statement Type StatementInput Statements Output Statements Executable Statements Summary Of FORTRAN·SO StatementsProgram Termination Nonexecutable Statements Order of Statements Format Program Units and Procedures Chapter Fortran ConceptsFortran Program Structure Prog RAM Statement Statements and LinesProgram name #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 = Notational Conventions Call sub arg,argCall ROUT1A, 3.72 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 Equivalence Statement Data I,J,K/10,20,301Data Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Array List Common StatementReal Fpnumb Fpnumb Block Data Subprograms Block Data Statement Block Data nameZEROS/1 0 Unconditional GO to Statement Program Execution ControlsTransferring Program Oontrol Computed GO to Statement Assigned GO to Statement Arithmetic if StatementAssign 10TO Start Gotostart Assign 999 to Done 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 Loop Control Statements Operation of a do LoopDo Statement Continue Program Termination StatementsContinue Statement CHARACTER*12 Pname Pause Pause StatementStop Statement Pause BREAK12 Chapter Functions and Subroutines Intrinsic and Statement FunctionsIntrinsic 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 Common Blocks Dummy And Actual ArgumentsAssociation Of 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 Error Specifier File Name SpecifierFile Status 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 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 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 OY1 Y2 Y1 Y2 Y3± Y1 Y2···Ye Either a sjgu ora letter indicatingthebas¢ Z5editdesctiptor Write 7,100 Itstno Format Thisis the Test NUMBER,2X Write 7,100Format 1X, A12, 4X, F4.3 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 Refining The Problem Definition Level OneLevel Two 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 Appendix a FORTRAN-80 Statement Summary Statement SequenceStatement Summary 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 Appendix D Extensions to Ansi Fortran Standard Extensions To 1977 SubsetNonstandard Extensions To 1977 Fortran More Specific Semantics Than 1977 Fortran Differences From 1966 Fortran FORTRAN-80 Page Ascii Codes Ascii CodesPage Appendix F 8080/8085 Processor Dependencies Processor Limitations On LanguageCompiler Extensions 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