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)