pro crtime,carr,ymd,hour
;+
;NAME
;    crtime
;PURPOSE
;    Determine the date and time in yyyymmdd and decimal hour form
;    given a Carrington rotation number
;INPUT
;    carr -Decimal Carrington rotation number 
;OUTPUT
;    ymd - date in yyyymmdd form (long integer)
;    hour - time on ymd in decimal hours (double precision)
;CALLING SEQUENCE
;    crtime,carr,ymd,hour
;HISTORY
;    April 13, 1998 - MLK
;- 
ymd=0l
hour=0d0
;Julian day number since Carrington rotation #1
;jd=2398167d0+(double(carr)-1d0)*27.2753d0-2433282d0+0.5d0
jd=(carr-1d0)*27.2753d0-35114.5d0
day=long(jd)
ymd=19500100l
addymd,ymd,day
hour=(jd-day)*24d0
return
end