bjwrk = 1
do bj = bjwrk, jthi
integer biwrk,bjwrk
bjwrk = bjmem (ichknum-1)
iwettot = iwetsum(biwrk,bjwrk,kwrk)