Searched refs:eonsqz (Results 1 – 2 of 2) sorted by relevance
24196 static real eonsqz; in make2bar_() local24454 eonsqz = squez[ib] * feon_(&r__1); in make2bar_()24455 if (eonsqz > 9.995f) { in make2bar_()24457 do_fio(&c__1, (char *)&eonsqz, (ftnlen)sizeof(real)); in make2bar_()24459 } else if (eonsqz > .995f) { in make2bar_()24461 do_fio(&c__1, (char *)&eonsqz, (ftnlen)sizeof(real)); in make2bar_()24463 } else if (eonsqz > .095f) { in make2bar_()24469 r__1 = eonsqz * 100; in make2bar_()24479 r__1 = eonsqz * 100; in make2bar_()
15942 eonsqz = squez(ib)*feon(space(ib)/squez(ib))15943 if (eonsqz .gt. 9.995) then15944 write(soutq(9:12),'(f4.1)')eonsqz15945 else if (eonsqz .gt. 0.995) then15946 write(soutq(9:12),'(f4.2)')eonsqz15947 else if (eonsqz .gt. 0.095) then15949 write(soutq(11:12),'(i2)')nint(100*eonsqz)15952 write(soutq(12:12),'(i1)')nint(100*eonsqz)