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

« back to all changes in this revision

Viewing changes to src/bin/cceom-d/get_params.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 <math.h>
3
 
#include <libipv1/ip_lib.h>
4
 
#include <libciomr/libciomr.h>
5
 
#include <psifiles.h>
6
 
#define EXTERN
7
 
#include "globals.h"
8
 
 
9
 
void get_params()
10
 
{
11
 
  int errcod, tol;
12
 
 
13
 
  params.tolerance = 1e-14;
14
 
  errcod = ip_data("TOLERANCE","%d",&(tol),0);
15
 
  if(errcod == IPE_OK) params.tolerance = 1.0*pow(10.0,(double) -tol);
16
 
 
17
 
  fndcor(&(params.memory),infile,outfile);
18
 
 
19
 
  params.cachelev = 2;
20
 
  errcod = ip_data("CACHELEV", "%d", &(params.cachelev),0);
21
 
 
22
 
  params.aobasis = 0;
23
 
  errcod = ip_boolean("AO_BASIS", &(params.aobasis),0);
24
 
  
25
 
  fprintf(outfile, "\n\tInput parameters:\n");
26
 
  fprintf(outfile, "\t-----------------\n");
27
 
  fprintf(outfile, "\tTolerance    = %3.1e\n", params.tolerance);
28
 
  fprintf(outfile, "\tCache Level  =    %1d\n", params.cachelev);
29
 
  fprintf(outfile, "\tAO Basis        =     %s\n", 
30
 
          params.aobasis ? "Yes" : "No");
31
 
  fprintf(outfile, "\n");
32
 
}
33