7
#include <libciomr/libciomr.h>
13
void IWL::write_two(PSIO *psio, int itap, int nbfso, double *ints, int *ioff,
14
double toler, int printflg, FILE *outfile)
16
IWL Buf(psio, itap, toler, 0, 0);
17
Buf.write_all(nbfso, ints, ioff, printflg, outfile);
26
** Write two electron ints to output in lexical order
27
** The "iwl" stands for "integrals with labels," and this is the proposed
28
** new standard for storing two-electron integrals and their (absolute)
29
** orbital labels. This function closes the output file when finished.
31
** \param itap = unit to write to
32
** \param nbfso = number of basis functions in symmetry orbitals
33
** \param ints = two electron integrals
34
** \param ioff = the old ioff array for lexical ordering
35
** \param printflg = print flag (1 or 0)
36
** \param outfile = output file
38
** Revised 6/27/96 by CDS
41
void iwl_wrttwo(int itap, int nbfso, double *ints, int *ioff, double toler,
42
int printflg, FILE *outfile)
46
iwl_buf_init(&Buf, itap, toler, 0, 0);
47
iwl_buf_wrt_all(&Buf, nbfso, ints, ioff, printflg, outfile);
48
iwl_buf_flush(&Buf, 1);
49
iwl_buf_close(&Buf, 1);