WPC  2R rS#1(iqf~8x\a[ |8V[HF~MK#8%(bΖEh&Tq! FX*"7[^ {a4v,1S<Ư4Mk5d*)ur/J-6KxaZԃ#_~-l> 6 L1i۽ jw;:%4v:LAs_;! +vZZ>Fõ8)LoǴ&ߦSp7J@*hyv:A!"͇P,_6wF/јǁC &\komR=xD:SEz-ͧtR)ـR/oN!#!6TeXK|>BO}]k@ hu=t]ĬM.dU5h:HR;3T1'`D˛?CHvCWpTcm$_z> 90 }p# %U: 0*# h5  0   n 4N^ w4 m 0e  1 72 1u 72& 0cX 1 72BBtttUT""Arial Regular(F$XXXXUSUS.,$X,X$      =dd=HP LaserJet 5M PCL,,,,0C:\COREL\WORDPE~2\TEMPLATE\CUSTOM~2\ANSIJ3~3.WPTC:\Corel\WordPerfect_Office_2002\Template\Custom WP Templates\ANSI J3 Old Document.wpt  'USUS.,$X,X$   _>(# J3/03103r1  X INCITS/J3ANSIFortranStandardsCommittee>(#CraigT.Dedo , Replace_IOSTAT_END_Ԁand_IOSTAT_EOR_ԀwithFunctionstt=(#March31,2003 L (#Page  1  ڀof  2  (3$ F!XXUSUS.,$X,X$      =dd=  ݁Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5Level 1Level 2Level 3Level 4Level 5. Z{.WS\Applicati3|xU )USUS.,$X,X$   _.H8C:\ANSI_J3\2003\03-103r1.wpdHC:\ANSI_J3\2003\03-103r1.wpd/  (3$ F!XXUSUS.,$X,X$      =dd=   (5hCEKQW]cioAutoList11.1.1.1.1.1.1.1.1.3#37=CIQYag1.a.i.(1)(a)(i)1)a)i)(;3$2#  0  .3  0  (EhCEKQW]cioAutoList21.1.1.1.1.1.1.1.1.ANSI J3 New Document  ( ' $Craig T. Dedo$0Craig T. Dedop17130 W. Burleigh Place Brookfield, WI 53005-2759 00-3nn .    3 2/ Z<Century Schoolbook Regular F!XXUSUS.,$X,X$      =dd=  _@ Replace_IOSTAT_END_Ԁand_IOSTAT_EOR_ԀwithFunctions   To:0  0(#(#04(#(#J34(#4(# From:0  04(#(#CraigDedo` 4(#4(# Subject:0 4 Replace_IOSTAT_END_Ԁand_IOSTAT_EOR_ԀwithFunctions( 4(#4(# Date:0  04(#(#March31,2003 L4(#4(# Editsreferto02M007r3.   [3:20+]0  Addthelistitem:H (#(# (3)0  Thisstandardallowsmorethanonevaluetoindicateanendoffileorendofrecordcondition.l (#(# [201:21M22]0 ` Change thevalue...argumentto anegativeintegervaluetothe_IOSTAT_   argumentthatwouldcausetheresultvalueofthe_IS_IOSTAT_ԀENDintrinsic h  function(13.7.54a)tobetrue.0 ` (#` (# [201:23]0 4 Change thevalue..._iostat_to anegativeintegervaluetothe_IOSTAT_Ԁargumentthat   wouldcausetheresultvalueofthe_IS_IOSTAT_Ԁ_EOR_Ԁintrinsicfunction(13.7.54b)tobe   true.P 4(#4(# [216:12-15]0 ` Replacetheexistingtextinlistitems(3)and(4)withthefollowing:<` (#` (# 0  (3)0(#(#WithaprocessorMdependentnegativeintegervaluethatwouldcausetheresultvalueofthe  _IS_IOSTAT_ԀENDintrinsicfunction(13.7.54a)tobetrueifanendMofMfileconditionoccurs p andnoerrorconditionoccurs,or8(#(# 0  (4)0(#(#WithaprocessorMdependentnegativeintegervaluethatwouldcausetheresultvalueofthe \ _IS_IOSTAT_Ԁ_EOR_Ԁintrinsicfunction(13.7.54b)tobetrueifanendMofMrecordconditionoccurs $ andnoerrorconditionorendMofMfileconditionoccurs.Thisvalueshallbedifferentfromany  valuethatcausestheresultvalueofthe_IOSTAT_ԀENDintrinsicfunction(13.7.54b)tobe X true. |(#(# [294:7+]0 4 Addthefollowingentriestothetableinsection13.5.17: 4(#4(# 0  _IS_IOSTAT_END_Ԁ(I)0 (#(#Testforendoffilestatusx (# (# 0  _IS_IOSTAT_EOR_Ԁ(I)0 (#(#Testforendofrecordstatus@ (# (# [319:27+]0 4 Addthefollowing: ,!4(#4(#  13.7.54a0 4 _IS_IOSTAT_ԀEND(I) !"4(#4(#  Description. DeterminewhethertheargumentvalueindicatesanendMofMfilecondition. `"#  Class. Elementalfunction #L%  Argument. Ishallbeoftypeinteger. %'  ResultCharacteristics. Defaultlogical. 'l )  ResultValue. TheresulthasthevaluetrueifandonlyifIisavaluethatcouldbeassignedtothe (!+ scalarMintMvariableinan_IOSTAT_=specifiertoindicateanendMofMfilecondition(9.10.2). h)",  13.7.54b0 4 _IS_IOSTAT_Ԁ_EOR_Ԁ(I) *T$.4(#4(#  Description. DeterminewhethertheargumentvalueindicatesanendMofMrecordcondition. +%/  Class. Elementalfunction P-&1  Argument. Ishallbeoftypeinteger. .<(3 Ї ResultCharacteristics. Defaultlogical.   ResultValue. TheresulthasthevaluetrueifandonlyifIisavaluethatcouldbeassignedtothe 4 scalarMintMvariableinan_IOSTAT_=specifiertoindicateanendMofMrecordcondition(9.10.3). X [354:2-4]0 4 Replacetheparagraphwith, Thedefaultintegerscalarconstant_IOSTAT_END_Ԁisa   processorMdependentnegativeintegervaluethatwouldcausetheresultvalueofthe T  _IS_IOSTAT_END_Ԁintrinsicfunction_(13.7.54a)_Ԁtobetrue.. x4(#4(# [354:6-9]0 4 Replacetheparagraphwith, Thedefaultintegerscalarconstant_IOSTAT_EOR_Ԁisa    processorMdependentnegativeintegervaluethatwouldcausetheresultvalueofthe t  _IS_IOSTAT_EOR_Ԁintrinsicfunction(13.7.54b)tobetrue.Thisvalueshallbedifferent <  fromanyvaluethatcausestheresultvalueofthe_IS_IOSTAT_END_Ԁintrinsicfunction `  (13.7.54a)tobetrue..( 4(#4(# &   [354:9+]0 4 Addthefollowingnote.\ 4(#4(#  Note13.18a  $  Theprocessormayprovidemorethanonevaluethatcauses_IS_IOSTAT_END_Ԁor_IS_IOSTAT_EOR_ H  tobetrue.' \&  [451:32]0 4 Change thevalue...moduleto avaluethatwouldcausetheresultvalueofthe D _IS_IOSTAT_EOR_Ԁintrinsicfunction(13.7.54b)tobetrue.] h4(#4(#  References   02-007r2,Fortran2000Draft d [EndofJ3/03-103r1]