function tykw_reform,rdata ;+ ; NAME: ; TYKW_REFORM ; ; PURPOSE: ; This procedure is for reforming data strip from the raw TYKW structure ; ; CALLING SEQUENCE: ; data=tykw_reform(rdata) ; ; INPUTS: ; rdata: structure of the raw data ; ; OPTIONAL INPUT KEYWORDS: ; ; OUTPUTS: ; data: 1-dimensional reformed data ; ; HISTORY: ; 4/6/79 ver.0.0 K. Shibasaki as fortran program ; Sep. 09, 1994 ver.1.0 M. Nishio ; Jan. 10, 1995 ver.2.0 M. Nishio ; Apr. 13, 1995 ver.3.2 M. Nishio ; Apr. 13, 1995 ver.4.0 M. Nishio ; May. 23, 1995 ver.5.0 M. Nishio ; May 01, 1995 ver.5.2 M. Nishio ; Apr. 25, 1995 ver.5.0 M. Nishio ; ; 1999-01-12 ported to IDL by TY ; ;- nmax=n_elements(rdata) ndtx=long(total(rdata.blockl)) datai=reform(rdata.data,112*nmax) data=float((datai and fix('7ff'x)) xor (fix('ffff'x) * ishft(datai,-15))) data=data(0:ndtx-1) return,data end