Searched refs:imovbrk (Results 1 – 2 of 2) sorted by relevance
28690 static integer mtrdenl, imovbrk, lenmult, iscount; in pmxa_() local29302 imovbrk = 0; in pmxa_()29314 if (isyst == compage_1.isysmb[imovbrk + 1]) { in pmxa_()29315 ++imovbrk; in pmxa_()29333 imovbrk]) { in pmxa_()29339 compage_1.fracsys[imovbrk - 1]) * (1 - in pmxa_()29340 compage_1.fracsys[imovbrk - 1]); in pmxa_()29443 if (compage_1.nmovbrk > 0 && imovbrk > 0 && isyst == in pmxa_()29444 compage_1.isysmb[imovbrk]) { in pmxa_()29537 compage_1.isysmb[imovbrk]) { in pmxa_()[all …]
19003 imovbrk = 019011 if (nmovbrk.gt.0 .and. imovbrk.lt.nmovbrk) then19012 if (isyst .eq. isysmb(imovbrk+1)) imovbrk = imovbrk+119030 * /(isysflb(iflb)-isyst-fracsys(imovbrk))19031 * *(1-fracsys(imovbrk))19114 if (nmovbrk.gt.0 .and. imovbrk.gt.0 .and.19115 * isyst.eq.isysmb(imovbrk)) then19116 wdpt = widthpt*(1-fracsys(imovbrk))19184 if (nmovbrk.gt.0 .and. imovbrk.gt.0 .and.19185 * isyst.eq.isysmb(imovbrk)) then[all …]