mirror of
https://github.com/LCPQ/quantum_package
synced 2024-10-19 22:41:48 +02:00
rm slave_cipsi
This commit is contained in:
parent
de690db59c
commit
c1a6002d8c
@ -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 ]
|
||||
|
Loading…
Reference in New Issue
Block a user