biwrk = 1
do bi = biwrk, ithi
integer biwrk,bjwrk
biwrk = bimem (ichknum-1)
iwettot = iwetsum(biwrk,bjwrk,kwrk)