integer siobWstartdate1
& siobWstartdate1, siobWstartdate2,
CALL CAL_FULLDATE ( siobWstartdate1, siobWstartdate2,
& siobWstartdate1, siobWstartdate2, siobWperiod
siobWstartdate1 = UNSET_I
IF(siobWstartdate1.EQ.UNSET_I ) siobWstartdate1 = obcsWstartdate1