@common_blocks.inc
pro jacques
; simple calling routine to allow to be called with
; the IDL virtual machine with the command line:
;   idl -vm=jacques.sav
!path += EXPAND_PATH('.')
on_error, 1
@common_blocks.inc
DEVICE, decomposed=0
AMRSLICE

end