comp-chem/NWChem
1
0
Fork 0
mirror of https://github.com/nwchemgit/nwchem.git synced 2026-07-28 14:15:30 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 1

keep compiler quiet

Browse source
This commit is contained in:
edoapra 2022-03-09 16:28:04 -08:00
parent 545142de96
commit a03cbb77d9
No known key found for this signature in database
GPG key ID: 472C4EBB4F3AEDFA
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/solvation/cosmo_thomson.F
View file

@ -255,7 +255,7 @@ c of a unit sphere. Spherical coordinates are used.
enddo
call ga_dgop(0,energy,1,'+')
call ga_dgop(0,grad,2*n,'+')
call ga_dgop(0,grad(1),2*n,'+')
call dscal(2*n,0.5d0,grad,1)
end subroutine