integer maxres22
c      parameter (maxres22=maxres*(maxres+1)/2)
      parameter (maxres22=1)
      double precision w,d0,DRDG,DD,H,XX
      COMMON /WAGI/ w(MAXRES22),d0(MAXRES22)
      integer nx,ny,mask
      COMMON /POCHODNE/ NX,NY,DRDG(MAXRES22,MAXRES),DD(MAXRES22),
     1 H(MAXRES,MAXRES),XX(MAXRES)         
      COMMON /frozen/ mask(maxres)
      COMMON /store0/ nhpb0