([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
;