WPC# E7|ڮcU-#MvU mC%1^ Èתmuqv&+]BH!4y9g4g 9{l e (/&|}T5kv w* C~›N78bӎq}-BMVZL6Hє(F[lز@<5cҸ״ @ PyE'z5Sluu-``:)R{Z.ۀ0{Mr):\ҏӰ[sԭ|Ti}]nWUfmKQU~'md9TP@>kW~{Y׬Ð (CoU!ԓ~_ [n-_M+*X23 d*!|-OJpΟe_޺)NB˾-gYIrDV T % 0 0L a ni l e2 B3 0euX2 0  0e#!XyN?|A^  m 1uBWU:w@ 1uUT4UT 0[ D3m B 0 AS 0D D/ B!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!>! 0s"w" 0=#=#=#=#=#=#=#=#=#=#=#=# C# c:\COREL\OFFICE7\TEMPLATE\X3J3DO~1.WPT(V0$   -X    f=)dd=(2$ V0!  5h5h5h -X    f=^~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 8 '  5h5h5h -X  f  _ ,-hh>(#5h J3/00-160r2#5h#  X NCITSJ3ANSIFortranStandardsCommitteed d B(#JohnReid I Interpretation004DD=(#April17,2000  ( ( ( (#Page  1  ڀof  1  4#(2Quick A.  .0 c:\Corel\Office7\Template\X3J3 Document.wpt _ ,X.F 6E:\ANSI_J3\153\00-160r1.wpdFE:\ANSI_J3\153\00-160r1.wpd/  (3$ V0!  5h5h5h -X    f=^~dd=  H4#:.2Quick 1.F  .0 FHP OfficeJet Pro 1170C Series0(,,,,0(0Level 1Level 2Level 3Level 4Level 5Interpretation 004 -$Craig T. Dedo$0Craig T. Dedo$J3 / 00-160r1..Interpretation 004" 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 1s(U'#137=CIQYag1.a.i.(1)(a)(i)1)a) 8 '  !5h!5h5h -X  f  _ ,-hh>(#!5h J3/00-160r1#!5h#  X NCITSJ3ANSIFortranStandardsCommitteed d B(#JohnReid I Interpretation004DD=(#April17,2000  ( ( ( (#Page  1  ڀof  1  "Arial Regular kElQmEnQopUqEruHv##37=CIQYag1.a.i.(1)(a)(i)1)a) D IZ<Century Schoolbook RegularDs&,Xz`ł3|xvD IZ<Century Schoolbook Regular(3$ V0!  5h5h5h -X    f=^~dd=  ****'dxd d(3$ V0!  5h5h5h -X    f=^~dd=  ݀Level 1Level 2Level 3Level 4Level 5,++)UC <<Level 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 V0!  5h5h5h -X    f="dd=  _C  #1'#CX r rrrX  r^4` <hDp Lx !(#T$%&-r  %  qppq@! Interpretation004   To:0  0(#(#J3(#(# From:0  JohnReid*-(#(# Date:0  April17,2000(#(# Subject:0 4 Interpretation004f i4(#4(#   HerearethedraftsfortheANSWERandEDITSsectionsofInterpretation004.  Malcolmdisagreeswithmeonthisoneandwehavehadto"agreetodisagree".He_objectsto_Ԁ"shouldbe",butwouldnotobjectto"maybe"(butstillthinksitisthewrongthingtodo).  IhaveaskedafewofmymathematicalfriendswhattheythinkandthosethatarefamiliarwiththeIEEEstandardandthethinkingbehinditagreewithmethataskingfor_MAXVAL_Ԁforazerosizearrayisjustlikeaskingfor1.0/0.0andshouldreturn_inf_.NUMBER:000004TITLE:Valuereturnedby_MAXVAL_/_MINVAL_KEYWORDS:_MAXVAL_,_MINVAL_DEFECTTYPE:InterpretationSTATUS:J3considerationinprogressQUESTION:TheResultValuesectionofthe_MAXVAL_Ԁintrinsicfunctiondescriptionusesthephrasing:0  orhasthevalueofthenegativenumberofthelargestmagnitudesupportedbytheprocessorfornumbersofthetypeandkindtypeparameterofARRAYifARRAYhassizezero (#(# Thisphrasinghasgeneratedatleastthetwofollowingviewsonthereturnvalue:*IfthemachinesupportstheIEEEstandardthentheimplementationshouldreturn-_inf_.*Forportability,theimplementationshouldreturn-HUGE(ARRAY).Theseviewsleadtothefollowingquestions:1.Istheintentofthestandardtodescribetheresultintermsofmachinevaluesratherthanmodelvalues?2.Iftheanswerto1is"yes",howareprogrammersexpectedtousethisintrinsicfunctionportably?ANSWER:1.  Yes.Processorsmaysupportvaluesthatarenotpresentinthemodelof13.7.1.IEEE_inf_Ԁisanexampleof be' suchanumberandthisvmayvushouldubereturnedonamachinethatsupportstheIEEEstandard.Ifthenegativenumberofthelargest_magnitude_Ԁinthemodelhadbeenintended,themodelwouldhavebeenmentionedas,forexample,inthedefinitionofHUGE(13.14.39).2.  AsimpleexampleofitsuseistotestwhetherasetofnumbersSET1hasavaluegreaterthananyvaluein x!{, thesetSET2.Considertheexpression_MAXVAL_Ԁ(SET1)>_MAXVAL_Ԁ(SET2).IfSET1isemptyandSET2isnot,thisvalueiscorrectlyfalseevenifallofthevaluesareoutsidethemodelwithvalueslessthanHUGE(SET1).  Itmaybehelpfultoconsiderhow_MAXVAL_ԀmightbecodedforanarrayofrankoneonanIEEEcomputer.Thefollowingcodeissuitable.0  _MAXVAL_Ԁ=_IEEE_VALUE_Ԁ(1.0,_IEEE_NEGATIVE_INF_) (#(# 0  DOI=1,SIZE(ARRAY) (#(# 0  0(#(#_MAXVAL_Ԁ=MAX(_MAXVAL_,ARRAY(I)) (#(# 0  ENDDO (#(#   Allofthereductionfunctions(e.g.,_MAXVAL_,SUM)returnvalueswhentheargumentsarezerosizedarraysthatmaybethesameasthevaluesreturnedforsomenonzerosizedarguments.EDITS:0  None.*$;(#(# SUBMITTEDBY:Larry_Rolison_HISTORY:0 4 97-240kkl0 4(#4(#0 (# (#lm143kkmmn0 (# (#nsubmitted,&>(#(# 0  0(#(#04(#(#00-160r10 4(#4(#m1530 (# (#oProposedresponseo2-5'?(#(# [EndofJ3/00160r1]