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

« back to all changes in this revision

Viewing changes to src/bin/cclambda/spinad_amps.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:
 
1
#include <stdio.h>
 
2
#include <stdlib.h>
 
3
#include <libdpd/dpd.h>
 
4
#include <ccfiles.h>
 
5
#define EXTERN
 
6
#include "globals.h"
 
7
 
 
8
/* spinad_amps(): For RHF references, build the T2 AA and BB amplitudes from 
 
9
** the existing T2 AB amplitudes and copy the existing T1 A amplitudes 
 
10
** into B.
 
11
**
 
12
** T2(IJ,AB) = T2(ij,ab) = T2(Ij,Ab) - T2(Ij,Ba)
 
13
**
 
14
** T1(I,A) = T1(i,a)
 
15
**
 
16
*/
 
17
 
 
18
void spinad_amps(void)
 
19
{
 
20
  dpdfile2 T1;
 
21
  dpdbuf4 T2;
 
22
 
 
23
  if(params.ref == 0) { /** RHF **/
 
24
 
 
25
    dpd_file2_init(&T1, CC_LAMBDA, 0, 0, 1, "LIA");
 
26
    dpd_file2_copy(&T1, CC_LAMBDA, "Lia");
 
27
    dpd_file2_close(&T1);
 
28
 
 
29
    dpd_buf4_init(&T2, CC_LAMBDA, 0, 2, 7, 0, 5, 1, "LIjAb");
 
30
    dpd_buf4_copy(&T2, CC_LAMBDA, "LIJAB");
 
31
    dpd_buf4_copy(&T2, CC_LAMBDA, "Lijab");
 
32
    dpd_buf4_close(&T2);
 
33
 
 
34
  }
 
35
}