;************************************************************************
;  Extract scalar all variables from cdata
;
;************************************************************************
 function cdatas,it
;function cdatas,it,iv
;
;  extract var iv, time it from file
;
common coff,mpar,mav,ipack,incr,ioff,time,voff,xfile,irec
common cdat,x,y,z,nx,ny,nz,nw,ntmax,date0,time0 
;
i=assoc(1,lonarr(10))
idata=i(5,0)
a=assoc(1,lonarr(mpar),irec(idata-1-(ntmax-1-it)*incr))
a=a(0)
b=assoc(1,fltarr(mpar),irec(idata-1-(ntmax-1-it)*incr))
b=b(0)
;a=assoc(1,fltarr(1),ioff(it)+(incr-1)*voff+4L*iv)
;return,a(0)
c=[a(0:2),b(3:4),a(5),b(6:9),a(10),b(11:21),a(22:25),b(26:30),$
  a(31:41),a(42:45),b(46:50),a(51:52),b(53:75)]
if (incr gt 9) then c=[c,b(76:82)]
return,c
end
;
; nx(0),ny(1),nz(2),height(3),width(4),n0(5),dx(6),dy(7),dz(8),bzone(9),npot(10)
; teff(11),grav(12),abund(13),fnom(14),tmass0(15),tee0(16)
; t(17),dt(18),tstop(19),dtold(20),fdtc(21),ntime(22),nst1(23),nst3(24),nst5(25)
; dtsave(26),dtscr(27),dtprnt(28),dtsmpl(29),dtsmth(30),ipack(31),nsmpl(32)
; ip(33),idl(34),idm(35),idn(36),ldl(37),ldm(38),ldn(39),ledbug(40),idebug(41)
; dato(42),time(44)
; uur(46),uul(47),uut(48),uub(49),mu0(50)
; nmu(51),nph(52),taumax(53),dabmax(54)
; cnu1(55),cnu2(56),cnu3(57),cnu4(58),cnu5(59),
; eetop(60),eebot(61),rhotop(62),rhobot(63),pptop(64),ppbot(65),
; period(66),nwavel(67),amp0(68),bfm(69),bfke(70),bfe(71),
; spare1(72),spare2(73),spare3(74),spare4(75)