Searched refs:ioctup (Results 1 – 2 of 2) sorted by relevance
| /dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/ |
| H A D | pmxab.c | 27675 static integer iname, ioctup; in notefq_() local
27684 ioctup = (*nolev + 1) / 7 - 4; in notefq_()
27691 if (ioctup == comoct_1.noctup) { in notefq_()
27697 } else if (ioctup > comoct_1.noctup) { in notefq_()
27708 i__1 = ioctup - 1; in notefq_()
27717 *lnote = ioctup + 3 - comoct_1.noctup; in notefq_()
27718 comoct_1.noctup = ioctup; in notefq_()
27731 for (i__ = ioctup; i__ <= i__1; ++i__) { in notefq_()
27739 *lnote = comoct_1.noctup + 3 - ioctup; in notefq_()
27740 comoct_1.noctup = ioctup; in notefq_()
|
| H A D | pmx270.for | 18043 ioctup = (nolev+1)/7-4
18046 if (ioctup .eq. noctup) then
18052 else if (ioctup .gt. noctup) then
18056 write(noteq,'(8a1)')'{',(chax(39),i=noctup,ioctup-1),
18058 lnote = 3+ioctup-noctup
18059 noctup = ioctup
18064 write(noteq,'(8a1)')'{',(chax(96),i=ioctup,noctup-1),
18066 lnote = 3+noctup-ioctup
18067 noctup = ioctup
|