Searched refs:lenmodline (Results 1 – 2 of 2) sorted by relevance
21558 static integer ilbufmod, ipbufmod, lenbufmod, lenmodline; in getpmxmod_() local21772 lenmodline = lenstr_(lnholdq, &c__128, (ftnlen)128); in getpmxmod_()21773 if (lenmodline == 0) { in getpmxmod_()21777 lenmodline = 1; in getpmxmod_()21780 inbuff_1.lbuf[ilbufmod - 1] = (shortint) lenmodline; in getpmxmod_()21781 printl_(lnholdq, lenmodline); in getpmxmod_()21788 i__1[1] = lenmodline, a__1[1] = lnholdq; in getpmxmod_()
14183 lenmodline = lenstr(lnholdq,128)14184 if (lenmodline .eq. 0) then14188 lenmodline = 114191 lbuf(ilbufmod) = lenmodline14192 call printl(lnholdq(1:lenmodline))14196 bufq = bufq(1:ipbufmod)//lnholdq(1:lenmodline)//