@brief Compute primitive block of overlap and kinetic energy 1e integrals
@param[in] cp shell pair data
@param[in] id current pair of primitives
@param[in] dokinetic if .FALSE.
compute only overlap integrals
@param[inout] sblk block of 1e overlap integrals
@param[inout] tblk block of 1e kinetic energy integrals
@author Vladimir Mironov
@date Sep, 2018 Initial release
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(shpair_t), | intent(in) | :: | cp | |||
integer, | intent(in) | :: | id | |||
logical, | intent(in) | :: | dokinetic | |||
real(kind=REAL64), | intent(inout), | CONTIGUOUS | :: | sblk(:) | ||
real(kind=REAL64), | intent(inout), | CONTIGUOUS | :: | tblk(:) |