ࡱ> $%   !"#Root Entry`DEST` 9PerfectOffice_MAIN& V@PerfectOffice_OBJECTS,997=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)   +C"  """ -X  =&u:&,dd=  ݛItseemslikelythatusingtheIEEEstandardsnames,butusingadifferentdefinitionfor  NEARESTwillbeproblematic.AstheIEEEdefinitionisnotnecessarilywhat"averageconsumers"expect,perhapsweshouldaccommodateboththeIEEEstandardand"userexpectation".NEARESTshouldbedefinedasperIEEE,"Roundtonearestmeanspickthecloserortheevenifhalfway."Testtoputthisintothetabletobecraftedbetweenmeetings.Thepossibilityofamodecalled"FORTRAN"whichwouldbedefinedas.5.  +C"  ,","," -X  =-u:-,dd=  ݛItseemslikelythatusingtheIEEEstandardsnames,butusingadifferentdefinitionfor  NEARESTwillbeproblematic.AstheIEEEdefinitionisnotnecessarilywhat"averageconsumers"expect,perhapsweshouldaccommodateboththeIEEEstandardand"userexpectation".NEARESTshouldbedefinedasperIEEE,"Roundtonearestmeanspickthecloserortheevenifhalfway."Texttoputthisintothetabletobecraftedbetweenmeetings.Thepossibilityofamodecalled"FORTRAN"whichwouldbedefinedas.5.  +"  """ -X  =&u:&,dd=f  ݛMakesureROUND=NEARESTdoesIEEEroundtonearest. (C#  """ -X  =&u:&,dd=  ݛ J3InternalNote + QZ<Century SchoolboWPC. V@b y%|sАBMxs pw^hhϊ uixf"K~ ty2UicQ5-BwH"2k̟ 8d3!漗]I6}7a22W 4" t_yӳS6&%eK-J hՏ݃GF3[moMTcErɍ$C&7Y9=3N*TP/);ϋ%9rRXA5lc}ʼnW0H)d&V8h#Ip[bpDd,EPGX zOrHp!,t M Yc({]fw67U-VȩuĴP>=DqMdMcFm&#qI""{oKݏ i -8WE5i?I( w+hSv V T % 0 0L a ni l e2 @3 0esZ2 0  0efPaRw@f4 m 1mUTO^< 1m= UT!@"UT]$@$U :&UT+' 0' D3( B( 0(UT)U:G*G*G*G* AS** 0D+ D/+ B , , , , , , , , , , , , , , , , ,*, 0s,c- 0).).).).).).).).). B*... C. c:\COREL\OFFICE7\TEMPLATE\X3J3NE~1.WPT(>u$  """ -X    =&u:&,dd=(2$ >u!  """ -X    =&u:&,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 6 '  """ -X    ݛ ,-TT>(#We" J3/99-222r2#"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo v ResponsestoWG5/N1356::<(#August27,1999 B @(#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  (3C$ >u!  """ -X    =&u:&,dd=  H4#:.2Quick 1.F  .0 FdfTABLE A D !U"#&)*=',X{Ԅ3|x?U' e3ok Regular 6 l'  $"$"" -X  f  ݛ ,-TT>(#$We" J3/99-222r1#$"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  (#Page  1  ڀof  2  ڏ+ QZ<Century Schoolbook Regular 6 l'  '"'"" -X  f  ݛ ,-TT>(#'We" J3/99-222r2#'"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  (#Page  1  ڀof  2  "Arial Regular+ QZ<Century Schoolbook Regular(3C$ >u!  """ -X    =&u:&,dd=  ****'dxd d(3C$ >u!  """ -X    =&u:&,dd=  ݏ+ QZ<Century Schoolbook Regular"Arial Regular2+(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 H&0 d dd >u!  """ -X    =&u:&,dd=  ݛC  e'#CX #)=&u:& d&,d=)& ֣&&%&####X  r^4` <hDp Lx !(#T$%&-r  %  @  ResponsestoWG5/N1356     JORhaslookedatseveraloftherecommendationsaboutunresolvedissuesinWG5paperN1356.ReferencesaretothecurrentFortran2000draft,99-007r2.  1.  [349:7]splitthefirstsentenceafter ResultValue intotwosentences.  d 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. 2  [238:19+]Insertthefollowingtable:*w*ddd Xdd Xdd X(#(#w,dd ,` dd +  !RU   !IfRoundingModeis -RUXRU -ris "XRU "NEAREST 6, Z ?0.5?60.5 6,*Z ?0.5 ? 6UP 4*   ?1?41 4*(  ?1 ? 4DOWN ) x # )0 )x #  )ZERO  z 1ifdatumisnegative0ifdatumispositive F  )"=&u:&,d&,d=") l1 !6&"p 0  `ExtR ]l * l1 !6&"p 0  `ExtR ]l *=*l1!6&"p 0  `ExtR Yl*==l1!6&"p 0  `ExtR Yl (#(#          (#(#=!!)"A&u:&,d&,d A")[238:23-29]DeleteJ3note.  3.  Issue64,page197. 6(!+ [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=". .'3 Ї[197:12+]Add"Constraint:IfaDECIMAL=orROUND=specifierispresent,aformator  namelist-group-nameshallalsoappear." n [194:9]Insert"(10.7.7)before"."[242:22-25]Replace"Atthe...;an"with"IfaROUND=specifierappearsintheio-control-spec-listfor   aformattedinput/outputstatement,itspecifiestheinitialroundingmodeforthatstatement.Otherwise,theinitialroundingmodeforaformattedinput/outputstatementisthatestablishedbytheOPENstatementfortheconnection.An")A&u:&,d& d_A)Root Entry`DESTy6PerfectOffice_MAIN&) FPerfectOffice_OBJECTS,99'(*+,-./0123456789:;<=>?@ABCDEFGHI&64,page197. '!+ [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=". . (4 [197:12+]Add"Constraint:IfaDECIMAL=orROUND=specifierispresent,aformator  _namelist_-group-nameshallalsoappear." L [194:9]Insert"(10.7.7)before"."[242:22-25]Replace"Atthe...;_an_"with"IfaROUND=specifierappearsintheio-control-spec-listfor l  aformattedinput/outputstatement,itspecifiestheinitialroundingmodeforthatstatement.Otherwise,theinitialroundingmodeforaformattedinput/outputstatementisthatestablishedbytheOPENstatementfortheconnection.An")A&BV&,d& diA)WPC*4  FWb]hgsA}k,WoWQhgI4oP α 0<:@J͵²E\՞u+7NZHw?R/ڍp7sO#BQLpݫ1<~-yf}yNg7kv- X<5 _l+XCyT2QS&WHsn6Y| k2DKZND[-=c|QQQ!Lv.#麾yo2TLLs+Fz}OSˑN1 4a(i{ed_E0]IP\+Er<}}T;n)+ MC?ȥ Jx'U’5uc_D=&C\x=PS>r)m=}pV T % 0 0L a ni l e2 K3 0e~Z= 0  0efjalw@4 m 1uUTqkI 1u)1.0^! y"UT#@#UT&@n&U :(UT( 0<) D3N* B* 0*U:+J+#!4-U.N/ AS/p/ 0D60 D/z0 B0UT0U:1^ T1T1T1T1T1T1T1T1T1T1T1T1T1T1`1 0s&22 0_3_3_3_3_3_3_3_3_3 B*333 C4 c:\COREL\OFFICE7\TEMPLATE\X3J3NE~1.WPT(>u$  """ -X    =&u:&,dd=(2$ >u!   -X    =&BV&,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 A '   -X    _ ,-hh>(#vq J3/99-222r2#vq#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo d  ResponsestoWG5/N1356@@<(#August27,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 $ >u!   -X    =&BV&,dd=  H4#:.2Quick 1.F  .0 FdfTABLE A !U"#&)*=>?E@Ds&,X{Ԅ3|xBU'#137=CIQYag1.a.i.(1)(a)(i)1)a)+ QZ<Century Schoolbook RegularResponses to WG5/N1356 -$Craig T. Dedo$0Craig T. Dedo$J3 / 99-222r26.Responses to WG5/N1356" 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  a + "  """ -X  =,BV,,dd=  _=,BV,d,,d=ItseemslikelythatusingtheIEEEstandardsnames,butusingadifferentdefinitionfor  NEARESTwillbeproblematic.AstheIEEEdefinitionisnotnecessarilywhat"averageconsumers"expect,perhapsweshouldaccommodateboththeIEEEstandardand"userexpectation".NEARESTshouldbedefinedasperIEEE,"_Round_Ԁtonearestmeanspickthecloserortheevenifhalfway."Texttoputthisintothetabletobecraftedbetweenmeetings.Thepossibilityofamodecalled"FORTRAN"whichwouldbedefinedas.5.##37=CIQYag1.a.i.(1)(a)(i)1)a)   +C"  """ -X  =&u:&,dd=  ݛItseemslikelythatusingtheIEEEstandardsnames,butusingadifferentdefinitionfor  NEARESTwillbeproblematic.AstheIEEEdefinitionisnotnecessarilywhat"averageconsumers"expect,perhapsweshouldaccommodateboththeIEEEstandardand"userexpectation".NEARESTshouldbedefinedasperIEEE,"Roundtonearestmeanspickthecloserortheevenifhalfway."Testtoputthisintothetabletobecraftedbetweenmeetings.Thepossibilityofamodecalled"FORTRAN"whichwouldbedefinedas.5. $ + "   -X  =&BV&,dd=  _ItseemslikelythatusingtheIEEEstandardsnames,butusingadifferentdefinitionfor  NEARESTwillbeproblematic.AstheIEEEdefinitionisnotnecessarilywhat"averageconsumers"expect,perhapsweshouldaccommodateboththeIEEEstandardand"userexpectation".NEARESTshouldbedefinedasperIEEE,"_Round_Ԁtonearestmeanspickthecloserortheevenifhalfway."Texttoputthisintothetabletobecraftedbetweenmeetings.Thepossibilityofamodecalled"FORTRAN"whichwouldbedefinedas.5.  +"  """ -X  =&u:&,dd=f  ݛMakesureROUND=NEARESTdoesIEEEroundtonearest.  ( #   -X  =&BV&,dd=  _ J3InternalNote + QZ<Century Schoolbook Regular 6 l'  $"$"" -X  f  ݛ ,-TT>(#$We" J3/99-222r1#$"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  (#Page  1  ڀof  2  ڏ+ QZ<Century Schoolbook Regular 6 l'  '"'"" -X  f  ݛ ,-TT>(#'We" J3/99-222r2#'"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo Y ResponsestoWG5/N1356::<(#August26,1999  (#Page  1  ڀof  2  "Arial Regular+ QZ<Century Schoolbook Regular(3 $ >u!   -X    =&BV&,dd=  ****'dxd d(3 $ >u!   -X    =&BV&,dd=  "Arial Regular @ ( #  666 -X  =7BV7,dd=  _ =7BV7d7,d=J3InternalNote HP OfficeJet Pro 1170C Series0(,,,,0(0Level 1Level 2Level 3Level 4Level 52+(3)UC <<CLevel 1Level 2Level 3Level 4Level 5($$   1  55' dxdP Pd+ QZ<Century Schoolbook Regular"Arial Regulark}$'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 >u!   -X    =&BV&,dd=  _C  #1'#CX #)=&BV& d&,d=)& &&%&####X  r^4` <hDp Lx !(#T$%&-r  %  @  ResponsestoWG5/N1356     _JOR_ԀhaslookedatseveraloftherecommendationsaboutunresolvedissuesinWG5paperN1356.ReferencesaretothecurrentFortran2000draft,99-007r2.  1.  [349:7]splitthefirstsentenceafter ResultValue intotwosentences.  P 8  "IfNAMEhasthevalueDEFAULT,thentheresulthasavalueequaltothekindtypeparameterofthedefaultcharacterdatatype.IfNAMEhasthevalueASCII,thentheresulthasavalueequaltothekindtypeparameteroftheASCIIcharacterdatatype." !!   2.  Issue24,page238. <  [238:4-7]Replacefour(4)occurrencesof"0.5"withr. P  [238:11-18]Intablein10.6.4.1.2,replaceeachoccurrenceof"0.5"withr. \  [238:19+]Insertthefollowingtable:**ddd Xdd Xdd X(#(#,dd ,` dd +  !RU 8  !IfRoundingModeis /RURU /ris $RU $NEAREST 6, t ?0.5?60.5 6,*t ?0.5 ? 6UP 4* T  ?1?41 4*(T  ?1 ? 4DOWN ) , # )0 ), #  )ZERO    1ifdatumisnegative0ifdatumispositive P  ?>     4 >?)"=&u:&,d&,d=")* l1 !6&"p 0  `ExtR ]l *=*l1!6&"p 0  `ExtR Yl*===@=l1!6&"p 0  `E_xvtR\ Al=@@l1-6&"p 0  `E_xvtR\ Al (#(#          (#(#@!!)"A&u:&,d&,d A")[238:23-29]DeleteJ3note.  3.  Issue