Searched refs:iflop (Results 1 – 6 of 6) sorted by relevance
1132 common /flops/ iflop(20) local1308 common /flops/ iflop(20) local
1954 common /flops/ iflop(20) local
1132 common /flops/ iflop(20)1308 common /flops/ iflop(20)
1954 common /flops/ iflop(20)
4055 iflop = 0; in beamid_()4058 iflop = -iud; in beamid_()4060 iup = iud + (iflop << 1); in beamid_()4063 iflop = 0; in beamid_()4065 iflop = iup; in beamid_()4611 static integer ipmid, iflop; in beamstrt_() local4729 iflop = 0; in beamstrt_()4731 iflop = -iud; in beamstrt_()4733 iup = iud + (iflop << 1); in beamstrt_()4739 iflop = 0; in beamstrt_()[all …]
2195 iflop = 02197 iup = iud+2*iflop2200 iflop = 02201 if (iud*iup .lt. 0) iflop = iup2633 iflop = 02635 iup = iud+2*iflop2641 iflop = 02642 if (iud*iup .lt. 0) iflop = iup2665 call putxtn(mprint,iflop,multb,iud,wheadpt,22223 if (iflop.ne.0 .and. multb.gt.0) then[all …]