Searched refs:xnlmid (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 | 3838 static real xnlmid; in beamid_() local
4041 xnlmid = (real) levrn_(&all_1.nolev[commvl_1.ivx + ipmid * 24 in beamid_()
4050 xnlmid = (xnlmid + levrn_(&all_1.nolev[commvl_1.ivx + ( in beamid_()
4056 if ((r__1 = xnlmid - ncmid_(&all_1.iv, &ip), dabs(r__1)) < in beamid_()
4083 all_1.slfac, &xnlmid, &all_1.islur[commvl_1.ivx + in beamid_()
4624 static real xnlmid; in beamstrt_() local
4725 xnlmid = (xnlmid + levrn_(&all_1.nolev[commvl_1.ivx + (ipmid - 1) in beamstrt_()
4730 if ((r__1 = xnlmid - ncmid_(&all_1.iv, &ipb1), dabs(r__1)) < 3.f) { in beamstrt_()
4778 comxtup_1.islope[commvl_1.ivx - 1], &all_1.slfac, &xnlmid, in beamstrt_()
34989 islope, real *slfac, real *xnlmid, integer *islur, integer *lnote, in putxtn_() argument
[all …]
|
| H A D | pmx270.for | 2190 xnlmid = levrn(nolev(ivx,ipmid),irest(ivx,ipmid),iud,
2192 if (mod(ntupv(ivx,nxtinbm(ivx)),2).eq.0) xnlmid = (xnlmid+
2196 if (abs(xnlmid-ncmid(iv,ip)).lt.3.) iflop = -iud
2211 * xnlmid,islur(ivx,ip),lnote,notexq,ncmid(iv,ip),nlnum,
2628 xnlmid = levrn(nolev(ivx,ipmid),irest(ivx,ipmid),iud,
2630 if (mod(ntupv(ivx,nxtinbm(ivx)),2) .eq. 0) xnlmid = (xnlmid+
2634 if (abs(xnlmid-ncmid(iv,ipb1)).lt.3.) iflop = -iud
2666 * poenom,nolev1(ivx),islope(ivx),slfac,xnlmid,islur(ivx,ipb1),
22214 * nolev1,islope,slfac,xnlmid,islur,lnote,notexq,ncmid,nlnum,
22234 nlnum = nint(xnlmid-1+3*iud+iflop*11)
|