From a03cbb77d9c60df16692599efcdc5cb6a82c4f8a Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Wed, 9 Mar 2022 16:28:04 -0800
Subject: [PATCH] keep compiler quiet

---
 src/solvation/cosmo_thomson.F | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/solvation/cosmo_thomson.F b/src/solvation/cosmo_thomson.F
index 6ac2a80066..a10f5452c2 100644
--- a/src/solvation/cosmo_thomson.F
+++ b/src/solvation/cosmo_thomson.F
@@ -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