← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/lib/libr12/emit_vrr_t1_build.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/lib/libr12/emit_vrr_t1_build.c
2
2
#include <stdio.h>
3
3
#include <stdlib.h>
4
4
#include "build_libr12.h"
 
5
#include <libint/constants.h>
5
6
 
6
7
extern FILE *outfile, *vrr_header;
7
8
extern Libr12Params_t Params;
8
9
 
9
10
extern void punt(char *);
10
 
static int hash(int a[2][3], int b[2]);
11
11
static void declare_localv(int la, FILE *code);
12
12
static void define_localv(int la, FILE *code);
13
13
 
36
36
  int k1max;
37
37
  int split,num_subfunctions,subbatch_length;
38
38
  int curr_count,curr_subfunction;
39
 
  static int io[] = {0,1,3,6,10,15,21,28,36,45,55,66,78,91,105,120,136,153};
40
 
  const char am_letter[] = "0pdfghiklmnoqrtuvwxyz";
41
 
  static const char *number[] = {"zero","one","two","three","four","five","six","seven","eight","nine","ten","eleven",
42
 
                               "twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen","twenty"};
43
39
  static const char *k1_suff = "zboz";
44
40
  char *code_name;
45
41
  char *function_name;
220
216
}
221
217
 
222
218
 
223
 
/*----------------------------------------------------------------------------------
224
 
  hash(a,b) returns a number of the (a[0] 0 | a[1] 0) type integral within a class.
225
 
  a contains x y and z exponents of functions on centers A and C, and b contains
226
 
  their angular momenta
227
 
 ----------------------------------------------------------------------------------*/
228
 
 
229
 
int hash(a, b)
230
 
  int a[2][3];
231
 
  int b[2];
232
 
{
233
 
  int c[2] = {0,0};
234
 
  int i;
235
 
  static int io[] = {0,1,3,6,10,15,21,28,36,45,55,66,78,91,105,120,136,153};
236
 
 
237
 
  if(b[0]){
238
 
    i=b[0]-a[0][0];
239
 
    c[0]=i+io[i]-a[0][1];
240
 
    }
241
 
  if(b[1]){
242
 
    i=b[1]-a[1][0];
243
 
    c[1]=i+io[i]-a[1][1];
244
 
    }
245
 
 
246
 
  return c[0]*io[b[1]+1]+c[1];
247
 
}
248
 
 
249
 
 
250
219
void declare_localv(int la, FILE *code)
251
220
{
252
221
  int i;