Search Site | Contact Details | FAQ

ADAS Subroutine cxpprd

      SUBROUTINE CXPPRD( MXTERM ,
     &                   A      , NA     , IPA    ,
     &                   B      , NB     , IPB    ,
     &                   C      , NC     , IPC
     &                 )
C
C
C-----------------------------------------------------------------------
C
C  ****************** FORTRAN77 SUBROUTINE: CXPPRD *********************
C
C  PURPOSE: CALCULATES PRODUCT OF TWO POWER SERIES OF THE FORM:
C
C           X**IPA * ( A(1) + X * A(2) + .... )
C                     <------ NA TERMS ------>
C
C  CALLING PROGRAM: ADAS308.
C
C  INPUT : (I*4)  MXTERM  = MAXIMUM NUMBER OF TERMS.
C  INPUT : (I*4)  NA      = NUMBER OF TERMS IN FIRST POWER SERIES.
C  INPUT : (I*4)  IPA     = POWER OF LEADING TERM IN FIRST SERIES.
C  INPUT : (R*8)  A()     = POWER SERIES COEFFICIENTS IN FIRST SERIES.
C  INPUT : (I*4)  NB      = NUMBER OF TERMS IN SECOND POWER SERIES.
C  INPUT : (I*4)  IPB     = POWER OF LEADING TERM IN SECOND SERIES.
C  INPUT : (R*8)  B()     = POWER SERIES COEFFICIENTS IN SECOND SERIES.
C
C  OUTPUT: (I*4)  NC      = NUMBER OF TERMS IN POWER SERIES.
C  OUTPUT: (I*4)  IPC     = POWER OF LEADING TERM.
C  OUTPUT: (R*8)  C()     = POWER SERIES COEFFICIENTS.
C
C          (I*4)  I       = LOOP INDEX.
C          (I*4)  J       = LOOP INDEX.
C          (I*4)  JU      = LOOP LIMIT.
C          (I*4)  JL      = LOOP LIMIT.
C
C          (R*8)  X       = STORE FOR SUM WHEN CALCULATING C(I).
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             IPA,         IPB,         IPC,         MXTERM
      INTEGER             NA,          NB,          NC
      REAL*8              A(MXTERM),   B(MXTERM),   C(MXTERM)
© Copyright 1995-2018 The ADAS Project
Comments and questions to: adas-at-adas.ac.uk