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

« back to all changes in this revision

Viewing changes to src/lib/libchkpt/irr_labs.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:
28
28
  int i,nirreps;
29
29
  char **irr_labs;
30
30
  psio_address ptr;
31
 
  char *key;
 
31
  char *keyword;
 
32
  keyword = chkpt_build_keyword("Irrep labels");
32
33
 
33
34
  nirreps = chkpt_rd_nirreps();
34
35
 
35
36
  ptr = PSIO_ZERO;
36
37
  irr_labs = (char **)malloc(sizeof(char *)*nirreps);
37
 
  key = chkpt_build_keyword("Irrep labels");
38
38
  for(i=0;i<nirreps;i++) {
39
39
    irr_labs[i] = (char *) malloc(4*sizeof(char));
40
 
    psio_read(PSIF_CHKPT, key, (char *) irr_labs[i],  4*sizeof(char), ptr, &ptr);
 
40
    psio_read(PSIF_CHKPT, keyword, (char *) irr_labs[i],  4*sizeof(char), ptr, &ptr);
41
41
    irr_labs[i][3] = '\0';
42
42
  }
43
 
  free(key);
44
43
 
 
44
  free(keyword);
45
45
  return irr_labs;
46
46
}
47
47
 
62
62
{
63
63
  int i,nirreps;
64
64
  psio_address ptr;
65
 
  char *key;
 
65
  char *keyword;
 
66
  keyword = chkpt_build_keyword("Irrep labels");
66
67
 
67
68
  nirreps = chkpt_rd_nirreps();
68
69
 
69
 
  key = chkpt_build_keyword("Irrep labels");
70
70
  ptr = PSIO_ZERO;
71
71
  for(i=0;i<nirreps;i++)
72
 
    psio_write(PSIF_CHKPT, key, (char *) irr_labs[i], 4*sizeof(char), ptr, &ptr);
73
 
  free(key);
 
72
    psio_write(PSIF_CHKPT, keyword, (char *) irr_labs[i], 4*sizeof(char), ptr, &ptr);
 
73
 
 
74
  free(keyword);
74
75
}
75
76