CJPB
      SUBROUTINE UVGLOB(PLNWCS,DER,DI,ZE,UPR,UMR,VPR,VMR)
CJPB  SUBROUTINE UVGLOB(PLNWCS,DER,DI,ZE,UP,UM,VP,VM)
      DIMENSION PLNWCS( 17 , 17 ),
     1             DER( 17 , 17 )
CJPB  COMPLEX*8 DI( 17 , 17 )
      COMPLEX   DI( 17 , 17 )
CJPB  COMPLEX*8 ZE( 17 , 17 )
      COMPLEX   ZE( 17 , 17 )
CJPB  COMPLEX*8 UP( 17 ),UM( 17 )
      COMPLEX   UP( 17 ),UM( 17 )
CJPB  COMPLEX*8 VP( 17 ),VM( 17 )
      COMPLEX   VP( 17 ),VM( 17 )
CJPB
      DIMENSION UPR( 34 ),UMR( 34 ),UPS( 34 ),UMS( 34 )
      DIMENSION VPR( 34 ),VMR( 34 ),VPS( 34 ),VMS( 34 )
      EQUIVALENCE (UPS,UP),(UMS,UM),(VPS,VP),(VMS,VM)
CJPB
      DO 50 LL=1, 17
      CRP=0.
      CIP=0.
      DO 10 I=1, 17 ,2
      CRP=CRP+PLNWCS(I,LL)*AIMAG(DI(I,LL))
      CIP=CIP+PLNWCS(I,LL)* REAL(DI(I,LL))
10    CONTINUE
      CIP=-CIP
      CRM=0.
      CIM=0.
      DO 20 I=2, 16 ,2
      CRM=CRM+PLNWCS(I,LL)*AIMAG(DI(I,LL))
      CIM=CIM+PLNWCS(I,LL)* REAL(DI(I,LL))
20    CONTINUE
      CIM=-CIM
      DO 30 I=1, 17 ,2
      CRM=CRM+DER(I,LL) *REAL(ZE(I,LL))
      CIM=CIM+DER(I,LL)*AIMAG(ZE(I,LL))
30    CONTINUE
      DO 40 I=2, 16 ,2
      CRP=CRP+DER(I,LL) *REAL(ZE(I,LL))
      CIP=CIP+DER(I,LL)*AIMAG(ZE(I,LL))
40    CONTINUE
      UP(LL)=CMPLX(CRP+CRM,CIP+CIM)
      UM(LL)=CMPLX(CRP-CRM,CIP-CIM)
      CRP=0.
      CIP=0.
      DO 11 I=1, 17 ,2
      CRP=CRP+PLNWCS(I,LL)*AIMAG(ZE(I,LL))
      CIP=CIP+PLNWCS(I,LL)* REAL(ZE(I,LL))
11    CONTINUE
      CIP=-CIP
      CRM=0.
      CIM=0.
      DO 21 I=2, 16 ,2
      CRM=CRM+PLNWCS(I,LL)*AIMAG(ZE(I,LL))
      CIM=CIM+PLNWCS(I,LL)* REAL(ZE(I,LL))
21    CONTINUE
      CIM=-CIM
      DO 31 I=1, 17 ,2
      CRM=CRM-DER(I,LL) *REAL(DI(I,LL))
      CIM=CIM-DER(I,LL)*AIMAG(DI(I,LL))
31    CONTINUE
      DO 41 I=2, 16 ,2
      CRP=CRP-DER(I,LL) *REAL(DI(I,LL))
      CIP=CIP-DER(I,LL)*AIMAG(DI(I,LL))
41    CONTINUE
      VP(LL)=CMPLX(CRP+CRM,CIP+CIM)
      VM(LL)=CMPLX(CRP-CRM,CIP-CIM)
50    CONTINUE
      UP(1)=CMPLX(REAL(UP(1)),0.)
      UM(1)=CMPLX(REAL(UM(1)),0.)
      VP(1)=CMPLX(REAL(VP(1)),0.)
      VM(1)=CMPLX(REAL(VM(1)),0.)
C***  UP ARE FOURIERS FOR N. HEMI.  UM FOR S. HEMI
CJPB
      DO 60 I=1,34
      UPR(I)=UPS(I)
      UMR(I)=UMS(I)
      VPR(I)=VPS(I)
60    VMR(I)=VMS(I)
CJPB
      RETURN
      END
