From 33ffba51e81cd768fb2bf60c10d31046f7bf3d4f Mon Sep 17 00:00:00 2001 From: Bert de Jong Date: Tue, 5 Mar 2013 22:15:59 +0000 Subject: [PATCH] balance parentheses --- src/nwdft/xc/xc_vdw_util.F | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/nwdft/xc/xc_vdw_util.F b/src/nwdft/xc/xc_vdw_util.F index 4bdb6af821..ffe3c598c3 100644 --- a/src/nwdft/xc/xc_vdw_util.F +++ b/src/nwdft/xc/xc_vdw_util.F @@ -258,7 +258,7 @@ c BLYP if(xfac(3).eq.1.0d0.and.cfac(2).eq.1.0d0) then scales6 = 1.40d0 c PBE / PBE96 - else if(xccomb(58) then + else if(xccomb(58)) then scales6 = 0.70d0 c BP86 else if(xfac(3).eq.1.0d0.and.cfac(4).eq.1.d0) then @@ -281,7 +281,7 @@ c BLYP if(xfac(3).eq.1.0d0.and.cfac(2).eq.1.0d0) then scales6 = 1.20d0 c PBE / PBE96 - else if(xccomb(58) then + else if(xccomb(58)) then scales6 = 0.75d0 c TPSS else if(xfac(21).eq.1.0d0.and.cfac(27).eq.1.0d0) then