Searched refs:isssb (Results 1 – 2 of 2) sorted by relevance
4620 static integer isssb; in beamstrt_() local5139 for (isssb = 1; isssb <= i__1; ++isssb) { in beamstrt_()5140 comxtup_1.lev1ssb[commvl_1.ivx + isssb * 24 - 25] += iadj; in beamstrt_()5156 isssb = 0; in beamstrt_()5163 ++isssb; in beamstrt_()5164 comxtup_1.lev1ssb[commvl_1.ivx + isssb * 24 - 25] += in beamstrt_()
2875 do 2 isssb = 1 , nssb(ivx)2876 lev1ssb(ivx,isssb) = lev1ssb(ivx,isssb)+iadj2887 isssb = 02892 isssb = isssb+12893 lev1ssb(ivx,isssb) = 2894 * lev1ssb(ivx,isssb)+islope(ivx)*xelsk(inb)/slfac