REAL UOBS(N,N,NTRAJC),URprime(N,N)
      REAL WOBS(N,N,NTRAJC),WRprime(N,N)
      REAL PZ(N,N,NTRAJC)
      REAL UWprime(2*N*N),dl_y(2*N*N),by(8192)
      REAL sigmao(2*N*N),HX(2*N*N)
      REAL YPRIME(2*N*N*52)
      COMPLEX ZCONT(22,43,NTRAJC)

      COMMON /A3/
     .UOBS,WOBS,PZ,
     .URprime,WRprime,
     .ZCONT,
     .dl_y,
     .UWprime,
     .by,
     .sigmao,
     .HX,
     .yprime