From c1a6002d8cf2f4f80ce728c528d10794e276c9c1 Mon Sep 17 00:00:00 2001 From: Emmanuel Giner Date: Wed, 19 Dec 2018 14:58:52 +0100 Subject: [PATCH] rm slave_cipsi --- src/nuclei/nuclei.irp.f | 9 --------- 1 file changed, 9 deletions(-) diff --git a/src/nuclei/nuclei.irp.f b/src/nuclei/nuclei.irp.f index fa9790a9..197cc1d0 100644 --- a/src/nuclei/nuclei.irp.f +++ b/src/nuclei/nuclei.irp.f @@ -110,7 +110,6 @@ END_PROVIDER &BEGIN_PROVIDER [ double precision, nucl_dist_vec_y, (nucl_num,nucl_num) ] &BEGIN_PROVIDER [ double precision, nucl_dist_vec_z, (nucl_num,nucl_num) ] &BEGIN_PROVIDER [ double precision, nucl_dist, (nucl_num,nucl_num) ] -&BEGIN_PROVIDER [ double precision, nucl_dist_inv, (nucl_num,nucl_num) ] implicit none BEGIN_DOC ! nucl_dist : Nucleus-nucleus distances @@ -138,14 +137,6 @@ END_PROVIDER ASSERT (nucl_dist(ie1,ie2) > 0.d0) enddo enddo - do ie1 = 1, nucl_num - do ie2 = 1, nucl_num - if(ie1 == ie2)cycle - nucl_dist_inv(ie2,ie1) = 1.d0/nucl_dist(ie2,ie1) - enddo - enddo - - END_PROVIDER BEGIN_PROVIDER [ double precision, nuclear_repulsion ]