@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(:) |