Searched refs:aftshft (Results 1 – 2 of 2) sorted by relevance
| /dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/ |
| H A D | pmx270.for | 5023 common /comgrace/ ivg(37),ipg(37),nolevg(74),itoff(2,74),aftshft,
5117 c GA. Compute aftshft, for later use.
5119 aftshft = grafac
5120 if (naccg(ngstrt(ig)).gt.0) aftshft = aftshft+agc1fac
5121 aftshft = aftshft*wheadpt
5342 aftshft = wheadpt*1.33
5343 if (naccg(ngstrt(ig)).gt.0) aftshft = aftshft+wheadpt*0.5
5344 write(notexq(14:17),'(f4.1)')aftshft
5436 if (isgaft .and. .not.iswaft) aftshft = aftshft+ptoff
5511 ptoff = aftshft
[all …]
|
| H A D | pmxab.c | 530 real aftshft; member
8332 comgrace_1.aftshft = spfacs_1.grafac; in dograce_()
8334 comgrace_1.aftshft += spfacs_1.agc1fac; in dograce_()
8336 comgrace_1.aftshft *= comask_1.wheadpt; in dograce_()
8717 comgrace_1.aftshft = comask_1.wheadpt * 1.33f; in dograce_()
8719 comgrace_1.aftshft += comask_1.wheadpt * .5f; in dograce_()
8722 do_fio(&c__1, (char *)&comgrace_1.aftshft, (ftnlen)sizeof(real)); in dograce_()
8917 comgrace_1.aftshft += ptoff; in dograce_()
9072 ptoff = comgrace_1.aftshft; in dograce_()
|