Doxygen Source Code Documentation
cdf_55.c File Reference
#include "cdflib.h"Go to the source code of this file.
Functions | |
| double | esum (int *mu, double *x) |
Function Documentation
|
||||||||||||
|
Definition at line 2 of file cdf_55.c. References esum(). Referenced by brcmp1(), and esum().
00008 {
00009 static double esum,w;
00010 /*
00011 ..
00012 .. Executable Statements ..
00013 */
00014 if(*x > 0.0e0) goto S10;
00015 if(*mu < 0) goto S20;
00016 w = (double)*mu+*x;
00017 if(w > 0.0e0) goto S20;
00018 esum = exp(w);
00019 return esum;
00020 S10:
00021 if(*mu > 0) goto S20;
00022 w = (double)*mu+*x;
00023 if(w < 0.0e0) goto S20;
00024 esum = exp(w);
00025 return esum;
00026 S20:
00027 w = *mu;
00028 esum = exp(w)*exp(*x);
00029 return esum;
00030 } /* END */
|
