ࡱ>   Root Entry`DESTJPerfectOffice_MAIN& 1PerfectOffice_OBJECTS,JJ37=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  6 C'  """ -X  3  ݛ ,-TT@(#We" J3/99-222#"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo g JORResponsestoWG5/N1356::<(#August25,1999 ( (#Page  1  ڀof  1  # e37=CIQYag1.a.i.(1)(a)(i)1)a) + QZ<Century Schoolbook Regular  ,X.< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/    ,XB  .< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/  C"Ԝ  ,XB  .< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/  C""Arial Regular(3E$ i!  """ -X    =&u4&,dd=3  ****'dxd d(3E$ i!  """ -X    =&u4&,dd=3  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 3LevelWPC" 1P(cxZ("'J b6<<][#v (Gzhד#_ƳuDs Mhn<ڦ \ۼy٥k/^"8; C>CO!V[B31uxeKیݗ)/(JXd6]pvE֋>׽O@qX?Rc3wS Տ`e{ O1WE o9CẕïgM GK.&RSp;(U~O{XgFZ0X(͗ }ge д*'cŧ'ZΫV^7\: ΙK ,Tjjҡ[{_Ҭa-,{.ZsdCL\l}^<&-jH#ΰ>/-AkdIt ͌1wZsB`_JK24j୒4, "ԁ S3V T % 0 0L a ni l e2 @3 0esZ2 0  0efQaSw@g4 m 1mUTP^@ 1mBUT 99999U: 0 D3) B\ 0yyyyyy AS 0D D/ B                 4 0s m! 03"3"3"3"3"3"3"3"3"3"3"3" C" c:\COREL\OFFICE7\TEMPLATE\X3J3NE~1.WPT(i$  """ -X    =&u4&,dd=3(2C$ i!  """ -X    =&u4&,dd=3  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 C'  """ -X  3  ݛ ,-TT@(#We" J3/99-222#"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo g JORResponsestoWG5/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  Ԝ(3E$ i!  """ -X    =&u4&,dd=3  H4#:.2Quick 1.F  .0 FdfTABLE A EUD',X{Ԅ3|xU' e 4Level 5V#:2a, b, c,Lowercase LettersH  .0 Hd i!  """ -X    =&u:&,dd=3  C  e'#CX ! 3 ֣X  r^4` <hDp Lx !(#T$%&-r  %  @W W  JORResponsestoWG5/N1356 }    JORhaslookedatseveraloftherecommendationsaboutunresolvedissuesinWG5paperN1356.HerearetheresponsesofJOR,whichareindicatedbya">>"symbolatthebeginningoftheline..ReferencesaretothecurrentFortran2000draft,99-007r2.  1.  [349:7]splitthefirstsentenceafter ResultValue intotwosentences. f  8  "IfNAMEhasthevalueofDEFUALT,thentheresulthasavalueequaltothevalueofthekindtypeparameterofthedefaultcharacterdatatype.IfNAMEhasthevalueASCII,thentheresulthasavalueequaltothevalueofthekindtypeparameteroftheASCIIcharacterdatatype." !! >>JORagrees.  2.  Issue24,page238. n  >>JORwouldliketomakethefollowingedits.[238:11-18]Intablein10.6.4.1.2,replaceeachoccurrenceof"0.5"withr. 4  [238:19+]Insertthefollowingtable:*w*ddd Xdd Xdd X(#(#w,dd ,` dd +   w IfROUND=is  X ris  X NEAREST 6, ; ?0.5?60.5 6,*; ?0.5 ? 6UP 4*   ?1?41 4*(  ?1 ? 4DOWN ) x # )0 )x #  )ZERO  [ 1ifdatumisnegative0ifdatumispositive   Ѐ[238:23-29]DeleteJ3note.  3.  Issue64,page197. [" >>JORwouldprefertoresolvethisissuebymakingthefollowingedits.[Beginedits][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 #(!- namelist-group-nameshallalsoappear." (g". [194:9]Insert"(10.7.7)before"."[242:22-25]Replace"Atthe...;an"with"IfaROUND=specifierappearsintheio-control-spec-listfor +k%2 aformattedinput/outputstatement,itspecifiestheinitialroundingmodeforthatstatement.Otherwise,theinitialroundingmodeforaformattedinput/outputstatementisthatestablishedbytheOPENstatementfortheconnection.An" P.'5 [Endofedits]3C +.'5 Root Entry`DEST zPerfectOffice_MAIN& 4PerfectOffice_OBJECTS,JJ!"#$%&'()*+,-./012345678L=orROUND=_specifier_Ԁispresent,aformator n'!- _namelist_-group-nameshallalsoappear." +(!. [194:9]Insert"(10.7.7)before"."[242:22-25]Replace"Atthe...;an"with"IfaROUND=_specifier_Ԁappearsintheio-control-spec-listfor +$2 aformattedinput/outputstatement,itspecifiestheinitialroundingmodeforthatstatement.Otherwise,theinitialroundingmodeforaformattedinput/outputstatementisthatestablishedbytheOPENstatementfortheconnection.An" P.'5 [Endofedits]3CWPC% 4K2swqh'!2sfXWD#Hoz^D$C^RqLMΗ $EB+MH}j#&FYF}c]t XTR@jmgo'̀n&wˤ5`sV2SQ7;p\ gԒhxuTl 컭uP+n[ķE6 S8lvSԐLa+;dFov7 sĒG_'cH!|RFÔgU:v[9PsU78,l}\ AN 6;񭋺KlqX(!No@_JcLG hF=op"x@_ z~V1\V S@(i3'l0lN9L۠YBgq)V4{=>y-=(T@JbV T % 0 0L a ni l e2 m3 0eZ_ 0 ! 0e'faw@4 m 1uUT^@E 1uUTV#!(IN^ U: 0W D3i B 0 AS ! 0D! D/(" BW"W"W"W"W"W"W"W"W"W"W"W"W"W"W"W"W"t" 0s:## 0s$s$s$s$s$s$s$s$s$s$s$s$ C$ c:\COREL\OFFICE7\TEMPLATE\X3J3NE~1.WPT(i$  """ -X    =&u4&,dd=3(2Ϣ$ i!  ``` -X    =&=&,dd=3  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 c Ϣ'   -X  3  _ ,-dd@(#( J3/99-222#(#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo V _JOR_Ԁ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  (3Nw$ i!  ``` -X    =&=&,dd=3  H4#:.2Quick 1.F  .0 FdfTABLE A EUDDs&,X{Ԅ3|xU'#137=CIQYag1.a.i.(1)(a)(i)1)a)+ QZ<Century Schoolbook RegularJOR Responses 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  6 C'  """ -X  3  ݛ ,-TT@(#We" J3/99-222#"We#  X NCITSJ3ANSIFortranStandardsCommittee>(#CraigT.Dedo g JORResponsestoWG5/N1356::<(#August25,1999 ( (#Page  1  ڀof  1  ##37=CIQYag1.a.i.(1)(a)(i)1)a) + QZ<Century Schoolbook Regular  ,X.< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/    ,XB  .< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/  C"Ԝ  ,XB  .< ,C:\X3J3\150\99-222.wpd<C:\X3J3\150\99-222.wpd/  C"Apple LaserWriter II NT v47.00(,,,,0(0Level 1Level 2Level 3Level 4Level 5{$'"Arial Regular(3Nw$ i!  ``` -X    =&=&,dd=3  ****'dxd d(3Nw$ i!  ``` -X    =&=&,dd=3  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 i!   -X    =&b&,dd=3  _C  #1'#CX ! 3_ _X  r^4` <hDp Lx !(#T$%&-r  %  @Z Z  _JOR_ԀResponsestoWG5/N1356 `    _JOR_ԀhaslookedatseveraloftherecommendationsaboutunresolvedissuesinWG5paperN1356.Herearetheresponsesof_JOR_,whichareindicatedbya">>"symbolatthebeginningoftheline..ReferencesaretothecurrentFortran2000draft,99-007r2.  1.  [349:7]splitthefirstsentenceafter ResultValue intotwosentences. 1  8  "IfNAMEhasthevalueof_DEFUALT_,thentheresulthasavalueequaltothevalueofthekindtypeparameterofthedefaultcharacterdatatype.IfNAMEhasthevalueASCII,thentheresulthasavalueequaltothevalueofthekindtypeparameteroftheASCIIcharacterdatatype." !! >>_JOR_Ԁagrees.  2.  Issue24,page238.   >>_JOR_Ԁwouldliketomakethefollowingedits.[238:11-18]Intablein10.6.4.1.2,replaceeachoccurrenceof"0.5"withr. T  [238:19+]Insertthefollowingtable:**ddd Xdd Xdd X(#(#,dd ,` dd +   + IfROUND=is   ris   NEAREST 6, K ?0.5?60.5 6,*K ?0.5 ? 6UP 4* G  ?1?41 4*(G  ?1 ? 4DOWN )  # )0 ) #  )ZERO  _ 1ifdatumisnegative0ifdatumispositive   Ѐ[238:23-29]DeleteJ3note.  3.  Issue64,page197. K" >>_JOR_Ԁwouldprefertoresolvethisissuebymakingthefollowingedits.[Beginedits][196:25]Add," or ROUND=scalar-default-char-_expr_" !"% [197:21+]Add,"TheROUND=_specifier_Ԁisdescribedin9.4.4.13."[197:25-31]DeleteJ3note.[197:19]Replace"andDECIMAL="with"DECIMAL=,andROUND=".[197:12+]Add"Constraint:IfaDECIMA