MINICERN/mathlib/gen/divon/fun.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/04/01 15:03:25  mclareni
   6 * Mathlib gen
   7 *
   8 *
   9 #include "gen/pilot.h"
  10       REAL FUNCTION FUN(N,RX)
  11       DOUBLE PRECISION XDB(15), DFUN, FUNX
  12       REAL RX(N),SNGL
  13       EXTERNAL DFUN
  14       DO 10 I=1,N
  15       XDB(I)=DBLE(RX(I))
  16  10   CONTINUE
  17       FUNX=DFUN(N,XDB)
  18       FUN=SNGL(FUNX)
  19       RETURN
  20       END