CJPB
      SUBROUTINE FL22(FPR,FMR,FLN,PLN)
CJPB  SUBROUTINE FL22(FP,FM,FLN,PLN)
C     SR. COMPUTES CONTRIBUTION TO FLN FROM 2 LATITUDES
C     FP CONTAINS COEFS. OF SYMMETRIC PLN
C     FM CONTAINS COEFS. OF ANTISYM. PLN
C     WG IS THE GAUSSIAN WEIGHT
      DIMENSION FP( 17 ), FM( 17 ),
     1FLN( 17 , 17 ),PLN( 18 , 17 )
      COMPLEX FP,FM,FLN
CJPB
      DIMENSION FPR( 34 ),FMR( 34 ),FPS( 34 ),FMS( 34 )
      EQUIVALENCE (FPS,FP),(FMS,FM)
      DO 1 I=1, 34
      FPS(I)=FPR(I)
1     FMS(I)=FMR(I)
CJPB
      DO 4 LL=1, 17
      DO 2 I=1, 17 ,2
      FLN(I,LL) = FLN(I,LL)+CMPLX(
     1REAL(FP(LL))   *PLN(I,LL),
     2AIMAG(FP(LL))   *PLN(I,LL))
2     CONTINUE
      DO 3 I=2, 16  ,2
      FLN(I,LL)=FLN(I,LL)+CMPLX(
     1REAL(FM(LL))   *PLN(I,LL),
     2AIMAG(FM(LL))   *PLN(I,LL))
3     CONTINUE
4     CONTINUE
C(DEBUGLINE) VERSION CREATED JULY 8 1982 BY J.SELA,NMC.
      RETURN
      END
