CJPB
      SUBROUTINE PSU22(AMR,APR,BMR,BPR,FLN,PLNWCS,DER)
CJPB  SUBROUTINE PSU22(AM,AP,BM,BP,FLN,PLNWCS,DER)
      DIMENSION AM( 17 ),AP( 17 ),BM( 17 ),BP( 17 ),
     1FLN( 17 , 17 ),PLNWCS( 17 , 17 ),DER( 17 , 17 )
      COMPLEX AM,AP,BM,BP,FLN
CJPB
      DIMENSION AMR( 34 ),APR( 34 ),BMR( 34 ),BPR( 34 )
      DIMENSION AMS( 34 ),APS( 34 ),BMS( 34 ),BPS( 34 )
      EQUIVALENCE (AMS,AM),(APS,AP),(BMS,BM),(BPS,BP)
      DO 4 I=1, 34
      AMS(I)=AMR(I)
      APS(I)=APR(I)
      BMS(I)=BMR(I)
4     BPS(I)=BPR(I)
CJPB
      DO 3 LL=1, 17
      DO 1 I=1, 17 ,2
      FLN(I,LL) = FLN(I,LL) +
     1 CMPLX(REAL(AM(LL))*DER(I,LL)        -AIMAG(BP(LL))*PLNWCS(I,LL),
     2      AIMAG(AM(LL))*DER(I,LL)        + REAL(BP(LL))*PLNWCS(I,LL))
1     CONTINUE
      DO 2 I=2, 16  ,2
      FLN(I,LL) = FLN(I,LL) +
     1 CMPLX(REAL(AP(LL))*DER(I,LL)        -AIMAG(BM(LL))*PLNWCS(I,LL),
     2      AIMAG(AP(LL))*DER(I,LL)        + REAL(BM(LL))*PLNWCS(I,LL))
2     CONTINUE
3     CONTINUE
C(DEBUGLINE) VERSION CREATED JULY 8 1982 BY J.SELA,NMC.
      RETURN
      END
