Searched refs:isetshft (Results 1 – 2 of 2) sorted by relevance
| /dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/ |
| H A D | pmx270.for | 3655 * isetshft(10),ksegrb0(50)
3702 isetshft(iwa) = -1
3738 isetshft(iwa) = ksegrb(isegrb)
3752 if (nolev.eq.levmaxacc .and. isetshft(iwa).eq.-1) then
3777 if (isetshft(iwa) .lt. 0) then
3779 else if (isetshft(iwa) .eq. 0) then
3782 iranksetter = igetbits(icrdot(isetshft(iwa)),3,27)
3906 c write(15,'(a/(2i5))')' micrd isetshft',
3907 c * (micrd(iwa1),isetshft(iwa1),iwa1=1,iwa)
3923 c write(15,'(a/(2i5))')' micrd isetshft',
[all …]
|
| H A D | pmxab.c | 6213 static integer isetshft[10]; in crdacc_() local
6286 isetshft[iwa - 1] = -1; in crdacc_()
6328 isetshft[iwa - 1] = ksegrb[isegrb - 1]; in crdacc_()
6346 if (nolev == *levmaxacc && isetshft[iwa - 1] == -1) { in crdacc_()
6372 if (isetshft[iwa - 1] < 0) { in crdacc_()
6374 } else if (isetshft[iwa - 1] == 0) { in crdacc_()
6377 iranksetter = igetbits_(&comtrill_1.icrdot[isetshft[iwa - 1] in crdacc_()
|