summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-src/PATCH-pmx284.for
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/utils/pmx/pmx-src/PATCH-pmx284.for')
-rw-r--r--Build/source/utils/pmx/pmx-src/PATCH-pmx284.for135
1 files changed, 0 insertions, 135 deletions
diff --git a/Build/source/utils/pmx/pmx-src/PATCH-pmx284.for b/Build/source/utils/pmx/pmx-src/PATCH-pmx284.for
deleted file mode 100644
index c1262cfa78a..00000000000
--- a/Build/source/utils/pmx/pmx-src/PATCH-pmx284.for
+++ /dev/null
@@ -1,135 +0,0 @@
-*** pmx284.for.orig 2018-02-12 13:36:14.825209815 -0500
---- pmx284.for 2018-02-12 13:36:14.848209816 -0500
-***************
-*** 11875,11881 ****
- end if
- go to 1
- end
-! subroutine getmidi(noinst,lineq,iccount,ibarcnt,ibaroff,nbars,
- * lenbar,
- c subroutine getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar,
- * mtrdenl,first)
---- 11875,11881 ----
- end if
- go to 1
- end
-! subroutine getmidi(noinstarg,lineq,iccount,ibarcnt,ibaroff,nbars,
- * lenbar,
- c subroutine getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar,
- * mtrdenl,first)
-***************
-*** 11981,11987 ****
- c Instrument numbers or letters. Expect noinst of them.
- c
- c do 2 ivx = 1 , nv
-! do 2 ivx = 1 , noinst
- call getchar(lineq,iccount,durq)
- if (ichar(durq) .gt. 96) then
- c
---- 11981,11987 ----
- c Instrument numbers or letters. Expect noinst of them.
- c
- c do 2 ivx = 1 , nv
-! do 2 ivx = 1 , noinstarg
- call getchar(lineq,iccount,durq)
- if (ichar(durq) .gt. 96) then
- c
-***************
-*** 12026,12032 ****
- c Follow same pattern as for insttrument numbers above.
- c
- c do 7 ivx = 1 , nv
-! do 7 ivx = 1 , noinst
- call getchar(lineq,iccount,durq)
- if (index('123456789',durq) .eq. 0) then
- call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1,
---- 12026,12032 ----
- c Follow same pattern as for insttrument numbers above.
- c
- c do 7 ivx = 1 , nv
-! do 7 ivx = 1 , noinstarg
- call getchar(lineq,iccount,durq)
- if (index('123456789',durq) .eq. 0) then
- call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1,
-***************
-*** 12049,12055 ****
- c Follow same pattern as for instrument numbers above.
- c
- c do 8 ivx = 1 , nv
-! do 8 ivx = 1 , noinst
- call getchar(lineq,iccount,durq)
- if (index('123456789',durq) .eq. 0) then
- call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1,
---- 12049,12055 ----
- c Follow same pattern as for instrument numbers above.
- c
- c do 8 ivx = 1 , nv
-! do 8 ivx = 1 , noinstarg
- call getchar(lineq,iccount,durq)
- if (index('123456789',durq) .eq. 0) then
- call errmsg(lineq,iccount,ibarcnt-ibaroff+nbars+1,
-***************
-*** 12072,12078 ****
- c Follow similar pattern as above, but separator is +|-.
- c
- c do 9 ivx = 1 , nv
-! do 9 ivx = 1 , noinst
- call getchar(lineq,iccount,durq)
- ipm = index('-+',durq)
- if (ipm .eq. 0) then
---- 12072,12078 ----
- c Follow similar pattern as above, but separator is +|-.
- c
- c do 9 ivx = 1 , nv
-! do 9 ivx = 1 , noinstarg
- call getchar(lineq,iccount,durq)
- ipm = index('-+',durq)
- if (ipm .eq. 0) then
-***************
-*** 20724,20736 ****
- common /comclefrests/ centrests
- logical newclef, centrests
- common /comlyr/ inputmlyr
-! logical inputmlyr /.false./
- common /combottop/ botamt,topamt,bottopgap
- logical bottopgap
- common /comis4bignv/ is4bignv,AIset
- logical is4bignv,AIset
- common /comhair/ idhairuse,idhair(nm)
- bottopgap = .false.
- idhairuse = 0
- if (.not.optimize) then
- print*
---- 20724,20737 ----
- common /comclefrests/ centrests
- logical newclef, centrests
- common /comlyr/ inputmlyr
-! logical inputmlyr
- common /combottop/ botamt,topamt,bottopgap
- logical bottopgap
- common /comis4bignv/ is4bignv,AIset
- logical is4bignv,AIset
- common /comhair/ idhairuse,idhair(nm)
- bottopgap = .false.
-+ inputmlyr = .false.
- idhairuse = 0
- if (.not.optimize) then
- print*
-***************
-*** 25399,25405 ****
- c (unless preceded with '\'), check length
- c
- character*128 lineq,lineqt
-! character*1 sq /'\'/
- iend = lenstr(lineq,128)
- c
- c i2nd = iccount+index(lineq(iccount+1:128),'"')
---- 25400,25407 ----
- c (unless preceded with '\'), check length
- c
- character*128 lineq,lineqt
-! character*1 sq
-! sq = '\'
- iend = lenstr(lineq,128)
- c
- c i2nd = iccount+index(lineq(iccount+1:128),'"')