Searched refs:hshft (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 | 6963 static real hshft; in doacc_() local
6996 hshft = *ihshft * .05f; in doacc_()
6997 if (hshft < 1.f) { in doacc_()
7004 do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); in doacc_()
7014 do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); in doacc_()
33702 static real hshft; in putcb_() local
33785 hshft = (ihshft - 128) * .1f; in putcb_()
33794 if (hshft < -9.95f) { in putcb_()
33802 do_fio(&c__1, (char *)&hshft, (ftnlen)sizeof(real)); in putcb_()
33805 } else if (hshft < -.05f || hshft > 9.95f) { in putcb_()
[all …]
|
| H A D | pmx270.for | 4253 hshft = .05*ihshft
4254 if (hshft .lt. 1.) then
4255 write(notexq(10:12),'(f3.2)')hshft
4258 write(notexq(10:13),'(f4.2)')hshft
21548 hshft = .1*(ihshft-128)
21550 c -12.8<hshft<12.8
21554 if (hshft .lt. -9.95) then
21555 write(notexq(lnote+1:lnote+5),'(f5.1)')hshft
21557 else if (hshft.lt.-0.05 .or. hshft.gt.9.95) then
21558 write(notexq(lnote+1:lnote+4),'(f4.1)')hshft
[all …]
|