diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-src/PATCH-pmx284.for')
-rw-r--r-- | Build/source/utils/pmx/pmx-src/PATCH-pmx284.for | 135 |
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),'"') |