Searched refs:xtcil (Results 1 – 2 of 2) sorted by relevance
34781 static real xcsil, xtcil, vskil, xitil, glueil; in puttitle_() local34934 xtcil = *etatc * glueil; in puttitle_()34937 xtcil *= 2; in puttitle_()34940 xtcil = 2.f; in puttitle_()34942 writflot_(&xtcil, notexq, &lenline, (ftnlen)127); in puttitle_()
22187 xtcil = etatc*glueil22189 if (lcq .eq. 0) xtcil = 2*xtcil22190 if (vshrink .and. usevshrink) xtcil = 222191 call writflot(xtcil,notexq,lenline)