Searched refs:niptgr (Results 1 – 2 of 2) sorted by relevance
8197 static integer lnoten, itrans, niptgr; in dograce_() local8292 niptgr = i_nint(&ptgr[*ig]); in dograce_()8298 if (niptgr < 10) { in dograce_()8300 i__1 = niptgr + 48; in dograce_()8306 } else if (niptgr < 100) { in dograce_()8308 do_fio(&c__1, (char *)&niptgr, (ftnlen)sizeof(integer)); in dograce_()
5098 niptgr = nint(ptgr(ig))5102 C if (.not.fontslur) niptgr = niptgr+nint(wheadpt*.3)5104 if (niptgr .lt. 10) then5105 call addstr(chax(48+niptgr)//'{',2,soutq,lsout)5106 else if (niptgr .lt. 100) then5107 write(notexq(1:2),'(i2)')niptgr