Searched refs:iarps (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 | 29646 static integer itxtdyn, isdata, iarps; in pmxb_() local
32654 for (iarps = 1; iarps <= i__2; ++iarps) { in pmxb_()
32655 comarpshift_1.iparpshift[iarps - 1] -= all_1.nib[ in pmxb_()
32656 comarpshift_1.ivarpshift[iarps - 1] + (all_1.ibar - 1) in pmxb_()
32659 comarpshift_1.iparpshift[iarps - 1] += all_1.nib[ in pmxb_()
32660 comarpshift_1.ivarpshift[iarps - 1] + (all_1.ibar in pmxb_()
33415 static integer iarp, isym, iarps, lnote; in putarp_() local
33453 for (iarps = 1; iarps <= i__1; ++iarps) { in putarp_()
33454 if (comarpshift_1.ivarpshift[iarps - 1] == comarp_1.ivar1[iarp - 1] && in putarp_()
33455 comarpshift_1.iparpshift[iarps - 1] == comarp_1.ipar1[iarp - in putarp_()
[all …]
|
| H A D | pmx270.for | 20947 do 45 iarps = 1 , NumArpShift
20948 IpArpShift(iarps) =
20949 * IpArpShift(iarps)-nib(IvArpShift(iarps),ibar-1)
20951 IpArpShift(iarps) =
20952 * IpArpShift(iarps)+nib(IvArpShift(iarps),ibar-2)
21382 c Check for shift. Set IsArpShift and iarps
21384 do 3 iarps = 1 , NumArpShift
21385 if (IvArpShift(iarps) .eq. ivar1(iarp) .and.
21386 * IpArpShift(iarps) .eq. ipar1(iarp)) then
21389 write(notexq(10:14),'(f3.1,a2)') Arpshift(iarps),'}{'
|