I , obcsNstartdate1, obcsNstartdate2
integer obcsNstartdate2
& obcsNstartdate1, obcsNstartdate2,
obcsNstartdate2 = 0
call CAL_FULLDATE ( obcsNstartdate1 , obcsNstartdate2,
& obcsNstartdate1, obcsNstartdate2, obcsNperiod,