; ------------------------
; casrd.spi
; PURPOSE: Invokes "CA SRD" operation 
; ASSUMES :used CORAN analysis, 
; -----------------------

[e1]  = 1       ; Lowest eigenvector used
[e2]  = 0       ; Highest eigenvector used, leave =0 if only using one vector
[im1] = 69      ; First image to be reconstituted
[im2] = 0       ; Last image to be reconstituted, =0 if only one image

; ----- INPUT FILES ------

FR G
[prefix]data/control	                ; Prefix of "CA S" files

;------ OUTPUT FILES -------

FR G
[out]data/casrd_{**[e1]}-{**[e2]}_***	; Output file template

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

IF ([e2]  .EQ. 0) [e2]  = [e1]
IF ([im2] .EQ. 0) [im2] = [im1]

VM
echo " Running 'CA SRD' Factors: {**[e1]}-{**[e2]} xxxxxxxxxxxxxxxxxxxxxx"

CA SRD	
[prefix]           ; File prefix             (input)
[im1]-[im2]        ; Image(s) to be recon.
[e1]-[e2]          ; Factor(s) used
[out]              ; Output file template   (output)

VM
echo "  "

EN