1*3e12c5d1SDavid du Colombier'''\" ptx.src (@(#)ptx.src 1.1) - format permuted index macro 2*3e12c5d1SDavid du Colombier.tr ~ 3*3e12c5d1SDavid du Colombier.nr)y \n(.lu-.65i 4*3e12c5d1SDavid du Colombier.nr)x \n()yu/2u 5*3e12c5d1SDavid du Colombier.dss2 ~~~ 6*3e12c5d1SDavid du Colombier.dss4 ~ 7*3e12c5d1SDavid du Colombier.dss5 ~ 8*3e12c5d1SDavid du Colombier.dexx 9*3e12c5d1SDavid du Colombier.dss1 10*3e12c5d1SDavid du Colombier.if\w\\$2 .ds s1 ~\| 11*3e12c5d1SDavid du Colombier.dss3 12*3e12c5d1SDavid du Colombier.if\w\\$4 .ds s3 ~\| 13*3e12c5d1SDavid du Colombier.dsy \\*(s4\f3\a\fP\\*(s5 14*3e12c5d1SDavid du Colombier.ta\\n()yu-\w\\*(s5u 15*3e12c5d1SDavid du Colombier\h\\n()xu-\w\\$1\\*(s1\\$2\\*(s2u\\$1\\*(s1\\$2\\*(s2\\$3\\*(s3\\$4\\*y\\$5 16*3e12c5d1SDavid du Colombier.. 17*3e12c5d1SDavid du Colombier.nf 18