integer siobNstartdate2
& siobNstartdate1, siobNstartdate2,
CALL CAL_FULLDATE ( siobNstartdate1, siobNstartdate2,
& siobNstartdate1, siobNstartdate2, siobNperiod,
siobNstartdate2 = UNSET_I
IF(siobNstartdate2.EQ.UNSET_I ) siobNstartdate2 = obcsNstartdate2