~ubuntu-branches/ubuntu/intrepid/psicode/intrepid

« back to all changes in this revision

Viewing changes to src/bin/ccresponse/print_X.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:
 
1
#include <stdio.h>
 
2
#include <string.h>
 
3
#include <libdpd/dpd.h>
 
4
#define EXTERN
 
5
#include "globals.h"
 
6
 
 
7
void print_X(char *pert, char *cart, int irrep, double omega)
 
8
{
 
9
  dpdfile2 X1;
 
10
  dpdbuf4 X2;
 
11
  char lbl[32];
 
12
 
 
13
  sprintf(lbl, "X_%s_%1s_IA (%5.3f)", pert, cart, omega);
 
14
  dpd_file2_init(&X1, CC_OEI, irrep, 0, 1, lbl);
 
15
  dpd_file2_print(&X1, outfile);
 
16
  dpd_file2_close(&X1);
 
17
  sprintf(lbl, "X_%s_%1s_IjAb (%5.3f)", pert, cart, omega);
 
18
  dpd_buf4_init(&X2, CC_LR, irrep, 0, 5, 0, 5, 0, lbl);
 
19
  dpd_buf4_print(&X2, outfile, 1);
 
20
  dpd_buf4_close(&X2);
 
21
}