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