; Resize a reference volume
;
; SOURCE:  spider/docs/techs/recon/newprogs/resizevol.spi
;                                          
; PURPOSE: Resize a reference volume to the current window size.
;          This procedure is run in the top-level project directory.
; 
; I/O PARAMETERS AND FILES ARE SET HERE:
;
; ------------------ Input files -------------------------------------

[params] = 'params'                 ; Parameter file - window size (key #17) must be nonzero!

[input] = 'orig_reference_volume'   ; Input reference volume

; --------------- Output file  -------------------------------------

[output] = 'reference_volume'       ; Resized reference volume

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

UD 17,[sp_winsiz]   ; Retrieve window size from parameter file
[params]

IP                  ; Resize image
[input]
[output]
[sp_winsiz],[sp_winsiz],[sp_winsiz]

EN 
;