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

« back to all changes in this revision

Viewing changes to src/bin/detcas/ints.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:
31
31
  CalcInfo.twoel_ints = init_array(nbstri * (nbstri + 1) / 2);
32
32
 
33
33
  /* now read them in */
34
 
  if (Params.print_lvl > 3) 
35
 
    fprintf(outfile, "\n\tOne-electron integrals (frozen core operator):\n");
36
34
 
37
 
  iwl_rdone(Params.oei_file, PSIF_MO_FZC, CalcInfo.onel_ints, nbstri, 
38
 
            Params.oei_erase, (Params.print_lvl>3), outfile);
 
35
  if (Params.use_fzc_h) {
 
36
    if (Params.print_lvl > 3) 
 
37
      fprintf(outfile, "\n\tOne-electron integrals (frozen core operator):\n");
 
38
    iwl_rdone(Params.oei_file, PSIF_MO_FZC, CalcInfo.onel_ints, nbstri, 
 
39
              Params.oei_erase, (Params.print_lvl>3), outfile);
 
40
  }
 
41
  else {
 
42
    if (Params.print_lvl > 3) 
 
43
      fprintf(outfile, "\n\tOne-electron integrals (bare):\n");
 
44
    iwl_rdone(Params.oei_file, PSIF_MO_OEI, CalcInfo.onel_ints, nbstri, 
 
45
              Params.oei_erase, (Params.print_lvl>3), outfile);
 
46
  }
39
47
 
40
48
  if (Params.print_lvl > 4) 
41
49
    fprintf(outfile, "\n\tTwo-electron integrals:\n");
42
50
 
43
51
  iwl_rdtwo(Params.tei_file, CalcInfo.twoel_ints, ioff, 
44
 
     CalcInfo.nbfso, Params.filter_ints ? CalcInfo.num_fzc_orbs : 0, 
 
52
     CalcInfo.nmo, Params.filter_ints ? CalcInfo.num_fzc_orbs : 0, 
45
53
     Params.filter_ints ? CalcInfo.num_fzv_orbs : 0, 
46
54
     (Params.print_lvl>4), outfile);
47
55