*DECK CPROC SUBROUTINE CPROC (ND, BD, NM1, BM1, NM2, BM2, NA, AA, X, Y, M, A, + B, C, D, W, YY) C***BEGIN PROLOGUE CPROC C***SUBSIDIARY C***PURPOSE Subsidiary to CBLKTR C***LIBRARY SLATEC C***TYPE COMPLEX (CPROD-S, CPROC-C) C***AUTHOR (UNKNOWN) C***DESCRIPTION C C PROC applies a sequence of matrix operations to the vector X and C stores the result in Y. C AA Array containing scalar multipliers of the vector X. C ND,NM1,NM2 are the lengths of the arrays BD,BM1,BM2 respectively. C BD,BM1,BM2 are arrays containing roots of certain B polynomials. C NA is the length of the array AA. C X,Y The matrix operations are applied to X and the result is Y. C A,B,C are arrays which contain the tridiagonal matrix. C M is the order of the matrix. C D,W are work arrays. C ISGN determines whether or not a change in sign is made. C C***SEE ALSO CBLKTR C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 801001 DATE WRITTEN C 890531 Changed all specific intrinsics to generic. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE CPROC