atom_dummy.cc

Go to the documentation of this file.

#include <stdlib.h>
#include <psifiles.h>
#include <libpsio/psio.hpp>
extern "C" {
#include <libchkpt/chkpt.h>
}
#include <libchkpt/chkpt.hpp>

using namespace psi;

int* Chkpt::rd_atom_dummy(void)
{
        int num_allatoms;
        int *atom_dummy;
        char *keyword;
        keyword = build_keyword("Dummy atom flags");

        num_allatoms = rd_nallatom();
        atom_dummy = (int *) malloc(sizeof(int)*num_allatoms);

        psio->read_entry(PSIF_CHKPT, keyword, (char *) atom_dummy, 
                num_allatoms*sizeof(int));

        free(keyword);
        return atom_dummy;
}

void Chkpt::wt_atom_dummy(int* atom_dummy)
{
        int num_allatoms = rd_nallatom();
        char *keyword;
        keyword = build_keyword("Dummy atom flags");

        psio->write_entry(PSIF_CHKPT, keyword, (char *) atom_dummy, 
                num_allatoms*sizeof(int));

        free(keyword);
}

extern "C" {
        int* chkpt_rd_atom_dummy(void)
        {
                return _default_chkpt_lib_->rd_atom_dummy();
        }


        void chkpt_wt_atom_dummy(int* atom_dummy)
        {
                _default_chkpt_lib_->wt_atom_dummy(atom_dummy);
        }
}

---