include file: chobs.cdk 26
      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