Searched refs:beamon1 (Results 1 – 2 of 2) sorted by relevance
24192 static logical stemup, beamon1[24]; in make2bar_() local24319 beamon1[commvl_1.ivx - 1] = FALSE_; in make2bar_()24557 beamon1[commvl_1.ivx - 1] = TRUE_; in make2bar_()24564 if (beamon1[commvl_1.ivx - 1]) { in make2bar_()24587 if (beamon1[commvl_1.ivx - 1] && all_1.ibm2[commvl_1.ivx + ibmcnt1[ in make2bar_()24589 beamon1[commvl_1.ivx - 1] = FALSE_; in make2bar_()
15803 * lowdot,flipend,iscwr,isdotted,beamon1(nm)15873 beamon1(ivx) = .false.15997 beamon1(ivx)=.true.16004 if (beamon1(ivx)) then 16018 if (beamon1(ivx) .and. ibm2(ivx,ibmcnt1(ivx)).eq.ip) then16019 beamon1(ivx) = .false.