costIceStart1 = 0
& costIceStart1, costIceStart2,
call CAL_FULLDATE ( costIceStart1 , costIceStart2,
& costIceStart1,
integer costIceStart1