ࡱ>   Root Entry`DEST@n IPerfectOffice_MAIN& X5PerfectOffice_OBJECTS,`I`I7=CIQYag1.a.i.(1)(a)(i)1)a)+ QZ<Century Schoolbook RegularTitle -$Craig T. Dedo$0Craig T. Dedo J3 / 97-1nn.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  2 l'  "" -X  f  ݛ ,-TT@(#"WU J3/99-222#"WU#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  (#Page  1  ڀof  1  # e37=CIQYag1.a.i.(1)(a)(i)1)a)   +E"   -X  =&u$&,dd=3  ݛMakesureROUND=NEARESTdoesIEEEroundtonearest. (E#   -X  =&u$&,dd=3  ݛ J3InternalNote   +"  """ -X  =&u:&,dd=f  ݛMakesureROUND=NEARESTdoesIEEEroundtonearest. (#  """ -X  =&u:&,dd=f  ݛ J3InternalNote + QZ<Century Schoolbook Regular"Arial Regular(3$ !   -X    =&u$&,dd=f  ****'dxd d(3$ !   -X    =&u$&,dd=f  2+(3)UC <<CLevel 1Level 2Level 3Level 4Level 5WPCY% X5p_'{[u0vR+75s KB'uLzO3C/ ~V_@(le| A{MRn_v?R2.G&8kPXU38efT7 "G6edG~q; >k$naS/Oz)^>$_#+ n\&$>"]QU6CS\ )5ąT`0)r5f˹MeJGo;ksy?{j4QAk|gj-~UJDîSm>L4B`rۧ,Ge?zE*,#^wq$ZdEsq + .1zwO&!HaўVcڱḊV T % 0 0L a ni l e2 @3 0esZ2 0  0efPaRw@f4 m 1mUTO^< 1m=UTU :88 0r D3 B 0 AS 9! 0D! D/C" Br"r"r"r"r"r"r"r"r"r"r"r"r"r"r"r"r"" 0sU## 0$$$$$$$$$ B*%%% C?% c:\COREL\OFFICE7\TEMPLATE\X3J3NE~1.WPT($   -X    =&u$&,dd=f(2l$ !   -X    =&u$&,dd=f  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 6 l'  """ -X  f  ݛ ,-TT>(#We" J3/99-222r1#"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  @(#Page  1  ڀof  2  4#(2Quick A.  .0 c:\Corel\Office7\Template\X3J3 New Paper.wpt B   ,X.< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/  ԎC  (3$ !   -X    =&u$&,dd=f  H4#:.2Quick 1.F  .0 FdfTABLE A DUD !U"',X{Ԅ3|x"U' e3($$   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 H&0 d dd !  """ -X    =&u:&,dd=f  ݛC  e'#CX  ֣X  r^4` <hDp Lx !(#T$%&-r  %  @  ResponsestoWG5/N1356 [    JORhaslookedatseveraloftherecommendationsaboutunresolvedissuesinWG5paperN1356.ReferencesaretothecurrentFortran2000draft,99-007r2.  1.  [349:7]splitthefirstsentenceafter ResultValue intotwosentences. L  8  "IfNAMEhasthevalueDEFAULT,thentheresulthasavalueequaltothekindtypeparameterofthedefaultcharacterdatatype.IfNAMEhasthevalueASCII,thentheresulthasavalueequaltothekindtypeparameteroftheASCIIcharacterdatatype." !!   2.  Issue24,page238.    [238:4-7]Replacefour(4)occurrencesof"0.5"withr. M  [238:11-18]Intablein10.6.4.1.2,replaceeachoccurrenceof"0.5"withr. `  [238:19+]Insertthefollowingtable:*w*ddd Xdd Xdd X(#(#w,dd ,` dd +  !RU   !IfRoundingModeis -RUD RU -ris "D RU "NEAREST 6, I ?0.5?60.5 6,*I ?0.5 ? 6UP 4*   ?1?41 4*(  ?1 ? 4DOWN ) d  # )0 )d  #  )ZERO  i 1ifdatumisnegative0ifdatumispositive {   l16&"p 0  `ExtR ]ll16&"p 0  `ExtR ]l"=&u:&,d&,d=" l1 !6&"p 0  `ExtR ]l  l1 !6&"p 0  `ExtR ]l (#(#     (#(# !!"A&u:&,d&,d A"[238:23-29]DeleteJ3note.  3.  Issue64,page197. !B& [196:25]Add," or ROUND=scalar-default-char-expr"  #( [197:21+]Add,"TheROUND=specifierisdescribedin9.4.4.13."[197:25-31]DeleteJ3note.[197:19]Replace"andDECIMAL="with"DECIMAL=,andROUND=".[197:12+]Add"Constraint:IfaDECIMAL=orROUND=specifierispresent,aformator (h"0 namelist-group-nameshallalsoappear." z)#1 [194:9]Insert"(10.7.7)before"."[242:22-25]Replace"Atthe...;an"with"IfaROUND=specifierappearsintheio-control-spec-listfor V,%5 aformattedinput/outputstatement,itspecifiestheinitialroundingmodeforthatstatement.Otherwise,theinitialroundingmodeforaformattedinput/outputstatementisthatestablishedbytheOPENstatementfortheconnection.An" {. (8 Root Entry`DESTdPerfectOffice_MAIN&$<PerfectOffice_OBJECTS,`I`I!"#%&'()*+,-./0123456789:;<=> tRi Yl $&$l1.'6&"p 0  `ElxtRi Yl$&&_l1'6&"p 0  `ElxtRi Yl_ (#(#     (#(#&!!("A&#&,d&,d A"([238:23-29]DeleteJ3note.  3.  Issue64,page197. !& [196:25]Add," or ROUND=scalar-default-char-_expr_" g"(( [197:21+]Add,"TheROUND=_specifier_Ԁisdescribedin9.4.4.13."[197:25-31]DeleteJ3note.[197:19]Replace"andDECIMAL="with"DECIMAL=,andROUND=".[197:12+]Add"Constraint:IfaDECIMAL=orROUND=_specifier_Ԁispresent,aformator (!0 _namelist_-group-nameshallalsoappear." (w"1 [194:9]Insert"(10.7.7)before"."[242:22-25]Replace"Atthe...;an"with"IfaROUND=_specifier_Ԁappearsintheio-control-spec-listfor +C%5 aformattedinput/outputstatement,itspecifiestheinitialroundingmodeforthatstatement.Otherwise,theinitialroundingmodeforaformattedinput/outputstatementisthatestablishedbytheOPENstatementfortheconnection.An"WPCb+ <DW?jfѤϕWbސV0Gثg~pԞ6?I\"ߝ"FNo?XZe27,gj>IdpUJFj(>ؖXmFՖC4&lC.\šjPk[dvic𔮫|dMD{Wx,'R.F:|~Aaа 墥c>DTNt*Ņ YD^mwk,|+Hs oI?XWdJrNPO@ q~G}Q W/~ɮP*8A)Vphw4byaPΒb$l꒑10 a%dF~Ks6ƴu ˯8 d{濑a̗8(=8 XU5TY'X|-VF@Cu oeW%hfV T % 0 0L a ni l e2 K3 0e~Z= 0  0efjalw@4 m 1uUTq^<# 1u_UTcJ UT#!bNI U:K J 0! D3" B# 01#UTC$U:$J$UT&U:o& AS&& 0D' D/( B5(U:R(^ (((((((((((((((( 0s^)) 0********* B*+++ CH+ c:\COREL\OFFICE7\TEMPLATE\X3J3NE~1.WPT($   -X    =&u$&,dd=f(20$ !   -X    =&#&,dd=f  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 A 0'   -X  f  _ ,-hh>(#> J3/99-222r1#>#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo I ResponsestoWG5/N1356@@<(#August26,1999  (#Page  1  ڀof  1  4#(2Quick A.  .0 c:\Corel\Office7\Template\X3J3 New Paper.wpt _B   ,X.< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/  ԎC  (3$ !   -X    =&#&,dd=f  H4#:.2Quick 1.F  .0 FdfTABLE A D !U"#$&(EDs&,X{Ԅ3|x(U'#137=CIQYag1.a.i.(1)(a)(i)1)a)+ QZ<Century Schoolbook RegularResponses to WG5/N1356 -$Craig T. Dedo$0Craig T. Dedo J3 / 97-1nn.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  2 l'  "" -X  f  ݛ ,-TT@(#"WU J3/99-222#"WU#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  (#Page  1  ڀof  1  ##37=CIQYag1.a.i.(1)(a)(i)1)a)  } +"   -X  =6#6,dd=f  _=6#6d6,d=MakesureROUND=NEARESTdoesIEEEround_to_Ԁnearest.+ QZ<Century Schoolbook Regular @ +"   -X  =&#&,dd=f  _MakesureROUND=NEARESTdoesIEEEround_to_Ԁnearest.  (#   -X  =&#&,dd=f  _ J3InternalNote + QZ<Century Schoolbook RegularHP OfficeJet Pro 1170C Series0(,,,,0(0Level 1Level 2Level 3Level 4Level 5"Arial Regular @ (#  ,,, -X  =-#-,dd=f  _=-#-d-,d= J3InternalNote (3$ !   -X    =&#&,dd=f  ****'dxd d(3$ !   -X    =&#&,dd=f  ݏ+ QZ<Century Schoolbook Regular"Arial Regular @ +"  /// -X  =0#0,dd=f  _MakesureROUND=NEARESTdoesIEEEround_to_Ԁnearest.+ QZ<Century Schoolbook Regular"Arial Regular2+(3)UC <<CLevel 1Level 2Level 3Level 4Level 5($$   1  55' dxdP Pd"Arial Regularp|$'1, 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 H&0 d dd !   -X    =&#&,dd=f  _C  #1'#CX  X  r^4` <hDp Lx !(#T$%&-r  %  @  ResponsestoWG5/N1356 ?    _JOR_ԀhaslookedatseveraloftherecommendationsaboutunresolvedissuesinWG5paperN1356.ReferencesaretothecurrentFortran2000draft,99-007r2.  1.  [349:7]splitthefirstsentenceafter ResultValue intotwosentences.   8  "IfNAMEhasthevalueDEFAULT,thentheresulthasavalueequaltothekindtypeparameterofthedefaultcharacterdatatype.IfNAMEhasthevalueASCII,thentheresulthasavalueequaltothekindtypeparameteroftheASCIIcharacterdatatype." !!   2.  Issue24,page238.  `  [238:4-7]Replacefour(4)occurrencesof"0.5"withr.   [238:11-18]Intablein10.6.4.1.2,replaceeachoccurrenceof"0.5"withr. k,  [238:19+]Insertthefollowingtable:**ddd Xdd Xdd X(#(#,dd ,` dd +  !RU E  !IfRoundingModeis /RU RU /ris $ RU $NEAREST 6, D ?0.5?60.5 6,*D ?0.5 ? 6UP 4* a  ?1?41 4*(a  ?1 ? 4DOWN )  # )0 ) #  )ZERO  X 1ifdatumisnegative0ifdatumispositive    ("=&#&,d&,d="(#     4  `      # l1 !6&"p 0  `ExtR ]l $ l1 !6&"p 0  `Elx