1      subroutine xsetf (mflag)
2c
3c this routine resets the print control flag mflag.
4c
5      integer mflag, mesflg, lunit
6      common /eh0001/ mesflg, lunit
7c
8      if (mflag .eq. 0 .or. mflag .eq. 1) mesflg = mflag
9      return
10c----------------------- end of subroutine xsetf -----------------------
11      end
12