Lines Matching refs:irankCoupled
603 integer numSrfs, irankCoupled, srfIdList(0:MAXSURF) local
613 irankCoupled = 0
615 irankCoupled=k
617 qsurfProc(irankCoupled) = qsurfProc(irankCoupled)
671 integer irankCoupled local
687 irankCoupled = 0
689 irankCoupled=k
690 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)
718 irankCoupled = 0
720 irankCoupled=k
721 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)
748 irankCoupled = 0
750 irankCoupled=k
751 res(i,1:3)=res(i,1:3) + p(irankCoupled)*NABI(i,1:3)