Rewind Statement

FORTRAN-80

FORTRAN-SO Statement Summary

	REWIND Statement
Category: Executable
Text Reference: Section 6.2.4

Formats		Function

REWIND unit		Reposition file connected to 'unit'
REWIND (arg-list)		at its initial point.

Notes:

'arg-list' includes the following specifiers:

[UNIT =] unit	unit specifier
lOSTA T = stname	110 status specifier
ERR = stl	error specifier

SA VE Statement

Category: Nonexecutable, specification

Text Reference: Section 5.2.5

Format	Function

SAVE /cb / [,/cb/] ...	Save data in common block 'cb' on
	return from subprogram.

Statement Function Statement

Category: Nonexecutable

Text Reference: Section 5.1.3

Format		Function

func ([d[,d] ... J) = exp		Define function 'func' with dummy
		argument(s) 'd;' 'exp' is an expres-
		sion.

	STOP Statement
Category: Executable
Text Reference: Section 4.3.2

Format		Function

STOP [msg]		Terminate program execution;
		'msg' IS 1-5 digits or a character
		constant.

A-II

Page 101

Image 101

Intel fortran-80 manual Rewind Statement

Contents

FORTRAN-SO Programming Manual Prompt Preface Page Contents Chapter Programming Guidelines Illustrations Glossary FORTRAN-SO Comment Lines Chapter Introduction to FortranAn Introductory Example Input Statements Type StatementValue Assignment Statement Output Statements Program Termination Summary Of FORTRAN·SO StatementsExecutable Statements Nonexecutable Statements Format Order of Statements Fortran Program Structure Program Units and ProceduresChapter Fortran Concepts Program name Prog RAM StatementStatements and Lines Character Set Fortran Statement Elements#Pol.1ndSign = 8*C + D* *2/E B52 Constants and Variables Arithmeticoverflow Error Murphyslaw +64101 #14010 Where#4567Q +#AF2CH Sl#d ...b Sqdiag = Sqrt 2*S* *2 Sperim = 4*S Sqarea = S**2 Relational Expressions EXP1 operator EXP2 If Numb .GT Stop If Pname .EO. Gehrigprint 20, PNAME, AVGEXP1 EXP2 operator OP1 NOT.OP1 True False False True Stop OP1 OP2 OP1 .NEQV. OP2 Precedence of Operators 15/3 + 18/9 = 5 + 2 = 15/3 + 18/9 = 15/3 + 2 = 15/5 = Scope of Symbols Call ROUT1A, 3.72 Notational ConventionsCall sub arg,arg Page Type Statements Chapter Defining Variables ARRAYS, and MemoryReal Type Statement Integer Type Statement Va,luernustueiA, Qp4 Logical Type Statement Len Aryd* len Character * len, name ,name Implicit REALA-B, D-H, Character C Array DefinitionImplicit Integer I-N, Logical O-l Character TICTAC3,3 Logical ,3,3 Logical Table Integer Array Dimension ,3, ARRAY3,3,3 Dimension StatementKinds of Array Declarators ARRAY3,MI00LE,THIRD Properties of Arrays Dimension ,3Referencing Array Elements Ary s ,s ARRAY2,6 = a Arrayi + J, 3 = ARRAYM,M + N,M-N = a + SQRT8 Assignment Statements Arithmetic Assignment Statement Logical FLAG, ,3 = exp= char CHARACTER*10 NAMES4, MGR MGR = Stengel NAMES1 = Gehrig Assign stlTO name Data StatementAssign 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 Real Fpnumb Common StatementArray List Fpnumb Block Data Subprograms ZEROS/1 0 Block Data StatementBlock Data name Transferring Program Oontrol Program Execution ControlsUnconditional GO to Statement Computed GO to Statement Assign 10TO Start Gotostart Assign 999 to Done Assigned GO to StatementArithmetic if Statement 6 IF, Else IF, and Else Blocks Logical if StatementDone = a * *2 .GT **2 If Done Pause If .NOT. Done GO to Start Else if Statement Block if StatementIf exp then Else if exp then END if Statement Else StatementIf Flag .EO then Else if Flag .EO then Write 6,40 Fedtax Do Statement Loop Control StatementsOperation of a do Loop Continue Statement Program Termination StatementsContinue CHARACTER*12 Pname Stop Statement Pause StatementPause Pause BREAK12 Intrinsic Functions Chapter Functions and SubroutinesIntrinsic and Statement Functions Statement Functions Intri Nsic StatementIntrinsic tunc ,tunc Intrinsic Sqrt Intrinsic EXP, LOG, LOG10 156.8 Function Statement External Procedures Function Subprogram Limitations SubroutinesDo 100 K = 1 Total = Total + Arrayk 100CONTINUE Return END Retu RN Statement Subroutine StatementProgram CALL.. Subroutine SU Brouti N E subdum,dum External Statement Save StatementSave lebl ,Iebl External proe ,proe Call Statement Arguments And Common Blocks Revisited Association Of Arguments Common BlocksDummy And Actual Arguments Agreement Of Argument Lengths Function FA,B,C FX, YPage Records, Files, And Units Chapter INPUT/OUTPUTRecord Properties File Properties File Name File ExistenceFile Position External And Internal Files Unit Properties File Access Open Statement File-Handling StatementsUnit Specifier 1.2 1/0 Status Specifier File Status Specifier Error SpecifierFile Name Specifier Access = Sequential Access Method SpecifierAccess = SEQUENTIAL,FORM = Formatted Formatting Specifier Blank Specifier Open 3, FILE=CARDS,STATUS=NEW,ACCESS=DIREcrForm = FORMATTED,RECL=80 Blank = blnk Opening a Connected Unit Close StatementClose close-list Close 3, IOSTAT= ERRFLG, ERR= Rewi N D Statement Backspace StatementFile Disposition Specifier Backspace Endfile Statement Data-Transfer 1/0 StatementsRead 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 Print Statement Formatted And Unformatted Data TransferUnformatted Data Transfer Print 120, PNAME, AVG Printing Formatted Records Formatted Data Transfer Stl Format flist Format Statement Is Ff ± Y1 Y2···Ye OY1 Y2Y1 Y2 Y3 Z5editdesctiptor Either a sjgu ora letter indicatingthebas¢ Format 1X, A12, 4X, F4.3 Write 7,100 Itstno Format Thisis the Test NUMBER,2XWrite 7,100 DollytSigfjl$ijitrrrg· Read 2,50 INTNUM, Fpnum List-Directed Input List·Directed FormattingPaint 25, Pname Format A20, $ List-Directed Output Page Chapter Programming Guidelines Problem DefinitionProgram Development Program Documentation Level Two Refining The Problem DefinitionLevel One Final Coding Otherwise Print Employee Data and Update Totals ElseLevel Three Write unit, 60 EMP, HRS, GRPAY, Netpay Format flist Functions And Subroutines Fortran CodingGO to Statement Crossing Unit Lines Reminders References= 2217*r* *2 PI = Programming Guidelines Statement Summary Appendix a FORTRAN-80 Statement SummaryStatement Sequence ERR = stl Stname Iostat =Status = Stat 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 Functions Category Function Arguments Int-12.8 = Page Hollerith As a Data Type Appendix C Hollerith Data TypeHollerith Constant Hollerith Constants In Data Statements AEditing Of Hollerith Data Hollerith Format Specification Nonstandard Extensions To 1977 Fortran Appendix D Extensions to Ansi FortranStandard Extensions To 1977 Subset Differences From 1966 Fortran More Specific Semantics Than 1977 Fortran FORTRAN-80 Page Ascii Codes Ascii CodesPage Compiler Extensions Appendix F 8080/8085 Processor DependenciesProcessor Limitations On Language Call Input port, var Call Output port, exp Where the $must be in columnCall INPUT1, TEST1 Call OUTPUT2 $REENTRANT Interpretation of do Statements Default Data LengthsIncluding Source Files $0077 F1MYPROG UNIT4 LP, Unit 5 Fosysin Unit n = device Index Block Data Function Subroutine Index Page Page Page Inter Postage will be paid by Addressee WED Like Your Comments Request for Readerscomments 111111 Page Inter

FORTRAN-80