am2canon_shell_order.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_am2canon_shell_order(void)
{
        int *am2can_sh_ord, nshell;
        char *keyword;
        keyword = build_keyword("AM -> canonical shell map"); 

        nshell = rd_nshell();
        am2can_sh_ord = array<int>(nshell);

        psio->read_entry(PSIF_CHKPT, keyword, (char *) am2can_sh_ord,
                nshell*sizeof(int));

        free(keyword);
        return am2can_sh_ord;
}

void Chkpt::wt_am2canon_shell_order(int *am2can_sh_ord)
{
        int nshell;
        char *keyword;
        keyword = build_keyword("AM -> canonical shell map");

        nshell = rd_nshell();

        psio->write_entry(PSIF_CHKPT, keyword, (char *) am2can_sh_ord,
                nshell*sizeof(int));

  free(keyword);
}

extern "C" {
        int *chkpt_rd_am2canon_shell_order(void)
        {
                return _default_chkpt_lib_->rd_am2canon_shell_order();
        }

        void chkpt_wt_am2canon_shell_order(int *am2can_sh_ord)
        {
                _default_chkpt_lib_->wt_am2canon_shell_order(am2can_sh_ord);
        }
}

---