3
\brief Enter brief description of file here
6
#include <libciomr/libciomr.h>
7
#include <libiwl/iwl.h>
14
namespace psi { namespace ccdensity {
16
/* doesn't work yet */
18
void add_core_UHF(struct iwlbuf *OutBuf)
30
for(p=nfzc; p < (nmo - nfzv); p++) {
31
for(q=nfzc; q < (nmo - nfzv); q++) {
32
value = moinfo.opdm_a[p][q];
33
for(m=0; m < nfzc; m++) {
35
iwl_buf_wrt_val(OutBuf, p, q, m, m,value,0,outfile,0);
36
iwl_buf_wrt_val(OutBuf, p, m, m, q,-0.5*value,0,outfile,0);
44
}} // namespace psi::ccdensity