([freq],[iter],[grp],[spfreq])
; Records resolution in doc file
;
; SOURCE: saveresp.pam New: Nov 2003 al
; Rewrite Jun 2004 al
; Rewrite Jan 2005 al
; Output changed Feb 2006 al
;
; MASTER COPY: /net/bali/usr1/spider/docs/techs/recon/newprogs/
;
; PURPOSE: Records resolution where the Fourier shell correlation
; drops below threshold (0.5), and corresponding
; spatial frequency in a document file.
; Resolution = pixel size / spatial frequency
;
; I/O PARAMETERS AND FILES ARE SET HERE:
;
; -------------- Input Registers (on command line) ---------------
;
; [freq] Nyquist frequency (Sent from caller)
; [iter] Iteration (Sent from caller)
; [grp] Group (Sent from caller)
; [spfreq] Interpolated spatial freq. (Sent from caller)
;
; -------------------------- Input files ----------------------------
;
; -------------------------- Output files ---------------------------
;
; dbpr{**iter} [dbpr_resol] Resolution doc file (Sent from caller)
;
; -------------- END BATCH HEADER ---------------------------------
FR ; Read output file name from caller
?res output file?[dbpr_resol]
;IF ([iter] .EQ. 1) THEN
; IF ([grp] .EQ. 1) THEN
; SD / Iteration group resolution
; [dbpr_resol]
; ENDIF
;ENDIF
; Compute resolution
[res] = 0.5 / ([freq]*[spfreq]) ; Resolution = pixel size / spatial freq.
SD [iter], [iter],[grp],[res]
[dbpr_resol]
;IF ([grp] .GT. 0) THEN
;VM
;echo " Iteration: {**[iter]} Group: {***[grp]} {%f6.2%[res]}" >> [dbpr_resol].$DATEXT
;VM
;echo " Iteration: {**[iter]} Res: {%f6.2%[res]}" >> [dbpr_resol].$DATEXT
RE
;