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