PARAMETER(MDIM=4000,MAXNPW=MDIM*8) PARAMETER(LMNATM=35,LMNKAT=35)