function tykw_gt_npa,timej,dstt ;+ ; NAME: ; TYKW_GT_NPA ; ; PURPOSE: ; This function is for getting the mode number of ATT ; ; CALLING SEQUENCE: ; npa=tykw_gt_npa(timej,dstt) ; ; INPUTS: ; timej: structure array with 'time internal format'. Time is in JST. ; dstt: TYKW structure including the status information ; ; OPTIONAL INPUT KEYWORDS: ; ; OUTPUTS: ; npa: 1-dimensional integer array indicating the ATT mode ; ; 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 ; ;- npa=bytarr(n_elements(timej)) for mode=0,4 do begin for m=0,31 do begin t_st=dstt.iachng(mode,m,0) t_ed=dstt.iachng(mode,m,1) if (t_st lt t_ed) then begin whr=where((timej.time ge t_st*10) and (timej.time lt t_ed*10),count) if (count ge 1) then npa(whr)=mode+1 endif endfor endfor return,npa end