Searched refs:HopRCR (Results 1 – 4 of 4) sorted by relevance
127 allocate (HopRCR(0:MAXSURF)) !for H operator contribution
53 real*8, allocatable :: QHistRCR(:,:), HopRCR(:) !calc variable
737 p(j)= p(j) - HopRCR(j) ! H operator contribution
1228 HopRCR=zero1230 HopRCR(1:numSrfs) = RCRic(1:numSrfs)