integer obcsNstartdate1
& obcsNstartdate1, obcsNstartdate2,
CALL CAL_FULLDATE ( obcsNstartdate1, obcsNstartdate2,
& obcsNstartdate1, obcsNstartdate2, obcsNperiod,
obcsNstartdate1 = 0
IF(siobNstartdate1.EQ.UNSET_I ) siobNstartdate1 = obcsNstartdate1