Changeset f2ce71c for pcp/src

Timestamp:

Apr 21, 2008, 2:19:24 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

6c8ee7

Parents:

e6a122

git-author:

Frederik Heber <heber@…> (04/18/08 15:27:00)

git-committer:

Frederik Heber <heber@…> (04/21/08 14:19:24)

Message:

CalcD2f(): 1. instead of 1

File:

• pcp/src/excor.c (modified) (1 diff)

pcp/src/excor.c

@@ -450 +450 @@
   //if (1-fabs(zeta) < EC->epsilon0) { fprintf(stderr,"CalcD2f: zeta = %lg\n",zeta); return(0); }
   //return((4./9.)*(pow(zeta+1.,-2./3.)+pow(1.-zeta,-2./3.))/(EC->fac243-2.));  // formula checked (16.5.06)
-  return((4./9.)*(1/cbrt((zeta+1.)*(zeta+1.))+1/cbrt((1.-zeta)*(1.-zeta)))/(EC->fac243-2.));  // formula checked (16.5.06)
+  return((4./9.)*(1./cbrt((zeta+1.)*(zeta+1.))+1./cbrt((1.-zeta)*(1.-zeta)))/(EC->fac243-2.));  // formula checked (16.5.06)
 }