jd <- 2459778
place <- c(15.34, 75.13, +5.5)
vd <- list(jd = jd, place = place)
class(vd)<- "vedicCalendar"