Searched refs:micrd (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 | 3701 mainnote = micrd(iwa).eq.0
3893 ksegrb(ibelowbot+isega) = micrd(iwa)
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',
3924 c * (micrd(iwa),isetshft(iwa),iwa=1,naccid)
4130 micrd(1) = kicrd(i)
4132 micrd(5-irank) = kicrd(i)
4187 c micrd in the order of the permutation
4190 micrd(i) = kicrd(iperm(i))
[all …]
|
| H A D | pmxab.c | 6251 --micrd; in crdacc_()
6285 mainnote = micrd[iwa] == 0; in crdacc_()
6358 irank = igetbits_(&comtrill_1.icrdot[micrd[iwa] - 1], &c__3, & in crdacc_()
6394 if (! bit_test(comtrill_1.icrdat[micrd[iwa] - 1],29)) { in crdacc_()
6424 setbits_(&comtrill_1.icrdot[micrd[iwa] - 1], &c__7, & in crdacc_()
6517 ksegrb[ibelowbot + isega - 1] = micrd[iwa]; in crdacc_()
6577 static integer micrd[10], iiseg, irank, iperm[7], nolev; in crdaccs_() local
6818 micrd[0] = kicrd[i__]; in crdaccs_()
6820 micrd[5 - irank - 1] = kicrd[i__]; in crdaccs_()
6891 micrd[i__ - 1] = kicrd[iperm[i__ - 1]]; in crdaccs_()
[all …]
|