([maxspfreq],[iter]) ; ; End of refinement
;
; endrefine.pam         ArDean Leith  Nov 2000
;                  []   ArDean Leith  Dec 2005
; 
; MASTER COPY: /net/bali/usr1/spider/docs/techs/recon/programs/
; 
; PURPOSE:  Does final CTF & Resolution calculations.
;           Merges group bpr files using CTF files
;
; CALLED FROM:
;    pub_refine_master.pam
;
; INPUT REGISTERS (FROM CALLER):
;    [maxspfreq]  
;    [iter]       Current iteration
;
; INPUT FILES (SET IN where.pam):
;    work/ctf***                        [temp_ctf_file_template]
;    final/bpr{**[next-iter]}_***       [group_bpr_template] 
;    final/bpr{**[next-iter]}_odd_***   [group_bpr_template]_odd 
;    final/bpr{**[next-iter]}_even_***  [group_bpr_template]_even
;    input/order_select_sort            [sorted_order_select]  Input selection document file 
;
;    OUTPUT FILES: (SET IN where.pam):
;    final/bpr{**[next-iter]}           [bpr]         
;    final/bpr1{**[next-iter]}          [bpr]_odd
;    final/bpr2{**[next-iter]}          [bpr]_even
;    final/dbpr{**[next-iter]}          [dbpr] Resolution document file
; 
;......................................................................

[next-iter]=[iter]+1

VM
echo "Endrefine starting for iteration: {**[iter]}"
VM
date

TF CTS
[group_bpr_template]            ; Template for 3D image files - grp/bpr
[sorted_order_select]           ; File numbers for defocus groups
[temp_ctf_file_template]        ; Template for 3D ctf file (input) - ctf
(3)                             ; SNR
[bpr]                           ; Output volume - bpr

TF CTS
[group_bpr_template]_odd        ; Template for 3D image files - grp/bpr1_
[sorted_order_select]           ; File numbers for defocus groups
[temp_ctf_file_template]        ; Template for 3D ctf file (input) - ctf
(3)                             ; SNR
[bpr]_odd                       ; Odd output volume  

TF CTS
[group_bpr_template]_even       ; Template for 3D image files - grp/bpr2_
[sorted_order_select]           ; File numbers for defocus groups
[temp_ctf_file_template]        ; Template for 3D ctf file (input) - ctf
(3)                             ; SNR
[bpr]_even                      ; Even output volume  

; Final resolution calculation
RF 3 [unused],[fsc]             ; Phase Residual & Fourier shell corr
[bpr]_odd                       ; Odd input volume  
[bpr]_even                      ; Even input volume 
0.5
0.2,2.0
C
90.0
3
[dbpr]                          ; Resolution document file (output) - dbpr

[val]=0
@saveresp([maxspfreq],[iter],[val],[fsc]) ; Record resolution in doc file
[dbpr_resol]

RE
;