!      INTEGER  NMAX     ! SO QUAN TRAC CUC DAI (DUNG LUONG MAU)
!      INTEGER  MMAX     ! SO BIEN CUC DAI
!      PARAMETER (NMAX = 100, MMAX = 9)
       PARAMETER (NMAX = 400, MMAX = 20)
!       Integer, Parameter :: Nmax = (NYr2-NYr1+1), Mmax = NtrMx