← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/bin/cclambda/cc2_L2.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/cclambda/cc2_L2.c
 
1
#include <stdio.h>
 
2
#include <libdpd/dpd.h>
 
3
#define EXTERN
 
4
#include "globals.h"
 
5
 
 
6
void DL2(struct L_Params L_params);
 
7
void cc2_faeL2(int L_irr);
 
8
void cc2_fmiL2(int L_irr);
 
9
void WijmnL2(int L_irr);
 
10
void WefabL2(int L_irr);
 
11
void WijmbL2(int L_irr);
 
12
void L1FL2(int L_irr);
 
13
void dijabL2(int L_irr);
 
14
 
 
15
void BL2_AO(int L_irr);
 
16
void status(char *, FILE *);
 
17
 
 
18
void cc2_L2_build(struct L_Params L_params) {
 
19
  int L_irr;
 
20
  L_irr = L_params.irrep;
 
21
 
 
22
  DL2(L_params);
 
23
  if(params.print & 2) status("<ij||ab> -> L2", outfile);
 
24
 
 
25
#ifdef EOM_DEBUG
 
26
  check_sum("DL2", L_irr);
 
27
#endif
 
28
 
 
29
  cc2_faeL2(L_irr);
 
30
 
 
31
#ifdef EOM_DEBUG
 
32
  check_sum("FaeL2", L_irr);
 
33
#endif
 
34
 
 
35
  cc2_fmiL2(L_irr);
 
36
 
 
37
#ifdef EOM_DEBUG
 
38
  check_sum("FmiL2", L_irr);
 
39
#endif
 
40
  if(params.print & 2) status("F -> L2", outfile);
 
41
 
 
42
  WijmbL2(L_irr);
 
43
 
 
44
#ifdef EOM_DEBUG
 
45
  check_sum("WmnieL2", L_irr);
 
46
#endif
 
47
  if(params.print & 2) status("Wmnie -> L2", outfile);
 
48
 
 
49
  WejabL2(L_irr);
 
50
 
 
51
#ifdef EOM_DEBUG
 
52
  check_sum("WejabL2", L_irr);
 
53
#endif
 
54
  if(params.print & 2) status("Wamef -> L2", outfile);
 
55
 
 
56
  L1FL2(L_irr);
 
57
 
 
58
#ifdef EOM_DEBUG
 
59
  check_sum("L1FL2", L_irr);
 
60
#endif
 
61
  if(params.print & 2) status("L1*F -> L2", outfile);
 
62
 
 
63
  dijabL2(L_irr);
 
64
 
 
65
#ifdef EOM_DEBUG
 
66
  check_sum("after D2s", L_irr);
 
67
#endif
 
68
  if(params.print & 2) status("L2 amplitudes", outfile);
 
69
}
 
70