I , obcsWstartdate1, obcsWstartdate2
integer obcsWstartdate1
& obcsWstartdate1, obcsWstartdate2,
obcsWstartdate1 = 0
call CAL_FULLDATE ( obcsWstartdate1 , obcsWstartdate2,
& obcsWstartdate1, obcsWstartdate2, obcsWperiod,