3
#include <libipv1/ip_lib.h>
4
#include <libciomr/libciomr.h>
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);
17
fndcor(&(params.memory),infile,outfile);
20
errcod = ip_data("CACHELEV", "%d", &(params.cachelev),0);
23
errcod = ip_boolean("AO_BASIS", &(params.aobasis),0);
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");