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 /'\'/
|