time_fullyear()

subroutine time_fullyear

(

integer

year

)

Definition at line 32 of file time_fullyear.f.

References time_util_warning_n().

c
c Makes year to be a full 4 digit year value. This is used to set
c the year to a meanigfull value. Notice that this routine does not
c make sense in combination with relative times.
c
c year < 70         ---> year := year+2000
c 69 < year < 100   ---> year := year+1900
c
c last change: V2.00 (05/08/2000)
c
      integer year
cE
      if (year.lt.70) year=year+2000
      if (year.lt.100) year=year+1900
      if (year.lt.1970) 
     &  call time_util_warning_n('time_fullyear',
     &                           'spurious year value: ',year)
      return

Here is the call graph for this function: