Lines Matching refs:Rc
60 3 mD(:,:), mL(:), Gt(:,:), Rm(:,:), Rc(:), Rmi(:,:), Rci(:) local
65 ALLOCATE(Rm(nsd,nNo), Rc(nNo), Rmi(nsd,nNo), Rci(nNo),
75 Rc = Rci
77 2 + NORMS( mynNo, commu, Rc)**2D0)
101 P(:,i) = Rc - P(:,i)
146 Rc = Rci - xB(1)*MP(:,1)
149 Rc = Rc - xB(j)*MP(:,j)
157 Rc = Rci - xB(1)*MP(:,1)
159 Rc = Rc - xB(j)*MP(:,j)
162 ls%Resc = NINT(1D2*(NORMS(mynNo, commu, Rc)/
182 DEALLOCATE (Rm, Rc, Rmi, Rci, U, P, MU, MP, A, B, mK, mD, mG, mL,