obcsSstartdate2 = 0
call CAL_FULLDATE ( obcsSstartdate1 , obcsSstartdate2,
& obcsSstartdate1, obcsSstartdate2, obcsSperiod,
integer obcsSstartdate2
& obcsSstartdate1, obcsSstartdate2,
I , obcsSstartdate1, obcsSstartdate2