1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
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)
***********************************************************************
|
