Subroutine RDMDat(Month,Day,Year,Rdate) C c RDMDate will take an Rdm format Date (Integer*2) and return c the month, day & year c a quickie 30.oct.86 ws c Integer*2 Month,Day,Year,Rdate c Day = Rdate.And.31 ! same for both If (Rdate.Lt.0) Then ! < 1972 Month = (Rdate.And.480)/32 - 3 Year= Rdate/512 + 71 Else ! >= 1972 Month = (Rdate/32).And.15 Year = (Rdate/1024) + 72 Endif Return End