ࡱ>   Root Entry`DEST j}&<PerfectOffice_MAIN& K0PerfectOffice_OBJECTS,`B}&<`B}&<|xqEdits - Issue 118 - Arguments to DATE_AND_TIME Subroutine  -$Craig T. Dedo$0Craig T. Dedo J3 / 99-258|.Edits - Issue 118 - Arguments to DATE_AND_TIME Subroutine" 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 U' e37=CIQYag1.a.i.(1)(a)(i)1)a) W P'  wHwHwH -X  3  ݛ ,-TT@(#VwH J3/99-258#wHV#  X NCITSJ3ANSIFortranStandardsCommitteebb>(#CraigT.Dedo g EditsIssue118ArgumentstoDATE_AND_TIMESubroutine:(#November30,1999  0 0 0 (#Page  1  ڀof  1  "Arial RegularD IZ<Century Schoolbook Regular# e37=CIQYag1.a.i.(1)(a)(i)1)a) D IZ<Century Schoolbook Regular(3$ 7&!   -X    3=I6dd=  ****'dxd d(3$ 7&!   -X    3=I6dd=  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 7&!  wHWPC! K0,(I}k|Qk"d ZaGPZa&Bf+ǁo&pUBj=myZ“{0x7;;UGr2 'Db |tcOq2SW.nK]P•i%40g2=mVxԓũ~v02< %`׉W3q.4~_ Oj 2f=gI+9XΙ:2uB|H%W:YMOmX,IЍT>>'/99yqIjP}۳f{㳡UhnO/lE>\#~נg]TM}e?y.GkCHv+GA/"82]էRdxZu#$[ &cӚ33HBk+ۢ]ЙLgB^%oNNzTgSMZO]VV T % 0 0L a ni l e2 e3 0eXU 0  0ew@\4UN  m 1maYU:UT 1mHUT 0 D3# BV 0ssssss AS 0D D/ B. 0sg 0-!-!-!-!-!-!-!-!-!-!-!-! C! c:\COREL\OFFICE7\TEMPLATE\X3J3DO~1.WPT(7&$  jjj -X    3=Hdd=(2P$ 7&!   -X    3=I6dd=  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 [ P'  wHwHwH -X  3  ݛ ,-TT>(#VwH J3/99-258r1#wHV#  X NCITSJ3ANSIFortranStandardsCommitteebb>(#CraigT.Dedo g EditsIssue118ArgumentstoDATE_AND_TIMESubroutine:(#November30,1999  0 0 0 (#Page  1  ڀof  1  4#(2Quick A.  .0 c:\Corel\Office7\Template\X3J3 Document.wpt  ,X.< ,C:\X3J3\151\99-258.wpd<C:\X3J3\151\99-258.wpd/  (3$ 7&!   -X    3=I6dd=  H4#:.2Quick 1.F  .0 F gh[iEjklnopEq=B'ʂ1 6Century Schoolbook Bold3wHwH -X    3=I<dd=  ݛC  e'#CX l ֣lllX  r^4` <hDp Lx !(#T$%&-r  %  @=="NwHEditsIssue118 = @ ArgumentstoDATE_AND_TIMESubroutine#wHNJ# C NwHIntroduction#wHN #  d   Issue118,p.319,askswhetheritwouldbebettertonotrestrictthelengthsoftheCHARACTERargumentstotheDATE_AND_TIMEsubroutine.Also,thecurrentwordingmakesitunclearwhethertheusualrulesofcharacterassignmentareusedtodefinethevaluesofthesearguments.  JORdecidedthatitisbesttoapplytheusualrulesofcharacterassignmentwhendefiningthevaluesoftheseargumentsandnottorestrictthevaluesofthesearguments.ThisisanextensionofthefunctionalitynowprovidedinFortran95. Edits      Thefollowingeditsreferto99-007r2.319:2-100 4 DeletetheJ3InternalNote.M 4(#4(# 319:11-290 4 ReplacethetextfortheDATE,TIME,andZONEargumentswiththefollowing:h 4(#4(# DATE(optional)0 ` 0 ` (#` (#shallbescalarandoftypedefaultcharacter.ItisanINTENT(OUT)argument.Itis   assignedavalueoftheformCCYYMMDD,whereCCisthecentury,YYistheyearwithin l thecentury,MMisthemonthwithintheyear,andDDisthedaywithinthemonth.Ifthere U isnodateavailable,DATEisassignedallblanks.  (# (# TIME(optional)0 ` 0 ` (#` (#shallbescalarandoftypedefaultcharacter.ItisanINTENT(OUT)argument.Itis Y assignedavalueoftheformhhmmss.sss,wherehhisthehouroftheday,mmistheminutes  ofthehour,andss.sssisthesecondsandmillisecondsoftheminute.Ifthereisnoclock t available,TIMEisassignedallblanks.  (# (# ZONE(optional)0 ` 0 ` (#` (#shallbescalarandoftypedefaultcharacter.ItisanINTENT(OUT)argument.Itis x assignedavalueoftheformg+hhmmghhgorghhg-hhmmg,wherehhandmmarethetimedifference a$ withrespecttoCoordinatedUniversalTime(UTC)inhoursandminutes,respectively.Iitijfjothisinforopomaopqmationisnotavailableqnthereisnoclockavailablen,ZONEisassignedallblanks.  (# (# 320:90  04(#(#Delete (andisalsoknownasGreenwichMeanTime)fromthenote."4(#4(#  References  i,$ k0   J3/99-007r2, ISO/IEC1539-1InternationalStandardProgrammingLanguageFortranFortran2000WorkingDraft (#(# kJ3/99-233, Issue118"[EndofJ3/99258]