Lines Matching refs:rwork1

380   REAL   (DP), ALLOCATABLE :: rwork1(:)  local
387   ALLOCATE(rwork1 (nbnd) )
412            rwork1(:) = rproj0 (nwfc1 + 1,:)
414            rwork1(:) = 0.d0
416               rwork1(:)=rwork1(:)+d1(m1,m,isym)*rproj0(nwfc1+m1,:)
419            rwork1(:) = 0.d0
421               rwork1(:)=rwork1(:)+d2(m1,m,isym)*rproj0(nwfc1+m1,:)
424            rwork1(:) = 0.d0
426               rwork1(:)=rwork1(:)+d3(m1,m,isym)*rproj0(nwfc1+m1,:)
431                 rwork1(ibnd) * rwork1(ibnd) / nsym
436   DEALLOCATE(rwork1 )
1004   REAL   (DP), ALLOCATABLE ::roverlap(:,:), rwork1(:),rproj0(:,:)  local