WPC A-ZW^ϜbpwU'KO_߮lC˾jr/ e?u_F?Z&G4e\X&mK E16}ϖlsj% %l\,I]:~8=ZT~N%bhOEchζ0PH> 1MQ=y?y~6>Ji1^V.H [=k*82S?eUx>/߼UL 3to .`v*tfPM%DCl73\sɼ {łA/]]. ϥt6QV#ztR\ke 0jdV’$[N9嫝\Tt N[TJ>#$zkHe#=# %U: 0*# h5 0   T N^ w4 m 0e  1 72e 1u 72  0c> 1 72(BZZZUT""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/03121r1  X INCITS/J3ANSIFortranStandardsCommitteebb>(#CraigT.Dedo f EditsforUKcommentsMTC3toMTC6(various_i_/ofixes)=(#March31,2003  0 0 0 (#Page  1  ڀof  2  (3$ F!XXUSUS.,$X,X$      =rdd=  ݁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{.1r1.wp3|xU )USUS.,$X,X$   _.H8C:\ANSI_J3\2003\03-121r1.wpdHC:\ANSI_J3\2003\03-121r1.wpd/  (3$ F!XXUSUS.,$X,X$      =rdd=   (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=  _@ EditsforUKcommentsMTC3toMTC6(various_i_/ofixes)  J To:0  0(#(#04(#(#J3 4(#4(# From:0  04(#(#CraigDedov4(#4(# Subject:0  04(#(#EditsforUKcommentsMTC3toMTC6(various_i_/ofixes)t *4(#4(# Date:0  04(#(#March31,2003( 4(#4(#   _JOR_Ԁrecommendsthefollowingresponsestotheconcernsin_MTC_Ԁ3to_MTC_Ԁ6. D  MTC3TheUKcommentwas:  b  ̀Resolveambiguityreasynchronous_i_/o   ̀Itisnotclearwhetherpending_i_/ooperationsmustbeperformedin |2  Ѐorderofprogramexecution,inorderforeachunit,ormaybe 0  Ѐperformedinanyorder.Thesentence189:2-4isambiguousand   Ѐneedstobechanged. N  Hereistheeditforthis:   189:2.Change'Records'to'Foreachexternalfile,records'. h _JOR_ԀResponse:0 ` _JOR_Ԁacceptstheeditfor_MTC_Ԁ3.` (#` (# MTC4TheUKcommentwas:  ̀Resolveambiguityreerrorhandingwithasynchronous_i_/o T  ̀Whathappensifanerroroccurswhileseveral_i_/ostatementsare r Ѐpending? p& ̀Apossibleeditisthefollowing: ! ЀPage189:15+.Addnewnote9.30a: B" ЀIfanasynchronousdatatransferispendingwhenasynchronousdata @# Ѐtransferisstartedonthesameunit,ormultipleasynchronousdata $ Ѐtransferstatementsarewaitedonoutoforder,andanerror  ^% Ѐconditionoccursonanyofthem,itisprocessordependentonwhich \!& Ѐofthetransferortransfersitwillbeindicated,thoughitshall "' Ѐbeindicatedatleastonce. "z( IfourproposededitforMTC3isaccepted,noeditofMTC4willbe ,$* needed. $+ _JOR_ԀResponse:0 ` Noeditsareneededbecause_MTC_Ԁ3wasaccepted.H&-` (#` (# MTC5TheUKcommentwas: d("0 ̀Alloweditdescriptorssuchas1P2E12.4 )#2 ̀ThiswasaFortran66facilitywhichappearstohavebeenomitted 4+$4 Ѐbyoversight. +%5 ̀Apossibleeditisthefollowing: P-'7 ЀPage219:19.Change"descriptor"to"descriptor,possiblypreceded .'8 Ѐbyarepeatspecifier" .n(9 ЇNoothereditsaresuggested. J _JOR_ԀResponse:0 ` Maketheedit219:19afterthecomma,insert possiblyprecededbyarepeatspecifier,.h` (#` (# MTC6TheUKcommentwas:   _JOR_ԀResponse:Thisissueisaddressedinpaper03-167. 6  ̀ChangeACHAR(10)syntaxwithinstream_i_/o  T  ̀SpecialhandlingofACHAR(10)isunnaturaltoFortranprogrammers.   ЀWerecommendreplacementbyanintrinsicfunctionsuchas p  Ѐ_NEW_LINE_([KIND]),perhapsrecommendingthatithavethevalue n$  ЀACHAR(10). "  Herearetheeditsforthis: @  230:7.Change'referenceACHAR(10)'to'NEW_LINE'.   292:16+.Add Z ̀NEW_LINE([KIND])New-linecharacter x 333:17+.Add * ̀13.7.81aNEW_LINE([KIND]) H ̀Description.Returnsthenew-linecharacter.  ̀Class.Inquiryfunction. b ̀Argument.   ̀KIND(optional)shallbeascalarintegerinitializationexpression. 2" ̀ResultCharacteristics.Theresultisoftypecharacterandlength P$ Ѐone.IfKINDispresent,thekindtypeparameteristhatspecified N % ЀbythevalueofKIND;otherwise,thetypeisdefaultcharacter. !& ̀ResultValue.Thevalueisthecharacterthatrepresentsanewline j" ( Ѐinoutputtofilesconnectedforstreamaccess. #)  References  :%, 02-007r2,Fortran2000Draft %- 03-167,ReplaceACHAR(10)withNEW_LINEFunction &X . [EndofJ3/03-121r1]