summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.7.0/PATCH-scor2prt.for-1
diff options
context:
space:
mode:
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-1182
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)