Manuals / Intel / Computer Equipment / Laptop

Intel fortran-80 manual Blank Specifier, Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcr, Blank = blnk

Models: fortran-80

1 130

Download 130 pages 742 b

Page 67

FORTRAN-80

Input/Output

If the file is being connected for formatted 110, 'reclen' is the number of characters. If the file is being connected for unformatted 110, the length is measured in bytes.

If the file already exists, the length specified must be that used when the file was created. In the case of a new file, the processor creates a file with the specified length for each record.

The REeL specifier must be included in the OPEN statement when a file is being connected for direct access.

Example:

OPEN (3, FILE='CARDS',STATUS='NEW',ACCESS='DIREcr,

&FORM = 'FORMATTED',RECL=80)

6.2.1.9 Blank Specifier

The format of the blank specifier is

BLANK = blnk

where 'blnk' is one of the character constants 'NULL' or 'ZERO'. If the BLANK specifier is omitted, the default value is 'NULL'.

If 'NULL' is specified, all blanks in numeric formatted input fields are ignored, ex- cept that a field of all blanks has the value zero. If 'ZERO' is specified, all blanks ex- cept leading blanks have the value zero.

The specifier is permitted only for files being connected for formatted input/output.

Example:

OPEN (UNIT=3, FILE='TOTALS',STATUS='NEW',

&FORM='FORMATTED',BLANK='ZERO')

6-7

Image 67

