WPC ,nrO,M Aة~Dhxk?1KCCú'?gCF?YpxJb?3ڡcjKH%Q]&[fߑ*C Pϳ˙'g 8/gT]Hn:wr t\#z7?8ĐOB`{x6+HD%zz"sK$0JC="Ps,4c9gG -/|{ۑ}ZMZeÚ TD/{7=1 ynFwuxs^'Ùi~$hytTe$jC2|(iBPmTR4G(X 7jTISf</hvX^U%EzO.$# Mw]~N/E JԴl{JlYAvT$0Ժi!# %U: 0*# z? 0   b (  N^ w4 m 0e  1 72p 1u 72 0cI 1 723BeeeUT""Arial Regular($XXXXUSUS.,$X,X$      =dd=HP LaserJet 5/5M PostScript0C:\COREL\WORDPE~1\TEMPLATE\CUSTOM~1\CUSTOM~1\ANSIJ3~1.WPTC:\Corel\WordPerfect Office 2000\Template\Custom WP Templates\Custom WP Templates\ANSI J3 New Document.wpt  'USUS.,$X,X$   _44>(# J3/01390r1  X NCITS/J3ANSIFortranStandardsCommittee>(#CraigT.Dedo , JORResponseto01-360r1CommentsonSection12;(#December4,2001 L (#Page  1  ڀof  2  (3$ !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팅+ T+3|xU )USUS.,$X,X$   _.F6C:\ANSI_J3\159\01-390r1.wpdFC:\ANSI_J3\159\01-390r1.wpd/  (3$ !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 !XXUSUS.,$X,X$      =dd=  _@ JORResponseto01-360r1CommentsonSection12   To:0  0(#(#04(#(#J34(#4(# From:0  04(#(#CraigDedo` 4(#4(# Date:0  04(#(#December4,2001( 4(#4(# Subject:0 4 0` 4(#4(#JORResponseto01-360r1CommentsonSection12 L` (#` (#  (5h83  JORreviewedtherecommendationsin01-360r1andrecommendsasfollows.Referencesareto   01-007r4. H   10  Edits 4 (#(# r3:0  [239:4-6] (#(# r4:0  [241:4-6]0` (#(#0 ` (#` (#Deletethelastsentenceintheparagraph.Addthefollowingthreeparagraphs.h  (# (# Thesequenceofactionsencapsulatedbyaprocedurehasaccesstoentitiesintheinvokingscoping 0  unitbywayofargumentassociation(12.4.1).A dummyargument isanamethatappearsinthe T  SUBROUTINE,FUNCTION,orENTRYstatementinthedeclarationofaprocedure(R1226).   Dummyargumentsarealsospecifiedforintrinsicproceduresandproceduresinintrinsicmodulesin   Sections13,14,and15. P  Theentitiesintheinvokingscopingunitarespecifiedbyactualarguments.An actualargument is < anentitythatappearsinaprocedurereference(R1221).  Aproceduremayalsohaveaccesstoentitiesinotherscopingunits,notnecessarilytheinvoking 8 scopingunit,byuseassociation(16.7.1.2),hostassociation(16.7.1.3),linkageassociation(16.7.1.4), \ storageassociation(16.7.3),orbyreferencetoexternalprocedures(5.1.2.6). $ r3:0  [241:38]X(#(# r4:0  [244:1-2]0` (#(#0 ` (#` (#Yes.Insert anbefore interface. | (# (# r3:0  [255:39] (#(# r4:0  [258:8]04(#(#0` 4(#4(#0 ` (#` (#Yes.Change targetto datatargetorproctarget.x (# (# r3:0  [261:4] d (#(# r4:0  [263:12]0` (#(#0 ` (#` (#Yes.Change beendeclaredapointerto thepointerattribute. ,! (# (# r3:0  [261:38]`"#(#(# r4:0  [263-264:Note12.38](#$(#(# 0  0(#(#04(#(#0` 4(#4(#0 ` (#` (#Nochangeisnecessary.Weshouldkeeptheexamplesimple.#L% (# (# r3:0  [263:10-11]%'(#(# r4:0  [265:18-19]0 (#(#Wedonotaccepttheproposedchange,butthereisatechnicaldefectthatneeds H&( tobecorrected.Remove[]fromaroundproclanguagebindingspecinthesecond 'l ) specificationfortheENTRYstatement.Thetwoextra]]attheendof263:11in '4!* 01-007r3donotappearin01-007r4.(!+ (# (# r3:0  [267:37]0*#-(#(# r4:0  [270:7]04(#(#0` 4(#4(#0 ` (#` (#Yes.Change targetofto datatargetorproctargetin.*T$. (# (# r3:0  [268:30],%0(#(# r4:0  [271:Note12.46]0 (#(#Yes.Thisisalreadycorrectedin01-007r4.P-&1 (# (# r3:0  [387:8].<(3(#(# r4:0  [397:8]04(#(#0` 4(#4(#0 ` (#` (#Yes.Insert 12,before 12.4.1inthedefinitionfor actualargument. (# (# r3:0  [390:24]4(#(# r4:0  [400:33]0` (#(#0 ` (#` (#Yes.Insert 12,before 12.5.2.1inthedefinitionfor dummyargument.X (# (#  20  Miscellaneous  (#(# r3:0  [245:31-32],[246:32-33]T (#(# r4:0  [247:10],[248:11]0 (#(#Nochangeisnecessary.INTENT(IN)preventsaprogramfrommodifying  x ALLOCATABLEandPOINTERargumentsbutallowsmodificationof  @ POINTERtargets.TheinclusionofPOINTERoperandstodefinedoperators    isanintentionalfeatureofFortran2000.t  (# (#  References  (  01-007r4,Fortran2000Draft   [EndofJ3/01-390r1]