Lines Matching refs:iBC
1 subroutine slpwBC(nslpw,ihis,iBCg,BCg,BCtmpg,iBC,BC,wlnorm) argument
5 integer nslpw,ihis,iBCg,iBC local
25 iBC = iBCg-(ixset*8+iyset*16+izset*32)
36 iBC = iBC+8
41 iBC=iBC+16
46 iBC=iBC+32
81 iBC=iBC + 48
88 iBC=iBC+40
95 iBC=iBC+24
124 iBC=iBC+48
131 iBC=iBC+40
138 iBC=iBC+24
148 iBC=iBC+56
176 iBC=iBC+56
202 iBC=iBC+56
221 iBC=iBC+56
263 iBC=iBC+56