Intel fortran-80 Blank Specifier, Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcr, Form = FORMATTED,RECL=80, Blank = blnk

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Chapter Programming Guidelines IllustrationsGlossary FORTRAN-SO An Introductory Example Chapter Introduction to FortranComment Lines Output Statements Type StatementInput Statements Value Assignment StatementNonexecutable Statements Summary Of FORTRAN·SO StatementsProgram Termination Executable StatementsFormat Order of StatementsChapter Fortran Concepts Program Units and ProceduresFortran Program Structure Statements and Lines Prog RAM StatementProgram name = 8*C + D* *2/E Fortran Statement ElementsCharacter Set #Pol.1ndSignB52 Constants and VariablesArithmeticoverflow Error Murphyslaw Sl#d ...b Where+64101 #14010 #4567Q +#AF2CHSqdiag = Sqrt 2*S* *2 Sperim = 4*S Sqarea = S**2Relational Expressions OP1 NOT.OP1 True False False True If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVGEXP1 operator EXP2 EXP1 EXP2 operatorStop OP1 OP2 OP1 .NEQV. OP2 Precedence of Operators15/3 + 18/9 = 5 + 2 = 15/3 + 18/9 = 15/3 + 2 = 15/5 = Scope of SymbolsCall sub arg,arg Notational ConventionsCall ROUT1A, 3.72 Page Integer Type Statement Chapter Defining Variables ARRAYS, and MemoryType Statements Real Type StatementVa,luernustueiA, Qp4 Logical Type StatementLen Aryd* len Character * len, name ,nameCharacter TICTAC3,3 Logical ,3,3 Array DefinitionImplicit REALA-B, D-H, Character C Implicit Integer I-N, Logical O-lARRAY3,MI00LE,THIRD Dimension StatementLogical Table Integer Array Dimension ,3, ARRAY3,3,3 Kinds of Array DeclaratorsAry s ,s Dimension ,3Properties of Arrays Referencing Array ElementsARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Assignment StatementsArithmetic Assignment Statement CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = Gehrig = expLogical FLAG, ,3 = charR*c Data StatementAssign stlTO name Assign 1010 to LOOP1 Goto LOOP1Data I,J,K/10,20,301 Equivalence StatementData Zeros 110*0/1,J,K 110,20,301 &NAMES2 Iotti Fpnumb Common StatementReal Fpnumb Array ListBlock Data Subprograms Block Data name Block Data StatementZEROS/1 0 Computed GO to Statement Program Execution ControlsTransferring Program Oontrol Unconditional GO to StatementArithmetic if Statement Assigned GO to StatementAssign 10TO Start Gotostart Assign 999 to Done If Done Pause If .NOT. Done GO to Start Logical if Statement6 IF, Else IF, and Else Blocks Done = a * *2 .GT **2Else if exp then Block if StatementElse if Statement If exp thenElse if Flag .EO then Write 6,40 Fedtax Else StatementEND if Statement If Flag .EO thenOperation of a do Loop Loop Control StatementsDo Statement CHARACTER*12 Pname Program Termination StatementsContinue Statement ContinuePause BREAK12 Pause StatementStop Statement PauseIntrinsic and Statement Functions Chapter Functions and SubroutinesIntrinsic Functions Intrinsic Sqrt Intrinsic EXP, LOG, LOG10 Intri Nsic StatementStatement Functions Intrinsic tunc ,tunc156.8 Function Statement External ProceduresTotal = Total + Arrayk 100CONTINUE Return END SubroutinesFunction Subprogram Limitations Do 100 K = 1SU Brouti N E subdum,dum Subroutine StatementRetu RN Statement Program CALL.. SubroutineExternal proe ,proe Save StatementExternal Statement Save lebl ,IeblCall Statement Arguments And Common Blocks RevisitedDummy And Actual Arguments Common BlocksAssociation Of Arguments Agreement Of Argument Lengths Function FA,B,C FX, YPage File Properties Chapter INPUT/OUTPUTRecords, Files, And Units Record PropertiesExternal And Internal Files File ExistenceFile Name File PositionUnit Properties File Access1.2 1/0 Status Specifier File-Handling StatementsOpen Statement Unit SpecifierFile Name Specifier Error SpecifierFile Status Specifier Formatting Specifier Access Method SpecifierAccess = Sequential Access = SEQUENTIAL,FORM = FormattedBlank = blnk Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcrBlank Specifier Form = FORMATTED,RECL=80Close 3, IOSTAT= ERRFLG, ERR= Close StatementOpening a Connected Unit Close close-listBackspace Backspace StatementRewi N D Statement File Disposition SpecifierEndfile arg-list Data-Transfer 1/0 StatementsEndfile Statement Read StatementRead 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 120, PNAME, AVG Formatted And Unformatted Data TransferPrint Statement Unformatted Data TransferPrinting Formatted Records Formatted Data TransferStl Format flist Format StatementIs 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, FpnumFormat A20, $ List·Directed FormattingList-Directed Input Paint 25, PnameList-Directed Output Page Program Documentation Problem DefinitionChapter Programming Guidelines Program DevelopmentLevel One Refining The Problem DefinitionLevel Two Write unit, 60 EMP, HRS, GRPAY, Netpay Format flist Otherwise Print Employee Data and Update Totals ElseFinal Coding Level ThreeCrossing Unit Lines Fortran CodingFunctions And Subroutines GO to StatementPI = ReferencesReminders = 2217*r* *2Programming Guidelines Statement Sequence Appendix a FORTRAN-80 Statement SummaryStatement Summary ERR = stl Stat Iostat =Stname Status =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 FunctionsCategory Function Arguments Int-12.8 = Page Hollerith Constants In Data Statements Appendix C Hollerith Data TypeHollerith As a Data Type Hollerith ConstantAEditing Of Hollerith Data Hollerith Format SpecificationStandard Extensions To 1977 Subset Appendix D Extensions to Ansi FortranNonstandard Extensions To 1977 Fortran Differences From 1966 Fortran More Specific Semantics Than 1977 FortranFORTRAN-80 Page Ascii Codes Ascii CodesPage Processor Limitations On Language Appendix F 8080/8085 Processor DependenciesCompiler Extensions $REENTRANT Where the $must be in columnCall Input port, var Call Output port, exp Call INPUT1, TEST1 Call OUTPUT2$0077 Default Data LengthsInterpretation of do Statements Including Source FilesF1MYPROG UNIT4 LP, Unit 5 Fosysin Unit n = deviceIndex Block Data Function Subroutine Index Page Page Page Inter Postage will be paid by Addressee WED Like Your CommentsRequest for Readerscomments 111111 Page Inter