& costIceEnd2
integer costIceEnd2
costIceEnd2 = modelEndDate(2)
call CAL_FULLDATE ( costIceEnd1 , costIceEnd2 ,
& costIceEnd1, costIceEnd2,
costIceEnd2 = 0