6
#include <libpsio/psio.h>
12
** This function writes one-electron integrals.
14
** itap = tape to read ints from
15
** label = the PSIO label
16
** ntri = the size of the array (lower triangle)
17
** onel_ints = array to hold the one-electron integrals.
19
** David Sherrill, March 1995
20
** Revised by TDC, June 2001
23
void iwl_wrtone(int itap, char *label, int ntri, double *onel_ints)
25
psio_open(itap, PSIO_OPEN_OLD);
26
psio_write_entry(itap, label, (char *) onel_ints, ntri*sizeof(double));