From d1478ea4105efa6ef2c40677d0b4da9c14a7e8f7 Mon Sep 17 00:00:00 2001 From: Niri Govind Date: Fri, 4 Jan 2013 18:07:15 +0000 Subject: [PATCH] response updates from Fredy Aquino --- src/property/CalcPerturbedTDPmat1.F | 8 ++++---- src/property/prop_input.F | 10 ++++++++++ 2 files changed, 14 insertions(+), 4 deletions(-) diff --git a/src/property/CalcPerturbedTDPmat1.F b/src/property/CalcPerturbedTDPmat1.F index 0e5680dbcf..4473dbe92a 100644 --- a/src/property/CalcPerturbedTDPmat1.F +++ b/src/property/CalcPerturbedTDPmat1.F @@ -101,10 +101,10 @@ c assign + and - components for indexing amat: im = 2 endif - if (ga_nodeid().eq.0) then - write(*,1) ip,im,lstatic - 1 format('(ip,im,lstatic)=(',i3,',',i3,',',L1,')') - endif +c if (ga_nodeid().eq.0) then +c write(*,1) ip,im,lstatic +c1 format('(ip,im,lstatic)=(',i3,',',i3,',',L1,')') +c endif do ipm = 1,ncomp call ga_zero(g_pmats(ipm)) diff --git a/src/property/prop_input.F b/src/property/prop_input.F index d2c6fd189a..32242c5416 100644 --- a/src/property/prop_input.F +++ b/src/property/prop_input.F @@ -663,6 +663,16 @@ c ... jochen: write cphf iteration threshold if set by input $ convergence )) $ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR) endif ! aor_conv +c ----- FA-11-30-12: Adding new parameter: aor_damp ---- START + if (aor_damp.eq.0) then ! FA-06-06-12 + if (.not. rtdb_put(rtdb, 'cphf:cphf3write', mt_int, 1, + $ cphf3write)) + $ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR) + if (.not. rtdb_put(rtdb, 'cphf:checkorth', mt_int, 1, + $ checkorth)) + $ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR) + endif ! aor_damp +c ----- FA-11-30-12: Adding new parameter: aor_damp ---- END if (.not. rtdb_put(rtdb, 'aoresponse:gamwidth', mt_dbl, 1, $ gamwidth )) $ call errquit('prop_input: rtdb_put failed', 0, RTDB_ERR)