diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.7.0/PATCH-scor2prt.for-1')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.7.0/PATCH-scor2prt.for-1 | 182 |
1 files changed, 182 insertions, 0 deletions
diff --git a/Build/source/utils/pmx/pmx-2.7.0/PATCH-scor2prt.for-1 b/Build/source/utils/pmx/pmx-2.7.0/PATCH-scor2prt.for-1 new file mode 100644 index 00000000000..54656fad837 --- /dev/null +++ b/Build/source/utils/pmx/pmx-2.7.0/PATCH-scor2prt.for-1 @@ -0,0 +1,182 @@ +*** scor2prt.for.orig 2013-04-11 12:20:31.619378371 -0400 +--- scor2prt.for 2013-04-11 12:24:09.417929495 -0400 +*************** +*** 110,117 **** + read(*,'(a)')jobname + numargs = 1 + else +! call getarg(1,jobname,idum) ! May need to replace this w/ next line +! c call getarg(1,jobname) + end if + ljob = lenstr(jobname,27) + if (ljob .eq. 0) then +--- 110,117 ---- + read(*,'(a)')jobname + numargs = 1 + else +! c call getarg(1,jobname,idum) ! May need to replace this w/ next line +! call getarg(1,jobname) + end if + ljob = lenstr(jobname,27) + if (ljob .eq. 0) then +*************** +*** 177,183 **** + do 22 iv = 1 , nv + instnum(iv) = insnow + if (iv .eq. ivlast) then +! if (iv .lt. nv) botv(iv+1) = .true. + c + c The previous stmt will set botv true only for bot voice of iinst>1. It is + c used when writing termrpts, but the one in voice one is handled differently, +--- 177,183 ---- + do 22 iv = 1 , nv + instnum(iv) = insnow + if (iv .eq. ivlast) then +! if (iv .lt. nv) botv(iv+1) = .true. + c + c The previous stmt will set botv true only for bot voice of iinst>1. It is + c used when writing termrpts, but the one in voice one is handled differently, +*************** +*** 213,235 **** + c + read(10,'(a)')line + call chkcom(line) +! backspace(10) + c + c Normally this puts pointer at start of line with 1st inst name + c Check if prior line was "%%" + c + backspace(10) +! read(10,'(a)')line +! if (line(1:2) .eq. '%%') backspace(10) + do 14 iv = 1 , noinst +! gotname = .false. + 16 read(10,'(a)') instrum(iv) + if (instrum(iv)(1:2) .eq. '%%') then + read(10,'(a)')line + go to 16 + else if (instrum(iv)(1:1) .eq. '%') then + ivq = ichar(instrum(iv)(2:2))-48 +! if (ivq.ne.iv) then + c + c It's really a comment. Copy to parts, then get another trial name. + c +--- 213,235 ---- + c + read(10,'(a)')line + call chkcom(line) +! backspace(10) + c + c Normally this puts pointer at start of line with 1st inst name + c Check if prior line was "%%" + c + backspace(10) +! read(10,'(a)')line +! if (line(1:2) .eq. '%%') backspace(10) + do 14 iv = 1 , noinst +! gotname = .false. + 16 read(10,'(a)') instrum(iv) + if (instrum(iv)(1:2) .eq. '%%') then + read(10,'(a)')line + go to 16 + else if (instrum(iv)(1:1) .eq. '%') then + ivq = ichar(instrum(iv)(2:2))-48 +! if (ivq.ne.iv) then + c + c It's really a comment. Copy to parts, then get another trial name. + c +*************** +*** 270,276 **** + c + read(10,'(a)')line + call chkcom(line) +! if (replacing) then + c + c If here, we have next line after "%%", containing score's clef string + c Assume all clefs are handled with instrument comments. +--- 270,276 ---- + c + read(10,'(a)')line + call chkcom(line) +! if (replacing) then + c + c If here, we have next line after "%%", containing score's clef string + c Assume all clefs are handled with instrument comments. +*************** +*** 339,345 **** + call zapbl(line,128) + call chkcom(line) + lenline = lenstr(line,128) +! if (lenline .eq. 0) go to 4 + if (line(1:1) .eq. 'T') then + call allparts(line,128) + read(10,'(a)')line +--- 339,345 ---- + call zapbl(line,128) + call chkcom(line) + lenline = lenstr(line,128) +! if (lenline .eq. 0) go to 4 + if (line(1:1) .eq. 'T') then + call allparts(line,128) + read(10,'(a)')line +*************** +*** 548,554 **** + c + read(line(3:3),'(i1)')iudpfn + idxstartname = 5 +! else + read(line(3:4),'(i2)')iudpfn + idxstartname = 6 + end if +--- 548,554 ---- + c + read(line(3:3),'(i1)')iudpfn + idxstartname = 5 +! else + read(line(3:4),'(i2)')iudpfn + idxstartname = 6 + end if +*************** +*** 903,914 **** + c New way with slashes: idxs is index of 1st slash! + c + read(line(1)(2:idxs-1),'(i'//char(48+idxs-2)//')')mtrnum +! idxb = index(line(1)(idxs+1:),'/') + read(line(1)(idxs+1:idxs+idxb-1), +! * '(i'//char(48+idxb-1)//')')mtrden + end if + end if +! lenbeat = ifnodur(mtrden,'x') + lenmult = 1 + if (mtrden .eq. 2) then + lenbeat = 16 +--- 903,914 ---- + c New way with slashes: idxs is index of 1st slash! + c + read(line(1)(2:idxs-1),'(i'//char(48+idxs-2)//')')mtrnum +! idxb = index(line(1)(idxs+1:),'/') + read(line(1)(idxs+1:idxs+idxb-1), +! * '(i'//char(48+idxb-1)//')')mtrden + end if + end if +! lenbeat = ifnodur(mtrden,'x') + lenmult = 1 + if (mtrden .eq. 2) then + lenbeat = 16 +*************** +*** 1482,1488 **** + common /all/ noinow,iorig(noimax),noinst,insetup,replacing, + * instnum(noimax),botv(noimax),nvi(noimax),nsyst,nvnow + character*128 line +! logical insetup,replacing + iccount = 0 + do 1 iset = 1 , 12 + call partnum(iv,iccount,line,xdata) +--- 1482,1488 ---- + common /all/ noinow,iorig(noimax),noinst,insetup,replacing, + * instnum(noimax),botv(noimax),nvi(noimax),nsyst,nvnow + character*128 line +! logical insetup,replacing,botv + iccount = 0 + do 1 iset = 1 , 12 + call partnum(iv,iccount,line,xdata) |