& costIceEnd1,
integer costIceEnd1
if ( costIceEnd1.EQ.0 ) then
costIceEnd1 = modelEndDate(1)
call CAL_FULLDATE ( costIceEnd1 , costIceEnd2 ,
& costIceEnd1, costIceEnd2,
costIceEnd1 = 0