PARAMETER (NFILEMAX=10)
      PARAMETER (NMAX=1000, MMAX=NFILEMAX*12+1)    ! DUNG LUONG MAU VA SO BIEN CUC DAI
	  PARAMETER (NVUNG = 7, NYEUTO = 2)