CJPB
      SUBROUTINE SYMASY (AR,BR)
CJPB  SUBROUTINE SYMASY (A,B)
      DIMENSION A( 17 ),B( 17 )
      COMPLEX A,B
CJPB
      DIMENSION AR( 34 ),BR( 34 ),AS( 34 ),BS( 34 )
      EQUIVALENCE (AS,A),(BS,B)
CJPB
C     ON INPUT A CORRESP. TO N. HEMIS. FOURIERS
C     ON INPUT B CORRESP. TO S. HEMIS. FOURIERS
C     ON OUTPUT A CORRESP. TO MULTIPLIERS OF SYM. PLN
C     ON OUTPUT B CORRESP. TO MULTIPLIERS OF ANTISYM. PLN
CJPB
      DO 2 I = 1, 34
      AS(I)=AR(I)
2     BS(I)=BR(I)
CJPB
      DO 1 I = 1, 17
      CR= REAL(A(I))
      CI=AIMAG(A(I))
      A(I)=CMPLX(CR+REAL(B(I)),CI+AIMAG(B(I)))
      B(I)=CMPLX(CR-REAL(B(I)),CI-AIMAG(B(I)))
1     CONTINUE
CJPB
      DO 3 I = 1, 34
      AR(I)=AS(I)
3     BR(I)=BS(I)
CJPB
C(DEBUGLINE) VERSION CREATED JULY 8 1982 BY J.SELA,NMC.
      RETURN
      END
