pro cycles

; This program pulls the Cycle info from the Science Summary and puts it 
; in a file called 'cycles.out' in the Log directory.

; The current directory is the default
cd,'',current=cdir & cd,cdir                            ;

close,1
openr,1,'Science_Summary'

close,2
openw,2,'cycles.out'
printf,2,"This is the Cycle information from the Science Summary for: ",cdir
printf,2,""
printf,2,"  Seconds   Mission Time   Cycle Information..."
printf,2,""

time = ''
name = ''
rest = ''
space=''
i=0 & j=0
co2=0

; The first line is different
readf,1,time,name,rest,format ='(a13,a8,a)'
if sstr(name) eq 'Cal' then co2=1		;checkout 2 (HC + IFC) flag
goto, start

while not eof(1) do begin
 readf,1,space,time,name,rest,format ='(a1,a13,a8,a)'

 start:
 if not(sstr(name) eq 'Cycle' or sstr(name) eq 'Cal') then goto, next
 
 if strpos(rest,' Img') ne -1 then i=i+1		;counts image cycles
 if strpos(rest,' HNS') ne -1 then j=j+1		;counts image cycles

 hrs=float(strmid(time,0,2))
 min=float(strmid(time,3,2))
 sec=float(strmid(time,6,7))

 seconds=3600.*hrs+60*min+sec

 printf,2,seconds,time,name,rest,format='(f10.4,a15,a8,a)'

 next:
endwhile

if co2 eq 1 then goto,skip
printf,2,string(10B),'The number of Image Cycles is: ',sstr(i),'  (8 is typical)'
print,string(10B),'The number of Image Cycles is: ',sstr(i),'  (8 is typical)'
printf,2,string(10B),'The number of High Near Surface Cycles is: ',sstr(j),'  (8 is typical)'
print,string(10B),'The number of High Near Surface Cycles is: ',sstr(j),'  (5 is typical)'
skip:

close,1
close,2
end