copyright (C) 2001  MSC-RPN COMM  %%%MC2%%%
      integer halo,halox,dimh,dimhx
*
      common /halo/ halo,halox,dimh,dimhx
*