NOTES
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx -- sample loop for converting series of 1024 x 512 raw images -- to SGI rgb formatX11 = 1024 ; nsam X12 = 512 ; nrow DO LB1 I=1,1 ; loop VM ; use "imgcopy" to convert images frombin raw{***i}.$DATEXT sgi{***i}.rgb {****x11} {***X12} LB1 ; end loop
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--sample loop for renaming/renumbering series of SPIDER images
X33=33 DO LB2 I=1,4 ; loop VM ; system call for renumbering cp jnk{***X33}.vms jnk444{***I}.vms X33=X33+1 LB2 ; end loop
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
--sample loop for consecutively renaming/renumbering series of SPIDER -- while skipping any missing image numbers
X11=0 ; initialize output file number counter DO LB3 I=1,4 ; loop FI N ; use "FI N" to see if file exists jnk{***I} ; filename IF(X2.LE.0)GOTO LB3 ; skip if file not found X11=X11+1 ; increment output file number counter VM ; system call for renaming/renumbering SPIDER images cp jnk{***I}.vms jnk444{***X11}.vms LB3 ; end loop