Searched refs:mtrdnp (Results 1 – 4 of 4) sorted by relevance
19748 movdnp = mtrdnp20805 if (mtrdnp .gt. 0) then23584 call wgmeter(mtrnmp,mtrdnp)23698 subroutine wgmeter(mtrnmp,mtrdnp) argument23703 if (mtrdnp .eq. 0) return23706 if (mtrdnp .lt. 10) then23716 if (mtrdnp .lt. 10) then23729 else if (mtrdnp .le. 4) then23732 else if (mtrdnp .eq. 5) then23734 else if (mtrdnp .eq. 6) then[all …]
16185 *mtrdnp = i_nint(&r__1); in g1etset_()21938 *mtrdnp = i_nint(&r__1); in getset_()31830 if (all_1.mtrdnp > 0) { in pmxb_()32052 if (all_1.mtrdnp > 0) { in pmxb_()32394 if (all_1.mtrdnp > 0) { in pmxb_()37344 wgmeter_(mtrnmp, mtrdnp); in topfile_()37661 if (*mtrdnp == 0) { in wgmeter_()37667 if (*mtrdnp < 10) { in wgmeter_()37697 if (*mtrdnp < 10) { in wgmeter_()37741 } else if (*mtrdnp <= 4) { in wgmeter_()[all …]
204 static integer ivlast, mtrdnp; in MAIN__() local441 mtrdnp = readin_(line, &iccount, &c__0, (ftnlen)128) + .1f; in MAIN__()
53 c 10/29/00 fix transfer to parts of negative mtrdnp195 mtrdnp = readin(line,iccount,0)+.1