Search Site | Contact Details | FAQ

ADAS Subroutine cxpint

      SUBROUTINE CXPINT( MXTERM ,
     &                   C      , NC     , IPC    , UC     ,
     &                   D      , ND     , IPD    , UD
     &                 )
C
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CXPINT *********************
C
C  PURPOSE: INTEGRATES POWER SERIES OF THE FORM:
C
C           X**IPC * EXP( UC * X ) * ( C(1) + X * C(2) + .... )
C                                     <------ NC TERMS ------>
C
C           TO GIVE AN ANSWER OF THE FORM:
C
C           -X**IPD * EXP( UD * X ) * ( D(1) + X * D(2) + .... )
C                                      <------ ND TERMS ------>
C
C           NOTE SIGN OF OUTPUT.
C
C  CALLING PROGRAM: ADAS308.
C
C  INPUT : (I*4)  MXTERM  = MAXIMUM NUMBER OF TERMS.
C  INPUT : (I*4)  NC      = NUMBER OF TERMS IN POWER SERIES.
C  INPUT : (I*4)  IPC     = POWER OF LEADING TERM.
C  INPUT : (R*8)  UC      = POWER OF EXPONENT.
C  INPUT : (R*8)  C()     = POWER SERIES COEFFICIENTS.
C
C  OUTPUT: (I*4)  ND      = NUMBER OF TERMS IN POWER SERIES.
C  OUTPUT: (I*4)  IPD     = POWER OF LEADING TERM.
C  OUTPUT: (R*8)  UD      = POWER OF EXPONENT.
C  OUTPUT: (R*8)  D()     = POWER SERIES COEFFICIENTS.
C
C  PARAM : (R*8)  P1      = 1.0D+12
C
C          (I*4)  I       = LOOP INDEX.
C
C          (R*8)  T       =
C          (R*8)  T1      =
C
C ROUTINES: NONE
C
C AUTHOR:   JONATHAN NASH (TESSELLA SUPPORT SERVICES PLC)
C           K1/0/81
C           JET EXT. 5183
C
C DATE:     01/10/93
C
C-----------------------------------------------------------------------
C
C-----------------------------------------------------------------------
      INTEGER             IPC,         IPD,         MXTERM,      NC
      INTEGER             ND
      REAL*8              C(MXTERM),   D(MXTERM),   UC,          UD
© Copyright 1995-2024 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk