Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
cdf_55.c
Go to the documentation of this file.00001 #include "cdflib.h"
00002 double esum(int *mu,double *x)
00003
00004
00005
00006
00007
00008 {
00009 static double esum,w;
00010
00011
00012
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 }