CJPB
      SUBROUTINE SUMPLV(VLN,APR,AMR,PLN)
CJPB  SUBROUTINE SUMPLV(VLN,AP,AM,PLN)
C     SR COMPUTES FOURIER MULTIPLIERS
C     IN AP COEFFS. OF SYMMETRIC LEGENDRES
C     IN AM COEFFS. OF ANTISYM.  LEGENDRES
      DIMENSION AP( 17 ),AM( 17 ),
     1PLN( 18 , 17 ),VLN( 18 , 17 )
      COMPLEX AP,AM,VLN
CJPB
      DIMENSION APR( 34 ),AMR( 34 ),APS( 34 ),AMS( 34 )
      EQUIVALENCE (APS,AP),(AMS,AM)
CJPB
      DO 3 L=1, 17
      CRP=0.
      CIP=0.
      DO 1 I=1, 17 ,2
      CRP=CRP+PLN(I,L)* REAL(VLN(I,L))
      CIP=CIP+PLN(I,L)*AIMAG(VLN(I,L))
1     CONTINUE
      CRM=0.
      CIM=0.
      DO 2 I=2, 18 ,2
      CRM=CRM+PLN(I,L)* REAL(VLN(I,L))
      CIM=CIM+PLN(I,L)*AIMAG(VLN(I,L))
2     CONTINUE
      AP(L)=CMPLX(CRP+CRM,CIP+CIM)
      AM(L)=CMPLX(CRP-CRM,CIP-CIM)
3     CONTINUE
CJPB
      DO 4 I=1, 34
      APR(I)=APS(I)
4     AMR(I)=AMS(I)
CJPB
C(DEBUGLINE) VERSION CREATED JULY 8 1982 BY J.SELA,NMC.
      RETURN
      END
