Home
last modified time | relevance | path

Searched refs:mtrden (Results 1 – 5 of 5) sorted by relevance

/dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/
H A DPATCH-scor2prt.for-1146 ! * '(i'//char(48+idxb-1)//')')mtrden
149 ! lenbeat = ifnodur(mtrden,'x')
151 if (mtrden .eq. 2) then
159 ! * '(i'//char(48+idxb-1)//')')mtrden
162 ! lenbeat = ifnodur(mtrden,'x')
164 if (mtrden .eq. 2) then
H A Dscor2prt.c1374 static integer lwbrs, nwbrs, lenbar, ipenew, mtrden; in mbrests_() local
1508 dosetup_(iv, line, &mtrnum, &mtrden, (ftnlen)128); in mbrests_()
1578 mtrden = *(unsigned char *)&line[icden - 1] - 48; in mbrests_()
1614 do_fio(&c__1, (char *)&mtrden, (ftnlen)sizeof(integer)); in mbrests_()
1618 lenbeat = ifnodur_(&mtrden, "x", (ftnlen)1); in mbrests_()
1620 if (mtrden == 2) { in mbrests_()
2519 integer *mtrden, ftnlen line_len) in dosetup_() argument
2621 *mtrden = i_nint(&xdata); in dosetup_()
H A Dscor2prt.for853 call dosetup(iv,line(1),mtrnum,mtrden)
900 mtrden = ichar(line(1)(icden:icden))-48
908 * '(i'//char(48+idxb-1)//')')mtrden
911 lenbeat = ifnodur(mtrden,'x')
913 if (mtrden .eq. 2) then
1469 subroutine dosetup(iv,line,mtrnum,mtrden) argument
1530 mtrden = nint(xdata)
H A Dpmxab.c35303 mtrnum, integer *mtrden, ftnlen lineq_len) in readmeter_() argument
35353 *mtrden = 1; in readmeter_()
35355 *mtrden = *(unsigned char *)durq - 48; in readmeter_()
35356 if (*mtrden == 1) { in readmeter_()
35358 *mtrden = *(unsigned char *)durq - 38; in readmeter_()
35407 do_fio(&c__1, (char *)&(*mtrden), (ftnlen)sizeof(integer)); in readmeter_()
H A Dpmx270.for22385 subroutine readmeter(lineq,iccount,mtrnum,mtrden) argument
22416 mtrden = 1
22418 mtrden = ichar(durq)-48
22419 if (mtrden .eq. 1) then
22421 mtrden = 10+ichar(durq)-48
22440 read(lineq(iccount:iccount+ns-2),'(i'//chax(47+ns)//')')mtrden