; IDL Version 5.2 (OSF alpha)
; Journal File for sxt_co@isass0.solar.isas.ac.jp
; Working directory: /home/sxt_co/idl
; Date: Fri May  5 15:06:17 2000

; halfhearted notes towards an OP emulator that will predict when
; the table restarts. Thus far it's reading the OP and getting FEM
; but is not analyzing the SXT sequence table yet.
 
op_start = '6-may 04:22:51'
op_end   = '8-may 02:59:07'
rd_fem,op_start,op_end,fem
fmt_timer,fem
;(first, last) = ' 6-MAY-00  05:20:59', ' 8-MAY-00  02:25:29'
help,/fem,/str
; % Keyword FEM not allowed in call to: HELP
help,fem,/str
print,fem(1).time,19259+7797
;    25049000   27056
op_name = '000506'
infil = findfile('$DIR_GEN_ORBIT/opog/op'+opname)
; % Variable is undefined: OPNAME.
infil = findfile('$DIR_GEN_ORBIT/opog/op'+op_name)
help,infil
infil = file_list('$DIR_GEN_ORBIT/opog',op_name,/cd)
;FILE_LIST: No files found
op_name = 'op000506*'
infil = file_list('$DIR_GEN_ORBIT/opog',op_name,/cd)
;FILE_LIST: No files found
infil = file_list('$DIR_GEN_ORBIT/opog/',op_name,/cd)
;FILE_LIST: No files found
print,op_name
;op000506*
infil = file_list('$DIR_GEN_ORBIT/opog/','op*',/cd)
help,infil
infil = file_list('$DIR_GEN_ORBIT/opog/','op00506*',/cd)
help,infil
print,infil
;$DIR_GEN_ORBIT/opog/op005063.hex $DIR_GEN_ORBIT/opog/op005063.txt
infil = file_list('$DIR_GEN_ORBIT/opog/','op00506*txt',/cd)
print,infil
;$DIR_GEN_ORBIT/opog/op005063.txt
op_text = rd_tfile(infil)
tt = grep(op_text,'QUIET RATE HIGH')
; % STRPOS: Expression must be a scalar in this context: A.
tt = grep('QUIET RATE HIGH',op_text)
print,tt
;  2  044411- 28-     QUIET RATE HIGH  11  070355- 28-     QUIET RATE HIGH
;  18  084547- 28-     QUIET RATE HIGH  37  200755- 28-     QUIET RATE HIGH
;  45  213347- 28-     QUIET RATE HIGH 115  022947- 28-     QUIET RATE HIGH
; 123  042915- 28-     QUIET RATE HIGH
tt = grep('QT ME',op_text)
print,tt
tt = grep('QT M',op_text)
print,tt
;  1  042707- 16-     KSC LOS (QT M)   8  060931- 16-     KSC LOS (QT M)
;  15  075227- 16-     KSC LOS (QT M)  22  093451- 16-     KSC LOS (QT M)
;  33  163227- 23-     DSN LOS (QT M)  41  203715- 23-     DSN LOS (QT M)
;  66  031611- 23-     DSN LOS (QT M) 106  222811- 23-     DSN LOS (QT M)
; 119  030251- 16-     KSC LOS (QT M) 126  044547- 16-     KSC LOS (QT M)
;     130.00   (min) Sunlight-time threshold for los (QT M)
;                                              16 KSC LOS (QT M)       (54 min)
;                                              16 KSC LOS (QT M)       (53 min)
;                                              16 KSC LOS (QT M)       (53 min)
;                                              16 KSC LOS (QT M)       (245 min)
;                                              23 DSN LOS (QT M)       (159 min)
;                                              23 DSN LOS (QT M)       (57 min)
;                                              23 DSN LOS (QT M)       (489 min)
;                                              23 DSN LOS (QT M)       (155 min)
;                                              16 KSC LOS (QT M)       (55 min)
;                                              16 KSC LOS (QT M)