Searched refs:nsav4tie (Results 1 – 2 of 2) sorted by relevance
2522 static integer nsav4tie; in addmidi_() local2954 nsav4tie = 0; in addmidi_()2957 ++nsav4tie; in addmidi_()2967 if (nsav4tie == 1) { in addmidi_()2970 itiesav[nsav4tie * 5 - 1] = itiesav[nsav4tie * 5 - 5] + in addmidi_()2980 i__1 = nsav4tie; in addmidi_()2993 it1 = nsav4tie + 1; in addmidi_()2994 it2 = nsav4tie + 1; in addmidi_()3000 i__1 = nsav4tie; in addmidi_()3010 nsav4tie += -2; in addmidi_()[all …]
1563 nsav4tie = 01565 10 nsav4tie = nsav4tie+11569 itiesav(j+1,nsav4tie) = mmidi(icm,imidt+j)1572 if (nsav4tie .eq. 1) then1575 itiesav(5,nsav4tie) = itiesav(1,nsav4tie)+1583 do 12 it2 = 1 , nsav4tie1592 it1 = nsav4tie+11593 it2 = nsav4tie+11599 do 14 isav = 1 , nsav4tie1604 nsav4tie = nsav4tie-2[all …]