Lines Matching refs:id
218 id=5+isclr
225 if(ylimit(1,id).gt.0)
226 & y(:,id)=min(ylimit(3,id),max(ylimit(2,id),y(:,id)))
231 where (btest(iBC,id))
232 y(:,id) = BC(:,ibb)
239 y(i,id) = y(iper(i),id)
240 ac(i,id) = ac(iper(i),id)
247 T=y(:,id)
249 y(:,id)=T
250 T=ac(:,id)
252 ac(:,id)=T