      SUBROUTINE timscl(icom, t0, year)
c        fwj haberl april 1988
      REAL*8 t0
      INTEGER*4 year, year0
      INTEGER*4 i, icom
      REAL*4 jdat0(30)
      DATA year0/1972/
      DATA jdat0/1316.5, 1682.5, 2047.5, 2412.5, 2777.5, 3143.5, 3508.5,
     &     3873.5, 4238.5, 4604.5, 4969.5, 5334.5, 5699.5, 6065.5,
     &     6430.5, 6795.5, 7160.5, 7526.5, 7891.5, 8256.5,
     &     8621.5, 8987.5, 9352.5, 9717.5, 10082.5,
     &     10448.5, 10813.5, 11178.5, 11543.5, 11543.5/
 
      IF (icom.EQ.1) THEN
c        plot vs. Julian Date - 2440000
         t0 = 2440000.0D0
      ELSEIF (icom.EQ.2) THEN
c        plot vs. Day of Year
         i = year - year0 + 1
         t0 = 2440000.0D0 + dble(jdat0(i))
      ENDIF
 
      RETURN
      END
