Searched refs:ivshft (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 | 7052 if (*ivshft != 0) { in doacc_()
7053 noleva = noleva + *ivshft - 32; in doacc_()
33703 static integer ihshft, ivshft; in putcb_() local
33730 ivshft = igetbits_(&comcb_1.ibcdata[ibc - 1], &c__6, &c__13); in putcb_()
33732 if (ivshft > 0) { in putcb_()
33733 ivshft += -32; in putcb_()
33735 if (ivshft < 0 || ivshft > 9) { in putcb_()
33741 if (ivshft < -9) { in putcb_()
33749 do_fio(&c__1, (char *)&ivshft, (ftnlen)sizeof(integer)); in putcb_()
33760 do_fio(&c__1, (char *)&ivshft, (ftnlen)sizeof(integer)); in putcb_()
[all …]
|
| H A D | pmx270.for | 4232 subroutine doacc(ihshft,ivshft,notexq,lnote,nacc,nolev,ncm,caut) argument
4282 if (ivshft .ne. 0) noleva = noleva+ivshft-32
21524 ivshft = igetbits(ibcdata(ibc),6,13)
21525 c?? ivshft = igetbits(ibcdata(ibc),6,13)-32
21526 if (ivshft .gt. 0) ivshft = ivshft-32
21527 if (ivshft.lt.0 .or. ivshft.gt.9) then
21530 if (ivshft .lt. -9) then
21531 write(notexq(lnote+1:lnote+3),'(i3)')ivshft
21534 write(notexq(lnote+1:lnote+2),'(i2)')ivshft
21540 notexq = notexq(1:lnote)//char(48+ivshft)
|