summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.7.0-PATCHES/patch-01-common
blob: 54614abae3a57f9ef10c3d9397ed6c44cf09c91e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
diff -ur pmx-2.7.0.orig/pmx270.for pmx-2.7.0/pmx270.for
--- pmx-2.7.0.orig/pmx270.for	2013-04-03 09:02:49.000000000 +0200
+++ pmx-2.7.0/pmx270.for	2013-04-12 08:47:44.000000000 +0200
@@ -10904,7 +10904,7 @@
       end if
       go to 1
       end
-      subroutine getmidi(noinst,lineq,iccount,ibarcnt,ibaroff,nbars,
+      subroutine getmidi(noinstarg,lineq,iccount,ibarcnt,ibaroff,nbars,
      *                   lenbar,
 c      subroutine getmidi(nv,lineq,iccount,ibarcnt,ibaroff,nbars,lenbar,
      *                    mtrdenl,first)
@@ -10933,7 +10933,7 @@
      *       debugmidi
       logical debugmidi
       common /commvel/ midivel(nm),midvelc(0:nm),midibal(nm),midbc(0:nm)
-     *                ,miditran(nm),midtc(0:nm),noinstdum,iinsiv(nm)
+     *                ,miditran(nm),midtc(0:nm),noinst,iinsiv(nm)
       integer*2 iinsiv
       character*1 durq
       character*2 instq
@@ -11010,7 +11010,7 @@
 c  Instrument numbers or letters.  Expect noinst of them.
 c
 c        do 2 ivx = 1 , nv
-        do 2 ivx = 1 , noinst
+        do 2 ivx = 1 , noinstarg
           call getchar(lineq,iccount,durq)
           if (ichar(durq) .gt. 96) then
 c
@@ -11055,7 +11055,7 @@
 c    Follow same pattern as for insttrument numbers above.
 c 	
 c        do 7 ivx = 1 , nv
-        do 7 ivx = 1 , noinst
+        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,
@@ -11078,7 +11078,7 @@
 c    Follow same pattern as for instrument numbers above.
 c 	
 c        do 8 ivx = 1 , nv
-        do 8 ivx = 1 , noinst
+        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,
@@ -11101,7 +11101,7 @@
 c    Follow similar pattern as above, but separator is +|-.
 c 	
 c        do 9 ivx = 1 , nv
-        do 9 ivx = 1 , noinst
+        do 9 ivx = 1 , noinstarg
           call getchar(lineq,iccount,durq)
           ipm = index('-+',durq)
           if (ipm .eq. 0) then
diff -ur pmx-2.7.0.orig/scor2prt.c pmx-2.7.0/scor2prt.c
--- pmx-2.7.0.orig/scor2prt.c	2013-04-03 08:54:13.000000000 +0200
+++ pmx-2.7.0/scor2prt.c	2013-04-11 08:47:42.000000000 +0200
@@ -25,7 +25,7 @@
     integer noinow, iorig[24], noinst;
     logical insetup, replacing;
     integer instnum[24];
-    real botv[24];
+    logical botv[24];
     integer nvi[24], nsyst, nvnow;
 };
 
diff -ur pmx-2.7.0.orig/scor2prt.for pmx-2.7.0/scor2prt.for
--- pmx-2.7.0.orig/scor2prt.for	2013-04-03 08:48:23.000000000 +0200
+++ pmx-2.7.0/scor2prt.for	2013-04-11 08:40:28.000000000 +0200
@@ -1482,7 +1482,7 @@
       common /all/ noinow,iorig(noimax),noinst,insetup,replacing,
      *       instnum(noimax),botv(noimax),nvi(noimax),nsyst,nvnow
       character*128 line
-      logical insetup,replacing
+      logical insetup,replacing,botv
       iccount = 0
       do 1 iset = 1 , 12
         call partnum(iv,iccount,line,xdata)