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