; ------------------------
;  casr.spi
;  PURPOSE: invokes "CA SR" operation 
;  ASSUMES: used CORAN analysis, recreate real image
; 	    for "virtual" image casrv.spi
;  ------------- INPUT ----------

[e1]  = 1       ; Lowest eigenvector used
[e2]  = 4       ; Highest eigenvector used, leave =0 if only using one vector
[e3]  = 3       ; 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/casr_{**[e]}-{**[e]}_***	; Output file template
FR G
[out2]data/casr_{**[e1]}-{**[e3]}_***	; Output file template

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

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

VM
\rm -f data/casr_*

DO [e]=[e1],[e2]
   VM
   echo " Running 'CA SR' Factor: {**[e]} xxxxxxxxxxxxxxxxxxxxxxxxxxx"

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

ENDDO

VM
echo " Running 'CA SR' Factors: {**[e1]}-{**[e3]} xxxxxxxxxxxxxxxxxxxxxxx"


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

VM
echo "  "

EN