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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/04/01 15:02:09  mclareni
* Mathlib gen
*
*
#include "gen/pilot.h"
#if defined(CERNLIB_DOUBLE)
      SUBROUTINE CBSJA(Z,A,NMAX,ND,CB)
      COMPLEX Z,CB(0:*)
#include "gen/defc64.inc"
     + V(0:100),W
#include "gen/def64.inc"
     + D
#if defined(CERNLIB_QF2C)
#include "defdr.inc"
#endif
      SROUND(D)=D+(D-SNGL(D))
      W=Z
      CALL WBSJA(W,DBLE(A),NMAX,ND,V)
      DO 1 N = 0,NMAX
    1 CB(N)=CMPLX(SROUND(DREAL(V(N))),SROUND(DIMAG(V(N))))
      RETURN
      END
#endif
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/04/01 15:02:09 mclareni
	6	* Mathlib gen
	7	*
	8	*
	9	#include "gen/pilot.h"
	10	#if defined(CERNLIB_DOUBLE)
	11	SUBROUTINE CBSJA(Z,A,NMAX,ND,CB)
	12	COMPLEX Z,CB(0:*)
	13	#include "gen/defc64.inc"
	14	+ V(0:100),W
	15	#include "gen/def64.inc"
	16	+ D
	17	#if defined(CERNLIB_QF2C)
	18	#include "defdr.inc"
	19	#endif
	20	SROUND(D)=D+(D-SNGL(D))
	21	W=Z
	22	CALL WBSJA(W,DBLE(A),NMAX,ND,V)
	23	DO 1 N = 0,NMAX
	24	1 CB(N)=CMPLX(SROUND(DREAL(V(N))),SROUND(DIMAG(V(N))))
	25	RETURN
	26	END
	27	#endif