SUBROUTINE GETTODAYSDATE(itodayyear,itodaymonth,itodayday)

c    gettodaysdate gets the year, month, day for the
c    present day from a file

      character*80 filename

      call clearstring(filename,80)
      call extraname('sys.inf'//CHAR(0),
     * 'today_is.txt'//CHAR(0),filename)
      open(9,file=filename,status='old')
  
      read(9,*) itodayyear,itodaymonth,itodayday

      close(9)

      return
      end