6
#include <libpsio/psio.h>
12
void IWL::write_one(PSIO *psio, int itap, const char *label, int ntri, double *onel_ints)
14
psio->open(itap, PSIO_OPEN_OLD);
15
psio->write_entry(itap, label, (char*)onel_ints, ntri*sizeof(double));
24
** This function writes one-electron integrals.
26
** itap = tape to read ints from
27
** label = the PSIO label
28
** ntri = the size of the array (lower triangle)
29
** onel_ints = array to hold the one-electron integrals.
31
** David Sherrill, March 1995
32
** Revised by TDC, June 2001
35
void iwl_wrtone(int itap, const char *label, int ntri, double *onel_ints)
37
psio_open(itap, PSIO_OPEN_OLD);
38
psio_write_entry(itap, label, (char *) onel_ints, ntri*sizeof(double));