1
c $Id: int_l1e3ov.F 19696 2010-10-29 16:53:42Z d3y133 $
1
c $Id: int_l1e3ov.F 23339 2013-01-03 17:50:16Z d3y133 $
5
C> \brief Calculates 3-center overlap integrals with labels and without
6
C> zero valued integrals
8
C> This routine computes the 3 center overlap integral:
10
C> ({\mu}{\nu}{\lambda}) = \int_{-\infty}^{\infty} g_{\mu}(X_{\mu},r_{1})g_{\nu}(X_{\nu},r_{1})g_{\lambda}(X_{\lambda},r_{1})dr_{1}
12
C> Integrals that are zero are removed and the remaining integrals are
13
C> identified with appropriate labels.
3
15
c:tex-% this is part of the API Standard Integral routines.
4
16
c:tex-\subsection{int\_l1e3ov}
5
17
c:tex-This routine computes the 3 center overlap integral
34
46
external int_nint_cart
36
48
c:tex-\begin{verbatim}
37
integer i_basis ! [input] basis set handle for ish
38
integer ish ! [input] i shell/contraction
39
integer j_basis ! [input] basis set handle for jsh
40
integer jsh ! [input] j shell/contraction
41
integer k_basis ! [input] basis set handle for ksh
42
integer ksh ! [input] k shell/contraction
43
double precision zerotol ! [input] "zero" tolerance threshold
44
integer lov3 ! [input] length of 3c overlap array
45
double precision OV3(lov3) ! [output] 3c overlap integrals
46
integer ilab(lov3) ! [output] i labels for 3c overlap ints
47
integer jlab(lov3) ! [output] j labels for 3c overlap ints
48
integer klab(lov3) ! [output] k labels for 3c overlap ints
49
integer numov3 ! [output] number of integrals and labels
50
c . . . . . . . . . . . . . . . .! generated and returned
51
integer lscr ! [input] length of scratch array
52
double precision scr(lscr) ! [input] scratch array
49
integer i_basis !< [Input] basis set handle for ish
50
integer ish !< [Input] i shell/contraction
51
integer j_basis !< [Input] basis set handle for jsh
52
integer jsh !< [Input] j shell/contraction
53
integer k_basis !< [Input] basis set handle for ksh
54
integer ksh !< [Input] k shell/contraction
55
double precision zerotol !< [Input] "zero" tolerance threshold
56
integer lov3 !< [Input] length of 3c overlap array
57
double precision OV3(lov3) !< [Output] 3c overlap integrals
58
integer ilab(lov3) !< [Output] i labels for 3c overlap ints
59
integer jlab(lov3) !< [Output] j labels for 3c overlap ints
60
integer klab(lov3) !< [Output] k labels for 3c overlap ints
61
integer numov3 !< [Output] number of integrals and
62
!< labels generated and returned
63
integer lscr !< [Input] length of scratch array
64
double precision scr(lscr) !< [Input] scratch array
53
65
c:tex-\end{verbatim}
55
67
integer ibas, jbas, kbas ! real basis set array index