← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/bin/mp2/relax_opdm.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
http://bugs.debian.org/464867
* 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:
src/bin/mp2/relax_opdm.c
 
1
#include <libdpd/dpd.h>
 
2
#define EXTERN
 
3
#include "globals.h"
 
4
 
 
5
void relax_opdm(void)
 
6
{
 
7
  dpdfile2 D1, D2;
 
8
 
 
9
  if(params.ref == 0) {   
 
10
    dpd_file2_init(&D1, CC_OEI, 0, 0, 1, "DAI");
 
11
    dpd_file2_init(&D2, CC_OEI, 0, 1, 0, "D(orb)(A,I)");
 
12
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
13
    dpd_file2_close(&D2);
 
14
    dpd_file2_close(&D1);
 
15
 
 
16
    dpd_file2_init(&D1, CC_OEI, 0, 0, 1, "DIA");
 
17
    dpd_file2_init(&D2, CC_OEI, 0, 1, 0, "D(orb)(A,I)");
 
18
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
19
    dpd_file2_close(&D2);
 
20
    dpd_file2_close(&D1);
 
21
 
 
22
    dpd_file2_init(&D1, CC_OEI, 0, 0, 1, "Dai");
 
23
    dpd_file2_init(&D2, CC_OEI, 0, 1, 0, "D(orb)(a,i)");
 
24
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
25
    dpd_file2_close(&D2);
 
26
    dpd_file2_close(&D1);
 
27
 
 
28
    dpd_file2_init(&D1, CC_OEI, 0, 0, 1, "Dia");
 
29
    dpd_file2_init(&D2, CC_OEI, 0, 1, 0, "D(orb)(a,i)");
 
30
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
31
    dpd_file2_close(&D2);
 
32
    dpd_file2_close(&D1);
 
33
  }
 
34
  else if(params.ref == 2) {
 
35
 
 
36
    dpd_file2_init(&D1, CC_OEI, 0, 0, 1, "DAI");
 
37
    dpd_file2_init(&D2, CC_OEI, 0, 1, 0, "D(orb)(A,I)");
 
38
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
39
    dpd_file2_close(&D2);
 
40
    dpd_file2_close(&D1);
 
41
 
 
42
    dpd_file2_init(&D1, CC_OEI, 0, 0, 1, "DIA");
 
43
    dpd_file2_init(&D2, CC_OEI, 0, 1, 0, "D(orb)(A,I)");
 
44
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
45
    dpd_file2_close(&D2);
 
46
    dpd_file2_close(&D1);
 
47
 
 
48
    dpd_file2_init(&D1, CC_OEI, 0, 2, 3, "Dai");
 
49
    dpd_file2_init(&D2, CC_OEI, 0, 3, 2, "D(orb)(a,i)");
 
50
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
51
    dpd_file2_close(&D2);
 
52
    dpd_file2_close(&D1);
 
53
 
 
54
    dpd_file2_init(&D1, CC_OEI, 0, 2, 3, "Dia");
 
55
    dpd_file2_init(&D2, CC_OEI, 0, 3, 2, "D(orb)(a,i)");
 
56
    dpd_file2_axpy(&D2, &D1, 1.0, 1);
 
57
    dpd_file2_close(&D2);
 
58
    dpd_file2_close(&D1);
 
59
  }
 
60
}