opt.blk
6f9c18174fb1lammm-master-deprecated

opt.blk
View Options

			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)
			***********************************************************************