ࡱ>   Root Entry`DEST ^;PerfectOffice_MAIN& Z-PerfectOffice_OBJECTS,@;@;kEdits - 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)"Arial 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&!  wjwjwj -X    3=Qdd=  ݛC  e'#CX ֢ ֣X  r^4` <hDp Lx !(#T$%&-r  %  @=="kwjEditsIssue118 = @ ArgumentstoDATE_AND_TIMESubroutine#wjk!# C WPC Z-M=)Z{o/N \oQ9^McBi#=k5\C"xEJÐG k3+JMj)rKh+ N"ޏa~G,9g+=8^YeLH=PI20~,kC7IJzjW JwKvcIYW,zUnuANMh-s,]* zފInsn@DI8WMC"#FlZU;d{pCN&Jn`a"?Z y5yWoD:Cd'<~;Cj ma<3z}ڡ@}>C7p!4H{:j&ޫD T:\5ij-s JNZpZ^FoHGۅ_+KuhWP)6w1 UV T % 0 0L a ni l e2 a3 0eXQ 0  0ew@X4UN  m 1mU:UU 1mUT 0X D3j B 0 AS 0D D/) BXXXXXXXXXXXXXXXXXu 0s; 0tttttttttttt 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 W P'  wjwjwj -X  3  ݛ ,-TT@(#ְwj J3/99-258#wjְ#  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 bEcdDeNfEgh[iEjk=B'ʂ1 6Century Schoolbook Bold3|xkwjIntroduction#wjk#  d   Issue118,p.319,askswhetheritwouldbebettertonotrestrictthelengthsoftheCHARACTERargumentstotheDATE_AND_TIMEsubroutine.Also,thecurrentwordingmakesitunclearwhethertheusualrulesofcharacterassignmentareusedtodefinethevaluesofthesearguments.  JORdecidedthatitisbesttoapplytheusualrulesofcharacterassignmentwhendefiningthevaluesoftheseargumentsandnottorestrictthevaluesofthesearguments.ThisisanextensionofthefunctionalitynowbaoabcprovidedinFortran95.c Edits      Thefollowingeditsreferto99-007r2.319:2-100 4 DeletetheJ3InternalNote.M 4(#4(# 319:11d_de-e290 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 assignedavalueoftheformfhhmmfg+hhmmghhgorghhg-hhmmg,wherehhandmmarethetimedifference a$ withrespecttoCoordinatedUniversalTime(UTC)inhoursandminutes,respectively.Iitijfjthereisnoclockavailable,ZONEisassignedallblanks.  (# (# 320:90  04(#(#Delete (andisalsoknownasGreenwichMeanTime)fromthenote."4(#4(#  References  i,$ k0   J3/99-007r2, ISO/IEC1539-1InternationalStandardProgrammingLanguageFortranFortran2000WorkingDraft (#(# kJ3/99-233, Issue118"[EndofJ3/99258]