c***********************************************************************
      INTEGER nx,ny,nz
      common /dimension/ nx,ny,nz