;-----------------------------
;casre.spi 
; PURPOSE: Run  'CA SRE'  to create eigenimages from one eigenvector
;          similar to 'CAS RA' except does not ask for factor value

;ASSUMES:  Did not use PCA

;--- INPUTS ----

FR L
[caspre]data/control                 ; prefix from CA S

[f1]=1	                             ; The factor to be re-created
[f2]=3                               ; Last factor to count

;--- OUTPUTS ----

FR L
[eigenimage]data/eig{**[f1]}to{**[f2]}   ; Name of created image

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

VM
echo " Running 'CA SRE' Factors: {**[f1]}-{**[f2]} xxxxxxxxxxxxxxxxxxxxxx"

CA SRE
[caspre]	 ; Input prefix
[f1]-[f2]	 ; Factor, assumed no PCA
[eigenimage]	 ; Output

VM
echo "  "

EN