sic\def logical reaph diagnostic /global
sic\define charact dafsdir*80 dafsname*80 inlist*80 oname*80 scom*80 /global
sic\def integer order1 order2 order3 plow phigh cmin cmax niter /global

dev i w
lut idl4
set marker 0 0 0 0
pen /def

in_dir    "../data"
out_dir none