Home
last modified time | relevance | path

Searched refs:nbars0 (Results 1 – 2 of 2) sorted by relevance

/dports/print/texlive-base/texlive-20150521-source/utils/pmx/pmx-2.7.0/
H A Dpmxab.c926 nsyst, nbars0[125]; in MAIN__() local
1946 pmxa_(jobname, &ljob4, &isfirst, &nsyst, nbars0, &optimize, (ftnlen) in MAIN__()
2135 nbari[isys - 1] = nbars0[isys - 1]; in MAIN__()
2159 if (isysu == isysd || nbars0[isysd - 1] == 1 || poe0[isysd - in MAIN__()
2165 nbars[isyst - 1] = nbars0[isyst - 1]; in MAIN__()
2182 nbars0[isys - 1] = nbars[isys - 1]; in MAIN__()
2209 do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen) in MAIN__()
2216 do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen) in MAIN__()
2289 do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen)sizeof(integer)); in MAIN__()
2295 do_fio(&c__1, (char *)&nbars0[isys - 1], (ftnlen)sizeof(integer)); in MAIN__()
[all …]
H A Dpmx270.for700 integer*4 nbars0(nks),nbars(nks),ipoe(nks),nbari(nks)
890 c Otherwise, nbars0 is the input
893 call pmxa(jobname,ljob4,isfirst,nsyst,nbars0,optimize)
1003 nbari(isys) = nbars0(isys)
1017 if (isysu.eq.isysd .or. nbars0(isysd).eq.1
1020 nbars(isyst) = nbars0(isyst)
1034 nbars0(isys) = nbars(isys)
1041 write(*,'(5x,20i3)')(nbars0(isys),isys=1,nsyst)
1065 write(*,'(5x,20i3)')(nbars0(isys),isys=1,nsyst)
1066 write(15,'(5x,20i3)')(nbars0(isys),isys=1,nsyst)
[all …]