forked from lijiext/lammps
24 lines
930 B
Plaintext
24 lines
930 B
Plaintext
parameter (maxdat=5000)
|
|
parameter (maxmdat=2500)
|
|
parameter (maxkop=2500)
|
|
character*80 qff
|
|
character*60 qmdat
|
|
character*100 qdatid
|
|
character*2 qas2
|
|
common
|
|
$/opt/ fpar(7,nvatym,40),datopt(maxdat),caldat(maxdat),
|
|
$ compdat(maxdat),weightdat(maxdat),
|
|
$ devi(maxdat),vkop(maxkop),devkop(maxkop),sdy(3),
|
|
$ valpar,valnew,change,vchange,
|
|
$ molin(maxmdat,nsort),
|
|
$ iboo(nbotym,2),idmo(nodmtym,2),ivao(nvatym,5),
|
|
$ itoo(ntotym,7),ihbo(nhbtym,5),iheada(maxmdat),
|
|
$ ndatm(maxmdat),iheada2(maxmdat),ichn(3),
|
|
$ ikop1(maxkop),ikop2(maxkop),idat(maxdat),mu1(maxkop),
|
|
$ mu2(maxkop),
|
|
$ ndata,imam,iopt,iheatf,nkop,iagain,
|
|
$ qdatid(maxdat),qmdat(maxmdat),qff(250),qas2(nsort)
|
|
***********************************************************************
|
|
|
|
|