6
#include <libciomr/libciomr.h>
12
void IWL::flush(int lastbuf)
24
while (idx_ < ints_per_buf_) {
33
if (lastbuf) lastbuf_ = 1;
45
** \param Buf To be flushed buffer
46
** \param lastbuf Flag for the last buffer
48
** Flush an Integrals With Labels Buffer
49
** All flushing should be done through this routine!
50
** David Sherrill, March 1995
53
void iwl_buf_flush(struct iwlbuf *Buf, int lastbuf)
59
Buf->inbuf = Buf->idx;
65
while (Buf->idx < Buf->ints_per_buf) {
70
valptr[Buf->idx] = 0.0;
74
if (lastbuf) Buf->lastbuf = 1;
75
else Buf->lastbuf = 0;
b'\\ No newline at end of file'