/* pow__di.c -- translated by f2c (version 19950602).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "Data_f2c.h"  
#ifdef WNT
#include <MathBase.h>
#else 
#define  __MathBase_API
#endif

/* Subroutine */ 
__MathBase_API doublereal  pow__di (x, 
		    n)

  doublereal * x ;
  integer    * n ; 
{

  register integer ii ;
  doublereal result ;
  integer    absolute ;
  result = 1.0e0 ;
  if ( *n > 0 ) {absolute = *n;}
  else {absolute = -*n;}
    /* System generated locals */
  for(ii = 0 ; ii < absolute ; ii++) {
      result *=  *x ;
   }
  if (*n < 0) {
   result = 1.0e0 / result ;
 }
 return result ;
}
   


/* < */
/* **NOTICE */
/*  THIS SOFTWARE IS THE PROPERTY OF CISIGRAPH. */
/*  THIS CODE MUST NOT BE DISTRIBUTED OR COPIED WITHOUT THE PRIOR */
/*  WRITTEN PERMISSION OF CISIGRAPH AND IS ONLY TO BE USED ON THE */
/*  SITE WHERE IT IS INSTALLED BY CISIGRAPH */
/* **NOTICE */

/* ********************************************************************** 
*/

/*     FONCTION : */
/*     ---------- */
/*        Calcul la fonction puissance entiere pas forcement de la maniere
	  la plus efficace ; 
*/

/*     MOTS CLES : */
/*     ----------- */
/*       PUISSANCE */

/*     ARGUMENTS D'ENTREE : */
/*     ------------------ */
/*        X      :  argument de X**N */
/*        N      :  puissance */

/*     ARGUMENTS DE SORTIE : */
/*     ------------------- */
/*        retourne X**N */

/*     COMMONS UTILISES   : */
/*     ---------------- */

/*     REFERENCES APPELEES   : */
/*     ----------------------- */

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */

/* $    HISTORIQUE DES MODIFICATIONS   : */
/*     -------------------------------- */
/*     16-10-95 : XAB ; Creation */
/* > */
/* ***********************************************************************/
