integer obcsWstartdate1
& obcsWstartdate1, obcsWstartdate2,
CALL CAL_FULLDATE ( obcsWstartdate1, obcsWstartdate2,
& obcsWstartdate1, obcsWstartdate2, obcsWperiod,
obcsWstartdate1 = 0
IF(siobWstartdate1.EQ.UNSET_I ) siobWstartdate1 = obcsWstartdate1