← Back to branch summary

~ubuntu-branches/ubuntu/quantal/psicode/quantal

« back to all changes in this revision

Viewing changes to src/bin/ccenergy/t2.c

  • Committer: Bazaar Package Importer
  • Author(s): Michael Banck
  • Date: 2006-09-10 14:01:33 UTC
  • Revision ID: james.westby@ubuntu.com-20060910140133-ib2j86trekykfsfv
Tags: upstream-3.2.3
Import upstream version 3.2.3

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/bin/ccenergy/t2.c
 
1
#include <stdio.h>
 
2
#include <stdlib.h>
 
3
#include <libdpd/dpd.h>
 
4
#define EXTERN
 
5
#include "globals.h"
 
6
 
 
7
void DT2(void), FaetT2(void), FmitT2(void), WmnijT2(void), WmbejT2(void);
 
8
void BT2(void), ZT2(void), FT2(void), ET2(void), CT2(void), dijabT2(void);
 
9
void BT2_AO(void);
 
10
void status(char *, FILE *);
 
11
 
 
12
void t2_build(void)
 
13
{
 
14
 
 
15
  DT2();
 
16
  if(params.print & 2) status("<ij||ab> -> T2", outfile);
 
17
 
 
18
  FaetT2();
 
19
  FmitT2();
 
20
  if(params.print & 2) status("F -> T2", outfile);
 
21
 
 
22
  timer_on("WmnijT2", outfile);
 
23
  WmnijT2();
 
24
  if(params.print & 2) status("Wmnij -> T2", outfile);
 
25
  timer_off("WmnijT2", outfile);
 
26
 
 
27
  timer_on("BT2", outfile);
 
28
  if(!strcmp(params.aobasis,"DISK") || !strcmp(params.aobasis,"DIRECT"))
 
29
      BT2_AO();
 
30
  else BT2();
 
31
  if(params.print & 2) status("<ab||cd> -> T2", outfile);
 
32
  timer_off("BT2", outfile);
 
33
 
 
34
  timer_on("ZT2", outfile);
 
35
  ZT2();
 
36
  if(params.print & 2) status("Z -> T2", outfile);
 
37
  timer_off("ZT2", outfile);
 
38
 
 
39
  timer_on("FT2", outfile);
 
40
  FT2();
 
41
  if(params.print & 2) status("<ia||bc> -> T2", outfile);
 
42
  timer_off("FT2", outfile);
 
43
 
 
44
  timer_on("ET2", outfile);
 
45
  ET2();
 
46
  if(params.print & 2) status("<ij||ka> -> T2", outfile);
 
47
  timer_off("ET2", outfile);
 
48
 
 
49
  timer_on("WmbejT2", outfile);
 
50
  WmbejT2();
 
51
  if(params.print & 2) status("Wmbej -> T2", outfile);
 
52
  timer_off("WmbejT2", outfile);
 
53
 
 
54
  timer_on("CT2", outfile);
 
55
  CT2();
 
56
  if(params.print & 2) status("<ia||jb> -> T2", outfile);
 
57
  timer_off("CT2", outfile);
 
58
 
 
59
  dijabT2();
 
60
}