c** unpacknoe.mac, unpack the NOE and reference spectra from hn15noe.fa data
;
; $Id: unpacknoe.mac,v 1.1 1999/10/18 16:57:35 abild Exp abild $
;
ty unpacknoe

; Define the no. of complex rows and file names here:
def l4 216			;no of complex points in each 2D's D2 dimension
def input  hn15noe_050700_14		;name of input file
def noespc hn15noe_050700_14noe		;name of new 2D file (NOE enhanced data)
def refspc hn15noe_050700_14ref		;name of new 2D file (reference data)

; That's all

ty unpacking NOESY spectrum (&noespc)
cl
for row 1 &l4
  rn &input
  wn &noespc
  rn &input
  wn &noespc
  rn &input
  rn &input
next
ty unpacking Reference spectrum (&refspc)
cl
for row 1 &l4
  rn &input
  rn &input
  rn &input
  wn &refspc
  rn &input
  wn &refspc
next
cl
ty
ret
end