USGS InfoBank program -- fixunixyear

fixunixyear

  Program to correctly display the year of a file.

       

  This corrects an assumption from the UNIX ls command:

  "...If the time of last modification is greater than six months ago,
  it is shown in the format 'month date year'..."
  "...Files modified within six months show 'month date time'...."
  it is shown in 'month date year'
    

  Carolyn Degnan    01/26/2001

 4 6 8-1-2 4 6 8-2-2 4 6 8-3-2 4 6 8-4-2 4 6 8-5-2 4 6 8-6-2 4 6 8-7-2

    

      read (90, '(q,a)', end = 99) iLineLength, aLine(1:iLineLength)
      read (aLine(1:iLineLength), '(t5,a3,t9,i2,t25,i4)') 
     *     aMonthToday, iDayToday, iYearToday
      read (91, '(q,a)', end = 99) iLineLength, aLine(1:iLineLength)
      read (aLine(1:iLineLength), '(t1,a3,t5,i2,t8,i4,t13,a)') 
     *     aMonth, iDay, iYear, aFileName

      write (aCommand, '(1024x)')
      write (aLine, '(1024x)')
      write (aLine, '(1024x)')
          write (92, '(a)') aLine(1:iLineLength)
      write (92, '(a7,i4,a)') 
     *     aLine(1:7), iYearFix, aLine(12:iLineLength)
      write (aCommand, '(1024x)')

      open (unit = 90,
     *      access = 'sequential',
     *      file = '/infobank/tmp/fixunixyear.temp.date',
     *      form = 'formatted',
     *      status = 'old')
      open (unit = 91,
     *      access = 'sequential',
     *      form = 'formatted',
     *      name = '/infobank/programs/keep/infobank_files.keep',
     *      status = 'old')
      open (unit = 92,
     *      access = 'sequential',
     *      form = 'formatted',
     *      name = '/infobank/tmp/infobank_files.fixunixyear.temp',
     *      status = 'unknown')

      call stringlen (aCommand, iCommandLength)
      call system (aCommand(1:iCommandLength))
      call stringlen (aCommand, iCommandLength)
      call system (aCommand(1:iCommandLength))