1c
2c $Id$
3c
4
5      integer mxtype,mxatms,mxvlist,mxelist,mxnlist,mxkvect,mxpote
6      integer mxcons,mxcons2,mxbond,mxbond2,mxshel,mxshel2
7
8      parameter(mxtype=5)
9      parameter(mxatms=2000)
10      parameter(mxelist=200)
11      parameter(mxvlist=200)
12      parameter(mxnlist=500)
13      parameter(mxkvect=25)
14      parameter(mxpote=10)
15      parameter(mxcons=5)
16      parameter(mxcons2=1000)
17      parameter(mxbond=5)
18      parameter(mxbond2=500)
19      parameter(mxshel=5)
20      parameter(mxshel2=750)
21