Searched refs:midisig (Results 1 – 2 of 2) sorted by relevance
1323 if (midisig .ne. 0) then4333 common /commidisig/ midisig7495 common /commidisig/ midisig10140 common /commidisig/ midisig10216 midisig = newkey 11434 common /commidisig/ midisig13659 midisig = nint(fnum)13660 if (durq.eq.'-') midisig = -midisig13662 midisig = midisig+idsig14295 c midisig(iinst) = isig0[all …]
513 integer midisig; member2656 if (*midisig != 0) { in addmidi_()2661 if (*midisig >= i_indx("4152630", notenumq, (ftnlen)7, ( in addmidi_()7392 commidisig_1.midisig, &c_b807, &c_false, &c_false); in docrd_()16198 commidisig_1.midisig = *newkey; in g1etset_()21015 commidisig_1.midisig = i_nint(&fnum); in getnote_()21017 commidisig_1.midisig = -commidisig_1.midisig; in getnote_()21020 commidisig_1.midisig += comtop_1.idsig; in getnote_()21021 midievent_("k", &commidisig_1.midisig, &c__0, (ftnlen)1); in getnote_()21950 commidisig_1.midisig = *isig0; in getset_()[all …]