Searched refs:ipermsav (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 | 3947 c integer*4 kicrd(7),iperm(7),micrd(10),ipermsav(7),ksegrb0(50)
3948 integer*4 kicrd(10),iperm(7),micrd(10),ipermsav(7),ksegrb0(50)
4209 ipermsav(i) = iperm(i)
4221 micrd(i) = kicrd(ipermsav(i))
4226 c write(15,'(/a6,10i3)')'Final perm:',(ipermsav(i),i=1,naccid)
|
| H A D | pmxab.c | 6573 static integer ipermsav[7]; in crdaccs_() local
6912 ipermsav[i__ - 1] = iperm[i__ - 1]; in crdaccs_()
6929 micrd[i__ - 1] = kicrd[ipermsav[i__ - 1]]; in crdaccs_()
|