summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-src/PATCH-pmx273.for-1
blob: ac8f2bcbf59fb9c1e8b1691703b51ede8684b394 (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
11004c11004
<       subroutine getmidi(noinst,lineq,iccount,ibarcnt,ibaroff,nbars,
---
>       subroutine getmidi(noinstarg,lineq,iccount,ibarcnt,ibaroff,nbars,
11033c11033
<      *                ,miditran(nm),midtc(0:nm),noinstdum,iinsiv(nm)
---
>      *                ,miditran(nm),midtc(0:nm),noinst,iinsiv(nm)
11110c11110
<         do 2 ivx = 1 , noinst
---
>         do 2 ivx = 1 , noinstarg
11155c11155
<         do 7 ivx = 1 , noinst
---
>         do 7 ivx = 1 , noinstarg
11178c11178
<         do 8 ivx = 1 , noinst
---
>         do 8 ivx = 1 , noinstarg
11201c11201
<         do 9 ivx = 1 , noinst
---
>         do 9 ivx = 1 , noinstarg
19791c19791,19792
<       logical inputmlyr /.false./
---
>       logical inputmlyr 
>       data inputmlyr /.false./
24429c24430,24431
<       character*1 sq /'\'/
---
>       character*1 sq 
>       data sq /'\'/