Searched refs:charlq (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 | 12139 static char charlq[1]; in g1etnote_() local
12207 *(unsigned char *)charlq = *(unsigned char *)charq; in g1etnote_()
12210 if (i_indx("/%", charlq, (ftnlen)2, (ftnlen)1) == 0) { in g1etnote_()
12219 do_lio(&c__9, &c__1, charlq, (ftnlen)1); in g1etnote_()
12224 i__1 = *(unsigned char *)charlq; in g1etnote_()
12230 i__2[1] = 1, a__1[1] = charlq; in g1etnote_()
12237 i__1 = *(unsigned char *)charlq; in g1etnote_()
|
| H A D | pmx270.for | 7469 character*1 charq,dotq,dumq,durq,charlq
7502 if (charq .ne. ' ') charlq = charq
7504 if (index('/%',charlq) .eq. 0) then
7507 print*,'Last non-blank character is "',charlq,'", not "/,%"'
7508 print*,'ASCII code:',ichar(charlq)
7509 write(15,'(/a)')'Last non-blank character is "'//charlq//
7511 write(15,'(a11,2x,i3)')'ASCII code:',ichar(charlq)
|