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