integer mxdim
         parameter(mxdim=26)