WPC@ !Ȯ YpCQDyTeJ1shj(DoGCPK=C}z]7> ,xQfp.wI9QS0"u{4b{:2-}B}'Tx;fOʙgV)Ω}P,Ȍz˥;k94_PphENjiS}b,0]*Y ZF`+ʔH@Ii2vh>I_eM[Xğ/!D5XcI%6LPE0SQy@PkIdSXe%*SY\YR‘kY Nh)Vo$"Ҳ %udQAWI鬫 9[AH\qpGrS"h-4<2ׯ&L\a+?<r#Y¬Z Zr:߿8&# %U: 0*# z? 0   a '  N^ w4 m 0e  1 72o 1u 72 0cH 1 722BdUFUT""Arial Regular($XXXXUSUS.,$X,X$      =dd=HP LaserJet 5M PCL,,,,0C:\COREL\WORDPE~1\TEMPLATE\CUSTOM~1\CUSTOM~1\ANSIJ3~2.WPTC:\Corel\WordPerfect Office 2000\Template\Custom WP Templates\Custom WP Templates\ANSI J3 Unresolved Issues.wpt  'USUS.,$X,X$   _>(# J3/01243r1  X NCITS/J3ANSIFortranStandardsCommittee>(#CraigT.Dedo , Issue325KeywordUsedasParameterNameVV?(#June6,2001 L (#Page  1  ڀof  1  (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#* *a.wpd3|xU )USUS.,$X,X$   _.F6C:\ANSI_J3\157\01-243r1.wpdFC:\ANSI_J3\157\01-243r1.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<5 9Z+.Courier New Regular/ Z<Century Schoolbook Regular !XXUSUS.,$X,X$      = dd=  _@1 1  Issue325KeywordUsedasParameterName   To:0  0(#(#04(#(#J34(#4(# From:0  04(#(#CraigDedo` 4(#4(# Date:0  04(#(#June6,2001( 4(#4(# Subject:0 4 Issue325KeywordUsedasParameterName L4(#4(#   (5h83Issue    Theeditorwrites: H  AmItheonlyonewhothinksitpoorstyleforthisexampletouseaparameternamethatisthesame l  asthenameofastandardintrinsic?Arewetryingtoencouragesuchaconfusingthing? 4   Analysis  h    Almostallauthoritiesonprogrammingstyleconsideritverypoorpracticetousethenamesof 0  languagekeywordsorintrinsicproceduresasnamesofdataobjects.Weshouldchangethisexample. T   Edits    [414:8-11]0 4 0` 4(#4(#Replacetheexistingtextwith:P ` (#` (#   "0  0(#(#INTEGER,PARAMETER::_LONG_FLOAT_Ԁ=8t(#(# 0  0(#(#REAL(_LONG_FLOAT_)::X,Y,(#(# 0  0(#(#COMPLEX(_LONG_FLOAT_)::Z#" # (#(# [414:14-15]0 ` Change FLOATto _LONG_FLOAT_intwoplaces.d` (#` (# [414:14-15]0 ` Change INTEGERandPARAMETERspecificationstatementsto INTEGER  specificationstatement.`` (#` (# [414:18-22]0 ` DeleteIssue325.L` (#` (#  References   01-007r1,Fortran2000Draft H [EndofJ3/01-243r1]