~ubuntu-branches/ubuntu/vivid/psicode/vivid

« back to all changes in this revision

Viewing changes to src/lib/libchkpt/frzcpi.c

  • Committer: Bazaar Package Importer
  • Author(s): Michael Banck
  • Date: 2008-06-07 16:49:57 UTC
  • mfrom: (2.1.2 hardy)
  • Revision ID: james.westby@ubuntu.com-20080607164957-8pifvb133yjlkagn
Tags: 3.3.0-3
* debian/rules (DEB_MAKE_CHECK_TARGET): Do not abort test suite on
  failures.
* debian/rules (DEB_CONFIGURE_EXTRA_FLAGS): Set ${bindir} to /usr/lib/psi.
* debian/rules (install/psi3): Move psi3 file to /usr/bin.
* debian/patches/07_464867_move_executables.dpatch: New patch, add
  /usr/lib/psi to the $PATH, so that the moved executables are found.
  (closes: #464867)
* debian/patches/00list: Adjusted.

Show diffs side-by-side

added added

removed removed

Lines of Context:
3
3
*/
4
4
 
5
5
#include <stdio.h>
 
6
#include <stdlib.h>
6
7
#include "chkpt.h"
7
8
#include <psifiles.h>
8
9
#include <libciomr/libciomr.h>
26
27
{
27
28
  int nirreps;
28
29
  int *frzcpi;
 
30
  char *keyword;
 
31
  keyword = chkpt_build_keyword("Frozen DOCC per irrep");
29
32
 
30
33
  nirreps = chkpt_rd_nirreps();
31
34
  frzcpi = init_int_array(nirreps);
32
35
 
33
 
  psio_read_entry(PSIF_CHKPT, "::Frozen DOCC per irrep", (char *) frzcpi, 
34
 
                  nirreps*sizeof(int));
 
36
  psio_read_entry(PSIF_CHKPT, keyword, (char *) frzcpi, nirreps*sizeof(int));
35
37
 
 
38
  free(keyword);
36
39
  return frzcpi;
37
40
}
38
41
 
52
55
void chkpt_wt_frzcpi(int *frzcpi)
53
56
{
54
57
  int nirreps;
 
58
  char *keyword;
 
59
  keyword = chkpt_build_keyword("Frozen DOCC per irrep");
55
60
 
56
61
  nirreps = chkpt_rd_nirreps();
57
62
 
58
 
  psio_write_entry(PSIF_CHKPT, "::Frozen DOCC per irrep", (char *) frzcpi, 
59
 
                   nirreps*sizeof(int));
 
63
  psio_write_entry(PSIF_CHKPT, keyword, (char *) frzcpi, nirreps*sizeof(int));
 
64
 
 
65
  free(keyword);
60
66
}