This commit was generated by cvs2svn to compensate for changes in r2,

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / divon / fun.F

diff --git a/MINICERN/mathlib/gen/divon/fun.F b/MINICERN/mathlib/gen/divon/fun.F
new file mode 100644 (file)
index 0000000..eb667ba
--- /dev/null
+++ b/MINICERN/mathlib/gen/divon/fun.F
@@ -0,0 +1,20 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/04/01 15:03:25  mclareni
+* Mathlib gen
+*
+*
+#include "gen/pilot.h"
+      REAL FUNCTION FUN(N,RX)
+      DOUBLE PRECISION XDB(15), DFUN, FUNX
+      REAL RX(N),SNGL
+      EXTERNAL DFUN
+      DO 10 I=1,N
+      XDB(I)=DBLE(RX(I))
+ 10   CONTINUE
+      FUNX=DFUN(N,XDB)
+      FUN=SNGL(FUNX)
+      RETURN
+      END