integer siobSstartdate1
& siobSstartdate1, siobSstartdate2,
CALL CAL_FULLDATE ( siobSstartdate1, siobSstartdate2,
& siobSstartdate1, siobSstartdate2, siobSperiod,
siobSstartdate1 = UNSET_I
IF(siobSstartdate1.EQ.UNSET_I ) siobSstartdate1 = obcsSstartdate1