# Copyright (c) 2002 Peter Guntert. All rights reserved.
## 7MACROS: readkay - read a sensitivity enhanced data set
##
## Usage: readkay <parameters>
##
## Reads a serial file from an experiment recorded with
## "standard Kay-type sensitivity enhancement" in dimension 2.
## The same <parameters> are accepted as in the normal read 
## command.

var params i

params:=
do i 1 nparam
  params:="$params \$p$i"
end do
read $params
dimension 2
phase 90
params:=1 2 3 4
dimension $params(1:2*ndim)
read $p1 $p2 combine 1.0 1.0
select * i
phase 90
select