;************************************************************************
;  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)
byteorder,a,/ntohl
b=assoc(1,fltarr(mpar),irec(idata-1-(ntmax-1-it)*incr))
b=b(0)
byteorder,b,/ntohl

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),ceta1(60),ceta2(61),ceta3(62),
; eetop(63),eebot(64),rhotop(65),rhobot(66),pptop(67),ppbot(68),
;    ,bx0(69),by0(70),bz0(71),
; period(72),nwavel(73),amp0(74),bfm(75),bfke(76),bfe(77),
; spare1(78),spare2(79),spare3(80),spare4(81)