parameter (imaa=10000,imb=10,maxbuf=50,lmx=1000)
      parameter (numc=60,numz=61,numr=11,numcf=30)
      parameter (nbcoef=11,nbtrw=300,nbtank=7)
      parameter (nelem=39)
      parameter (nspl=10001,nsplc=nspl*3+2)
      parameter (nptcb=10000)