Lines Matching refs:iinst
167 do 21 iinst = 1 , noinst
168 nvi(iinst) = readin(line,iccount,-1)+.1
174 c ivlast is last iv in current inst. instnum(iv) is iinst for current voice.
182 c The previous stmt will set botv true only for bot voice of iinst>1. It is
334 iinst = 1
578 read(line(ibb:ibb),'(i1)')iiinst ! 1st digit of iinst
720 if (lenline.gt.1) write(10+iorig(iinst),'(a)')line(1:lenline-1)
731 write(10+iorig(iinst),'(a)')line(1:lenline)
740 iinst = instnum(iv)
748 do 11 iinst = 1 , noinst
753 c rewind(10+iinst)
754 c open(40,file='s2pout'//char(48+iinst)//'.pmx')
756 c read(10+iinst,'(a)',end=51)line
767 if (nvi(iinst) .eq. 1) then
768 call mbrests(iinst,jobname,ljob,ludpfn(iinst),udpfnq(iinst))
773 call mbrests(iinst,jobname,-ljob,ludpfn(iinst),udpfnq(iinst))
796 do 1 iinst = 1 , noinow
797 write(10+iorig(iinst),'(a)')string(1:len)