INTEGER rbcsIter0
& rbcsIter0
initer0 = rbcsIter0 + intime0*Ifprd
initer1 = rbcsIter0 + intime1*Ifprd
rbcsIter0 = 0