ࡱ>   Root Entry`DEST@aPerfectOffice_MAIN& 0PerfectOffice_OBJECTS, ` ` -$Craig T. Dedo$0Craig T. Dedo$J3 / 99-192r1.Title" Fortran 2000f17130 W. Burleigh Place Brookfield, WI 53005&/(414) 783-5869   ( )0 ' L-Fortran 2000 Requirement Approved\ NCITS J3 ANSI Fortran Standards Committee*American English  %&['(D)*+,-.g%3|x/HP LaserJet 5P/5MP PostScript0U' e37=CIQYag1.a.i.(1)(a)(i)1)a)  ,X.< ,C:\X3J3\150\99-215.wpd<C:\X3J3\150\99-215.wpd/  "Arial Regular# e37=CIQYag1.a.i.(1)(a)(i)1)a) D IZ<Century Schoolbook Regular(3c$ r!  E'E'E' -X    3=~=dd=  ****'dxd d(3c$ r!  E'E'E' -X    3=~=dd=  2+(3)UC <<CLevel 1Level 2Level 3Level 4Level 5($$   1  55' dxdP Pd1, 2, 3,Level 1Level 2Level 3Level 4Level 5B#:.21, 2, 3,NumbersF  .0 Fa, b, c,Level 1Level 2Level 3Level 4Level 5V#:2a, b, c,Lowercase LettersH  .0 Hd r!   -X    3=Rdd=  ݛC  e'#CX. ... X  r^4` <hDp Lx WPC  0@be;dȞIC{d)fSbލ|vt+Oè|iJy>@fK_avo^bȕmJ{ݴ9Z%LePbDUŴٞC Nt3mI[M#N놻w~N7 !?׮`*W ,=Hv.$jn{KVBt=d׍yO5Gǂ7>\$)i(UIDF )G:.0`VTVܴ+yHݕB2<# ˰z?>&p\BzbTiᓿw]Kn+r~G6"8XNiLNOЛ5@pGʱUңƥv(n!]܉WF ECIK݁1t}tb%#-M\燑?]"΅] $&rlVгtxmV|ϮV T % 0 0L a ni l e2 :3 0emX* 0  0ebKw@4#!1 m3 1mJU:AA 1m{UT 0D D3V B 0 AS  0D D/ BDDDDDDDDDDDDDDDDDa 0s' 0```````````` C c:\COREL\OFFICE7\TEMPLATE\X3J3DO~1.WPT(r$  fff -X    3=^dd=(2Z$ r!  E'E'E' -X    3=~=dd=  d:\office\wpwin\template\x3j3-rpt.wpt<6X9`(CourierXx6X@KX@<6X9`(Courierd6X@K@+`4New Century Schoolbooke P'CPA, B,Level 1Level 2Level 3Level 4Level 5 0 Z'   -X  3  ݛ ,-TT@(# J3/99-215##  X NCITSJ3ANSIFortranStandardsCommitteebb>(#CraigT.Dedo g AsterisksasI/OUnits<(#August23,1999  0 0 0 (#Page  1  ڀof  1  4#(2Quick A.  .0 c:\Corel\Office7\Template\X3J3 Document.wpt B   ,X.< ,C:\X3J3\150\99-215.wpd<C:\X3J3\150\99-215.wpd/  C(3c$ r!  E'E'E' -X    3=~=dd=  H4#:.2Quick 1.F  .0 FAsterisks as I/O Units!(#T$%&-r  %  NUMBER:0 4 0` 4(#4(#000068=` (#` (# TITLE:0  04(#(#0` 4(#4(#AsterisksasI/Ounits` (#` (# KEYWORDS:0 ` Asterisk,I/O,unitX` (#` (# DEFECTTYPE:0 ` ErratumA` (#` (# STATUS:0 4 0` 4(#4(#Submitted` (#` (# Question:1.0  DoestheFortran95standardrequiretheexternalunitcorrespondingtotheI/Ounitidentifiedbyanasterisk  ` forinputoroutputtobethesameastheexternalunitidentifiedbysomefixednonnegativeintegervalue? (#(# 2.0  CantheI/Ounitidentifiedbyanasteriskforinputoroutputcorrespondtomorethanoneexternalunit? d (#(# 3.0  IftheexternalunitidentifiedbyanintegervaluethatcorrespondstotheI/Ounitidentifiedbyanasteriskfor   inputoroutputisclosed,doesthatcausetheI/Ounitidentifiedbyanasterisktobecomedisconnected? (#(# Answer:1.0  No.U (#(# 2.0  No.p (#(# 3.0  Yes.(#(# Discussion:  Thesubmitterstates:AtleastoneFortran95implementationuses-1asthevalueoftheI/Ounitidentifiedbyanasterisk.AcarefullyconstructedINQUIREstatementcanexposethisvaluetotheuser.ManyusersexpectI/Ototheunitsidentifiedbyasteriskstocontinuetoworkevenafterthecorrespondingunitsidentifiedbyintegervalueshavebeenclosed.1.0  Thereisnorequirementinthestandardthattheasteriskcorrespondtoanexternalfileunit.(#(# 2.0  Fortheunitsidentifiedbytheasterisk,thetextofsection9.3.2doesnotallowtwoormoreunitstobe i,! connectedsimultaneouslytothesameexternaldeviceorfile[139:8-9].Aneditissuppliedtoclarifythissituation. (#(# 3.0  Theremaynotbeanexternalfileunitthatcorrespondstothe&&io-unit&&specifiedbyanasterisk,asclarifiedby % theeditbelow.Ifthereis,'theunitsidentifiedbytheasteriskarepreconnectedonlyatprogramstart[138:33-34].'(I()i)tispermissibletoexecuteaCLOSEstatementonthem*andsuchastatementhasthesameconsequence*as,executingaCLOSEstatement,onanyotherunit.-AftersuchaCLOSEstatement,theprogrammustsubsequentlyexecuteanOPENstatementon$such$unit%s%beforeexecutingaREADorWRITEstatement.- (#(# REFERENCES:ISO/IEC1539-1:1997(E),Sections9.3and9.4.4.2EDITS:ForFortran95:  Addthefollowingtexttotheendofthelastparagraphbeforesection9.3.1[138:34+]:0  8(#(#"Anasteriskusedinaninputstatementmayidentifythesameio-unitassomeparticular y$<- external-file-unit.Anasteriskusedinanoutputstatementmayidentifythesameio-unitassome %%. +other+particularexternal-file-unit."%/!! TherearenoeditsrequiredforFortran2000.SUBMITTEDBY:RobertCorbettHISTORY:99-1920  04(#(#m1500 4(#4(#Submitted)#5 (# (# 99-2150  04(#(#m1500 4(#4(#Proposedresponse.*H$6 (# (# [EndofJ3/99215]