Skip to content

AFNI/NIfTI Server

Sections
Personal tools
You are here: Home » AFNI » Documentation
 

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                     EVALUATION OF EXP(MU + X)
00006 -----------------------------------------------------------------------
00007 */
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 */
 
Powered by Plone

This site conforms to the following standards: