I , obcsEstartdate1, obcsEstartdate2
integer obcsEstartdate2
& obcsEstartdate1, obcsEstartdate2,
obcsEstartdate2 = 0
call CAL_FULLDATE ( obcsEstartdate1 , obcsEstartdate2,
& obcsEstartdate1, obcsEstartdate2, obcsEperiod,