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