; list_sys
;
; list all sys entries to a file
set tmp = ('tmp' // int(1000000*$random))
sh ('pwd >'; $tmp)
open $tmp
set pwd = <$tmp
close $tmp
open sys_list
fprint sys_list ("# Project :"; $pwd)
foreach sid in sys
   if ($sid s! "LARGEST") then
	set ss = $sys[$sid]
	fprint sys_list (head($ss); head(tail($ss)))
	set ss = (tail(tail($ss)))    ; keep only the spin part
	while ($ss s! ' ')
	   set sp = $spin[head($ss)]      set ss = (tail($ss))
	   fprint sys_list ("------";$sp)
	endwhile
   endif
endfor
close sys_list
formbox "List of Spin-Systems" DO_NOTHING 'File is sys_list' message sys_list text *
