comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-21 06:25:21 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

Update cpsp_stress.F

Browse source 
Bug fix for reading in semicore stess density block.
This commit is contained in:
Eric Bylaska 2019-12-14 23:07:03 -08:00 • committed by GitHub
parent ea61168ce9
commit a51d864675
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/nwpw/band/lib/cpsp/cpsp_stress.F
View file

@ -643,7 +643,7 @@ cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
* **** read in semicore density block ****
if (semicore) then
!write(*,*) "reading in semicore block" !debug
call C3dB_r_Read(1,5,tmp2,tmp,-1,-1)
call C3dB_r_Read(1,5,tmp2,tmp,-1,-1,.true.)
call Cram_r_pack(0,tmp2)
call Cram_r_Copy(0,tmp2,dncore)
end if