# Copyright (c) 2002 Peter Guntert. All rights reserved.
## 7MACROS: readvarian3d - read a Varian 3D and reshuffle into serial format
##
## Usage: readvarian3d <file> <n1> <n2> <n3>
##
## <n1>, <n2>, and <n3> denote the number of complex data points
## in the three dimensions of a 3D time-domain data set recorded
## in the "standard Varian way". This macro creates two temporary
## files called "tmpa" and "tmpb" in the current directory.

parameter fid n1 n2 n3

if (nparam.ne.4) error "*** Error: Illegal number of parameters."

read vnmr $fid {$n1}c 1c 1c $n2*$n3
write real tmpa * * r *
write real tmpb * * i *

read real tmpa {$n1}c {$n2}c $n3
dimension 3
complexify
write real tmpa

read real tmpb {$n1}c {$n2}c $n3
dimension 3
complexify
real
shift 1
complex
read real tmpa combine 1 1
dimension 1 2 3
#write real ser