*
* $Id: transd.F,v 1.1.1.1 1996/04/01 15:03:15 mclareni Exp $
*
* $Log: transd.F,v $
* Revision 1.1.1.1  1996/04/01 15:03:15  mclareni
* Mathlib gen
*
*
#include "sys/CERNLIB_machine.h"
#include "_gen/pilot.h"
      SUBROUTINE TRANSD(DCHEB,DTAYL,IMAX,STORE)
C
C     CERN PROGRAM LIBRARY NO. E401
C
C     BASIC VERSION OF AUGUST 1970.
C
C     PURPOSE = CONVERSION OF CHEBYSHEV SERIES TO TAYLOR SERIES BY RE-
C               ARRANGING.
C
C     PARAMETERS
C
C     INPUT
C
C     DCHEB   = COEFFICIENTS OF THE CHEBYSHEV SERIE.
C     IMAX    = NUMBER OF TERMS IN THE CHEBYSHEV SERIE (AND ALSO IN THE
C               TAYLOR SERIE).
C
C     OUTPUT
C
C     DTAYL   = COEFFICIENTS OF THE RESULTING TAYLOR SERIE.
C
C     DUMMY
C
C     STORE   = ARRAY USED FOR INTERMEDIATE STORAGE.
C
      DOUBLE PRECISION DCHEB(IMAX),DTAYL(IMAX),STORE(IMAX)
C
         DO 1 I=1,IMAX
    1 DTAYL(I)=0.D0
      DTAYL(1)=0.5D0*DCHEB(1)
      IMA=IMAX-1
         DO 5 I=1,IMA
      CALL CHEB02(STORE,I,IMAX)
      IU=I+1
         DO 4 J=1,IU
    4 DTAYL(J)=DCHEB(I+1)*STORE(J)+DTAYL(J)
    5 CONTINUE
      RETURN
C
      END