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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:01:58  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
      SUBROUTINE C311BD
#include "legbl.inc"
      DATA IBD/0/
      IF(IBD.NE.0) RETURN
      IBD=1
      PISR=1.7724 53850 90552
      PI=3.141592653589793
      U=(0.0,1.0)
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:01:58 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	SUBROUTINE C311BD
	11	#include "legbl.inc"
	12	DATA IBD/0/
	13	IF(IBD.NE.0) RETURN
	14	IBD=1
	15	PISR=1.7724 53850 90552
	16	PI=3.141592653589793
	17	U=(0.0,1.0)
	18	RETURN
	19	END