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

[u/mrichter/AliRoot.git] / MINICERN / mathlib / gen / c / bsir3.F

diff --git a/MINICERN/mathlib/gen/c/bsir3.F b/MINICERN/mathlib/gen/c/bsir3.F
new file mode 100644 (file)
index 0000000..b934ee3
--- /dev/null
+++ b/MINICERN/mathlib/gen/c/bsir3.F
@@ -0,0 +1,32 @@
+*
+* $Id$
+*
+* $Log$
+* Revision 1.1.1.1  1996/04/01 15:02:07  mclareni
+* Mathlib gen
+*
+*
+#include "gen/pilot.h"
+#if defined(CERNLIB_DOUBLE)
+      FUNCTION BSIR3(X,NU)
+C     IMPLICIT DOUBLE PRECISION (D)
+#include "gen/def64.inc"
+     +    D,DBSIR3,DBLE,DBSKR3,DEBIR3,DEBKR3
+
+      SROUND(D)=D+(D-SNGL(D))
+      BSIR3=SROUND(DBSIR3(DBLE(X),NU))
+      RETURN
+
+      ENTRY BSKR3(X,NU)
+      BSKR3=SROUND(DBSKR3(DBLE(X),NU))
+      RETURN
+
+      ENTRY EBSIR3(X,NU)
+      EBSIR3=SROUND(DEBIR3(DBLE(X),NU))
+      RETURN
+
+      ENTRY EBSKR3(X,NU)
+      EBSKR3=SROUND(DEBKR3(DBLE(X),NU))
+      RETURN
+      END
+#endif