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_y, (nucl_num,nucl_num) ]
|
||||||
&BEGIN_PROVIDER [ double precision, nucl_dist_vec_z, (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, (nucl_num,nucl_num) ]
|
||||||
&BEGIN_PROVIDER [ double precision, nucl_dist_inv, (nucl_num,nucl_num) ]
|
|
||||||
implicit none
|
implicit none
|
||||||
BEGIN_DOC
|
BEGIN_DOC
|
||||||
! nucl_dist : Nucleus-nucleus distances
|
! nucl_dist : Nucleus-nucleus distances
|
||||||
@ -138,14 +137,6 @@ END_PROVIDER
|
|||||||
ASSERT (nucl_dist(ie1,ie2) > 0.d0)
|
ASSERT (nucl_dist(ie1,ie2) > 0.d0)
|
||||||
enddo
|
enddo
|
||||||
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
|
END_PROVIDER
|
||||||
|
|
||||||
BEGIN_PROVIDER [ double precision, nuclear_repulsion ]
|
BEGIN_PROVIDER [ double precision, nuclear_repulsion ]
|
||||||
|
Loading…
Reference in New Issue
Block a user