From dcd5a1274b005c330cdf84d8ea21da487f55b33a Mon Sep 17 00:00:00 2001 From: Anthony Scemama Date: Mon, 2 Jun 2014 21:47:13 +0200 Subject: [PATCH] Previous commit broke SingleRefMethod --- src/SingleRefMethod/generators.irp.f | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/src/SingleRefMethod/generators.irp.f b/src/SingleRefMethod/generators.irp.f index 0edd6175..b12a681e 100644 --- a/src/SingleRefMethod/generators.irp.f +++ b/src/SingleRefMethod/generators.irp.f @@ -40,4 +40,10 @@ BEGIN_PROVIDER [ integer(bit_kind), psi_generators, (N_int,2,psi_det_size) ] END_PROVIDER - +BEGIN_PROVIDER [ double precision, select_max, (1) ] + implicit none + BEGIN_DOC + ! Memo to skip useless selectors + END_DOC + select_max(1) = huge(1.d0) +END_PROVIDER