Lines Matching refs:snr
1 subroutine y12mce(n,z,a,snr,nn,rnr,nn1,pivot,b,ha,iha, argument
9 integer snr(nn),rnr(nn1),ha(iha,11), iflag(10)
23 snr(z+1)=0
38 if(l5.le.nn)snr(l5)=0
44 snr(l5-j)=snr(l2-j)
52 20 snr(j)=0
121 r6=snr(k)
176 l1=snr(j)
186 l1=snr(j)
204 if(snr(r).ne.i)go to 300
208 snr(r)=snr(r10)
209 310 snr(r10)=rcoll
216 if(snr(r).ne.rcoll)go to 320
217 330 snr(r)=i
229 if(snr(rr).eq.i)go to 370
242 snr(rr)=snr(rr3)
244 snr(rr3)=snr(r2)
245 snr(r2)=0
253 index=snr(j)
265 if(snr(l).ne.i)go to 390
269 snr(l)=snr(i1)
270 snr(i1)=0
277 r3=snr(rr1)
278 snr(rr1)=snr(l)
279 snr(l)=r3
287 l1=snr(l)
301 snr(l)=snr(rr1)
303 snr(rr1)=snr(i1)
304 snr(i1)=0
326 r2=snr(r)
342 if(snr(i1-1).eq.0)go to 600
344 if(snr(rr2+1).eq.0)go to 580
354 ha(jj,3)=snr(l1)
355 snr(l1)=-jj
361 if(snr(jj).eq.0)go to 540
363 if(snr(jj).gt.0)go to 530
364 l5=-snr(jj)
365 snr(jj)=ha(l5,3)
372 snr(l3)=snr(jj)
376 snr(l3+1)=0
396 snr(l4)=snr(l5)
397 570 snr(l5)=0
410 if(r4.lt.nn)snr(r4+1)=0
417 snr(i1)=snr(l1)
420 snr(l1)=snr(r)
563 index=snr(j)
572 r=snr(l2+ll)