Searched refs:fracsys (Results 1 – 2 of 2) sorted by relevance
3155 data fracsys /30*0./9939 c fracsys was initialized in block data to all 0.'s9941 call readnum(lineq,iccount,durq,fracsys(nmovbrk))10060 if (fracsys(nmovbrk) .lt. 0.001) then10062 c Since fracsys was not explicitly set, set it to prior value.10065 fracsys(nmovbrk) = fracindent10067 fracsys(nmovbrk) = fracsys(nmovbrk-1)19030 * /(isysflb(iflb)-isyst-fracsys(imovbrk))19031 * *(1-fracsys(imovbrk))19116 wdpt = widthpt*(1-fracsys(imovbrk))[all …]
409 real fintstf, gintstf, fracsys[30]; member15746 readnum_(lineq, &a1ll_2.iccount, durq, &compage_1.fracsys[ in g1etnote_()15954 if (compage_1.fracsys[compage_1.nmovbrk - 1] < .001f) { in g1etnote_()15959 compage_1.fracsys[compage_1.nmovbrk - 1] = in g1etnote_()15962 compage_1.fracsys[compage_1.nmovbrk - 1] = in g1etnote_()15963 compage_1.fracsys[compage_1.nmovbrk - 2]; in g1etnote_()29339 compage_1.fracsys[imovbrk - 1]) * (1 - in pmxa_()29340 compage_1.fracsys[imovbrk - 1]); in pmxa_()29445 wdpt = compage_1.widthpt * (1 - compage_1.fracsys[imovbrk - 1] in pmxa_()29538 c1omget_1.fracindent = compage_1.fracsys[imovbrk - 1]; in pmxa_()