OY1 Y2, Y1 Y2 Y3, ± Y1 Y2···Ye | Intel fortran-80 specs

Input/Output

FORTRAN-SO

'E' Descriptor Editing

An I/O list item matched with an 'Ew.d' or 'Ew.dEe' descriptor must be a real variable. The exponent 'e' has no effect on input data.

On output, the format of the output field for a scale factor (section 6.4.3.1.2) of zero is:

[±][0].x1 x2··· x d exP

where
±		signifies a plus or minus
		are the 'd' most significant digits of the data's value
		after rounding
	exp	is a decimal exponent having one of the following forms
		('y' is a digit):

	Edit Descriptor	Absolute value of 'exp'	Form of 'exp'

	Ew.d	lexpl:$ 99	±	OY1 Y2
	Ew.d	99< lexpl:$ 999
		99< lexpl:$ 999	±	Y1 Y2 Y3
	Ew.dEe	lexpl:$(10**e)-1	E ± Y1 Y2···Ye

The sign in the exponent is always present. If the exponent is zero, it is prefixed by a plus. The 'Ew.d' descriptor should not be used if exp exceeds 999.

Decimal normalization is controlled by the scale factor 'k' (section 6.4.3.1.2). If -d<k:$O,the number output will have exactly Iklleading zeros and 'd - Ikl' significant digits following the decimal point. If 0< k< d + 2, the number will have exactly k significant digits to the left of the decimal point and 'd - k + 1, signifi- cant digits to the right of the decimal point. Other values of k are not legal.

Examples:

READ (2,30) RLNUMB

30 FORMAT (E4.2)

WRITE (6,110) RLOUT

110 FORMAT (E6.5E6)

Logical Editing

An I/O item matched with an 'Lw' descriptor must be of type logical.

The input field includes an optional period followed by a 'T' (for TRUE) or 'F' (for FALSE). These characters may be followed by additional characters. For example, the logical constants' .TRUE.' and' .FALSE.' are acceptable inputs.

The output field consists of the letters 'T' or 'F,' based on the TRUE or FALSE value of the internal data.

Examples:

DIMENSION TRUTH(4)

READ (3,50) TRUTH(1), TRUTH(4)

50 FORMAT (2L6)

WRITE (6,80) TRUTH(1)

80 FORMAT (L1)

6-18

Image 78

Intel fortran-80 manual OY1 Y2, Y1 Y2 Y3, ± Y1 Y2···Ye

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