integer siobEstartdate1
& siobEstartdate1, siobEstartdate2,
CALL CAL_FULLDATE ( siobEstartdate1, siobEstartdate2,
& siobEstartdate1, siobEstartdate2, siobEperiod,
siobEstartdate1 = UNSET_I
IF(siobEstartdate1.EQ.UNSET_I ) siobEstartdate1 = obcsEstartdate1