int j;
int res;
char nameconstant[CALCEPH_MAX_CONSTANTNAME];
double valueconstant;
res = calceph_sopen("example1.dat");
if (res)
{
for (j=1; j<=calceph_sgetconstantcount(); j++)
{
calceph_sgetconstantindex(j, nameconstant, &valueconstant);
printf("'%s'\t= %23.16E\n", nameconstant, valueconstant);
}
calceph_sclose();
}