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