; snums.spi - Lists  picked and selected particles by micrograph

  NO LONGER NECESSARY I PUT IT INTO RENUMBER 



; ----------- Input files --------------
FR G
[sel_micrograph]../filenums  ; Micrograph file numbers

FR G
[ser]winser_{****[mic]}@     ; Picked particle stack

FR G
[sel_particles]good/ngood{****[mic]} ; Doc files of selected particle numbers

; ----------- Output files --------------

FR G
[percent]percent_selected    ; Doc file of picked vs selected

; -------------- END BATCH HEADER -------------

; Compute percent selected/picked

DE
[percent]

SD /     MICROGRAPH    PICKED      SELECTED       %
[percent]

[ntotpick]=0              ; Overall cumulative total
[ntotsel] =0              ; Overall cumulative total

UD N [nummics]            ; Get number of micrograph files
[sel_micrograph]

DO LB1 [nummic]=1,[nummics]

   UD IC [nummic],[mic]   ; Micrograph number
   [sel_micrograph]

   FI X [picked]          ; Find total number of picked particles
   [ser]                  ; Raw picked particle images          (input)
   (26)                   ; Header location for number of images in file 

   UD N [selected]        ; Number of selected particles for micrograph
   [sel_particles]

   [pcent] = 100.0 * [selected] / [picked]  
   [ntotpick]=[ntotpick]+[picked]   ; Overall cumulative total
   [ntotsel] =[ntotsel]+[selected]  ; Overall cumulative total
   
   SD [nummic], [mic],[picked],[selected],[pcent]
   [percent]

LB1

UD ICE
[sel_micrograph]

SD /     TOTAL:  PICKED      SELECTED       %
[percent]

[pcent] = 100.0 * [ntotsel] / [ntotpick]  

SD -1, [ntotpick],[ntotsel],[pcent]
[percent]

SD E          
[percent]

EN D