Searched refs:notenumq (Results 1 – 2 of 2) sorted by relevance
2524 static char notenumq[1]; in addmidi_() local2660 *(unsigned char *)notenumq = (char) (*nolev % 7 + 48); in addmidi_()2661 if (*midisig >= i_indx("4152630", notenumq, (ftnlen)7, ( in addmidi_()2664 } else if (-(*midisig) >= i_indx("0362514", notenumq, (ftnlen) in addmidi_()
1208 character*1 notenumq1327 notenumq = char(48+mod(nolev,7))1328 if (midisig.ge.index('4152630',notenumq)) then1330 else if (-midisig.ge.index('0362514',notenumq)) then