WPC8 -]C0`A!lx"WNce{w9UÒ~in*kᰲKmK|Y50d&X_hsQ1 ȥ{ް#Nk;lzy(-pxqxNGh1D:^1%Kc'=3%;o-4ɳʤifZo1H0 r~rڸ_T+`wxo1񃬸3JKD\g2ӌs:%k`H>j3)S6̟%X+QS6V"!x~K[N":< syڐ"ϴ|d.z Gk?:][H ]>k+UBuBZv6ɣF\Tt7S]ӨrHZ6,YD@)-kvR[Tg1_i&UWUXޓ(UFءM?\[`5VUL % 0 0Lon e  0e ~ 0  0eUP5w@ m4UL> 1mMULULUVR 1m 0 D3 B 0000000 AOB 0D D/L B{{{{{{{{{{{{{{{{{ 0s^ 0 C2p`4New Century Schoolbook($  @D  @D  @D -X    (2jm$ !  xxx -X     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  jm'  xxx -X   ݛ ,-@(#x J3/97-162#x#  X ТNCITSJ3ANSIFortranStandardsCommitteell>(#CraigT.Dedo i NamedScratchFilesZZ=(#April22,1997 * 7 7 7 (#Page  1  ڀof24#(2Quick A.  .0 Named Scratch FilesReport ,' ' X3J3/96-169$Craig T. Dedo$Craig T. Dedo .   /4 Fortran 2000 Standard+None     "1 302Original  t ,X.4 $C:\TEMP\97-162.WPD4C:\TEMP\97-162.WPD/  (3,$ !  xxx -X     H4#:.2Quick 1.F  .0 F۫gQZ8NewCenturySchlbk Regular EEH{U=! 2p`4New Century Schoolbook3|x' e37=CIQYag1.a.i.(1)(a)(i)1)a)2p`4New Century Schoolbook+`4New Century Schoolbook9LXp>New Century Schoolbook Bold# e37=CIQYag1.a.i.(1)(a)(i)1)a)  +,"  xxx -X   ݛIftheSTATUS=specifierhasthevalueofSCRATCH,theFILE=specifiermaybeeitherpresentorabsent.(3,$ !  xxx -X     ****'dxd d(3,$ !  xxx -X     2(34C<< 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 !  xxx -X     ݛC  e'#CX ֢ ֣X  r^4` <hDp Lx !(#T$%&-r  %  @! NamedScratchFiles t  @"byCraigT.Dedo@#April22,1997 1.0  Rationale  ((#(#   Currently,theFortranstandarddoesnotallowtheusertonamescratchfiles.Notallowingtheusertonamescratchfilesisanunnecessaryirregularity.Anamedscratchfilewouldbetheonlykindofnamedfilewhichwouldbeautomaticallydeletedwhenthefileisclosedorexecutionterminates.  AllowingFortranprogrammerstogivenamestoscratchfileswouldhaveseveraladvantages.Theseadvantagesinclude:0  0(#(#  Thisfeaturewouldallowtheprogrammertoprotectagainstaccidentallyoverwritingexistingfiles.Thiscould q  happeniftheprocessorgeneratesafilenamewhichisthesameasthenameofanexistingfile. (#(# 0  0(#(#  Thisfeaturewouldallowtheprogrammertospecifyalocationforthescratchfilewhichhasenoughspaceforthe g  scratchfile'scontents. (#(# 0  0(#(#  Theprogrammercouldlookatascratchfile'scontentsduringexecution.u (#(#   Iftheprocessordoesnotdeletescratchfilesiftheprogramcrashes,thisfeaturewouldallowtheprogrammertodosomepostmortemanalysis. 2.0  TechnicalSpecification :(#(#   ThisproposalwouldrequireaFortranprocessortoallowtheusertonamefilesopenedwiththekeywordSTATUS="SCRATCH".Sincepreviouspracticedidnotallowtheuseoffilenameswithscratchfiles,theprogrammerwouldstillbeallowedtoopenascratchfilewithoutspecifyingafilename.  ItisillegaltoopenafilewithSTATUS="SCRATCH"whichhasthesamenameasanonscratchfilewhichisalreadyopen,whetheronthesameoradifferentunit.Ifafileisattachedtothesameunitandtheprogrammeropensitagainwiththesamename,theopenoperationislegalonlyifthefilehasSTATUS="SCRATCH".  Itisillegaltoopenascratchfilewiththesamenameasanexistingfilethatisnotopen.  Iftheprogramcrashesduringexecution,theexistenceofthescratchfileafterthecrashisprocessordependent. 3.0  EditstotheStandard } "(#(#   TheseeditsarewithrespecttotheFortran95CommitteeDraft,X3J3/96-007r1.[140:35-36]Deletethesentence:  "IftheSTATUS=specifierhasthevalueofSCRATCH,theFILE=specifiershallbeabsent."[140:38+]Addthefollowingnote:a1-` 0  `E*xtt* Na (#(#    (#(#[140:2-3+]Changethetexttoread:  "IftheSTATUS=specifierisincludedinsuchanOPENstatement,itshallbespecifiedwiththevalueofOLDorSCRATCH.ThevalueofSCRATCHshallbepermittedonlyifthefiletowhichtheunitisalreadyconnectedhasSTATUS=SCRATCH."[140:13+]Addthefollowingtext:  "IfSCRATCHisspecifiedandthenameisthesameasthenameofanexistingfile,executionofanOPENstatementisnotpermitted." .^(5 [141:18-19]DeleteNote9.14. 4.0  References h (#(# ISO/IEC1539-1:1991(E)InternationalStandardProgrammingLanguageFortran90,9.3.4X3J3/96-004,X3J3JournalofRequirements(JOR),Item120[Endof~j3~J3/97-16{1{2]