& xx_obcsnstartdate1, xx_obcsnstartdate2, xx_obcsnperiod,
& , xx_obcsnstartdate2
integer xx_obcsnstartdate2
call CAL_FULLDATE( xx_obcsnstartdate1, xx_obcsnstartdate2,
xx_obcsnstartdate2 = 0