/*Translated by FOR_C, v3.4.2 (-), on 07/09/115 at 08:32:08 */
/*FOR_C Options SET: ftn=u io=c no=p op=aimnv s=dbov str=l x=f - prototypes */
#include <math.h>
#include "fcrt.h"
#include "dcdpoi.h"
#include <stdlib.h>
void /*FUNCTION*/ dcdpoi(
long n,
double lamda,
double *p,
double *q,
long *ierr)
{
 
	/* Copyright (c) 1996 California Institute of Technology, Pasadena, CA.
	 * ALL RIGHTS RESERVED.
	 * Based on Government Sponsored Research NAS7-03001.
	 *>> 1994-10-20 DCDPOI Krogh  Changes to use M77CON
	 *>> 1994-08-05 DCDPOI WV Snyder
	 *
	 *     Compute Q = exp(-lamda) sum (lamda**j/j!,j=0..n-1) and
	 *             P = exp(-lamda) sum (lamda**j/j!,j=n..infinity).
	 *
	 *     These functions are given by the incomplete gamma ratios
	 *     P(n,lamda) and Q(n,lamda).
	 * */
	/*--D replaces "?": ?CDPOI, ?gami
	 * */
	dgami( (double)( n ), lamda, p, q, ierr );
	return;
} /* end of function */