Searched refs:hardb4 (Results 1 – 2 of 2) sorted by relevance
29651 static real hardb4; in pmxb_() local32750 hardb4 = 0.f; in pmxb_()32760 r__1 = hardb4, r__2 = comudsp_1.udoff[commvl_1.ivx + in pmxb_()32762 hardb4 = dmax(r__1,r__2); in pmxb_()32767 if (hardb4 > 0.f) { in pmxb_()32775 do_fio(&c__1, (char *)&hardb4, (ftnlen)sizeof(real)); in pmxb_()32783 comask_1.fixednew -= hardb4; in pmxb_()
21011 hardb4 = 0.21017 hardb4 = max(hardb4,udoff(ivx,nudoff(ivx)))21020 if (hardb4 .gt. 0.) then21022 * //'hardspace{',hardb4,'pt}%'21027 fixednew = fixednew-hardb4