SUBROUTINE RDDATE(DATE,RDMDAT) C C ... Convert a date from String mm/dd/yy to RDM format C C M.Kahler NOV85 C INTEGER*2 MONTH,DAY,YEAR,RDMDAT CHARACTER*8 DATE C C ... break the month, day & year out of the string C Read(Date(1:2),10) Month Read(Date(4:5),10) Day Read(Date(7:8),10) Year 10 Format(I2) C C... Initialize C RDMDAT = 0 C C ... Test for Years prior to 1972 (Handled differently) C If (Year.GE.72) Then C C ... RT-11 format is YEAR - 110 octal (YEAR - 72 decimal) C YEAR = YEAR - 72 C C ... RDM date word format is day(bits 0-4), month(bits 5-9), year(bits 10-13) C RDMDAT = DAY + (MONTH)*32 + (YEAR)*1024 Else C C.. don't ask why, but dates before 1972 are like this... C Rdmdat = Day + (Month+3)*32 + (Year)*512 Endif RETURN END