PRO mkcomm,year,month,day

; This little routine just sets up a COMMON block to hold the year,
; month, and day, so they are available to RDMNPARM.PRO without
; being explicitly passed through the chain of routines down to
; RDMNPARM.

COMMON date,year,month,day

IF year LT 1900 THEN IF year LT 50 THEN year=year+2000 ELSE year=year+1900

RETURN
END