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