Searched refs:rmsshift (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 | 6178 integer *nolevm, real *rmsshift, logical *lasttime, integer * in crdacc_() argument
6277 *rmsshift = 0.f; in crdacc_()
6347 *rmsshift = 1e3f; in crdacc_()
6381 *rmsshift = 1e3f; in crdacc_()
6387 *rmsshift += r__1 * r__1; in crdacc_()
6574 static real rmsshift; in crdaccs_() local
6798 crdacc_(nacc, naccid, &kicrd[1], nolevm, &rmsshift, &c_true, &idummy, in crdaccs_()
6828 crdacc_(nacc, naccid, micrd, nolevm, &rmsshift, &c_true, &idummy, in crdaccs_()
6899 crdacc_(nacc, naccid, micrd, nolevm, &rmsshift, &c_false, levmaxacc, in crdaccs_()
6906 if (rmsshift < rmsmin) { in crdaccs_()
[all …]
|
| H A D | pmx270.for | 3694 rmsshift = 0.
3753 rmsshift = 1000.
3785 rmsshift = 1000.
3789 rmsshift = rmsshift+shift**2
4112 call crdacc(nacc,naccid,kicrd,nolevm,rmsshift,.true.,
4140 call crdacc(nacc,naccid,micrd,nolevm,rmsshift,.true.,
4197 call crdacc(nacc,naccid,micrd,nolevm,rmsshift,.false.,
4202 c write(15,*)'perm done, rmsshift:',rmsshift
4204 if (rmsshift .lt. rmsmin) then
4210 rmsmin = rmsshift
[all …]
|