# Copyright (c) 2002 Peter Guntert. All rights reserved.
## 7MACROS: status - display status information about the current data set

parameter option
var s t i j unit p

if (nparam.lt.0 .or. nparam.gt.1) \
  error "*** Error: Illegal number of parameters."
s = size
t = nint((100.0*s)/maxsize)
print "    Occupied memory      :$s(I10) words ($t \%)"
p := 
do i 1 ndim
  if (icmplx(i).eq.1) then
    unit := "real points"
  else
    unit := "complex points"
  end if
  t = ndata(i)
  if (i.eq.active) then
    print "    Dimension $i (active) :$t(I10) $unit"
  else
    print "    Dimension $i          :$t(I10) $unit"
  end if
  p := $p $perm(i)
end do
print "    Order of dimensions  : $p"
if (nparam.eq.1) then
  if ('$option'.ne.'full') error "*** Error: Illegal option \"$option\"."
  t = smax
  print "    Maximal magnitude    :$t(1PE10.2)"
  t = snoise
  print "    Noise magnitude      :$t(1PE10.2)"
end if